B1: Tạo cơ sở dữ liệu Phan_mem_may_tinh_mini
B2: Tạo các Form mới như hình đã cho
B3: Tạo Các control trong từng form của từng bài
B4: Đặt tên cho các control và nút lệnh
- Nhắp vào textbox (như hình dưới)
- Chọn thẻ Other trong bảng thuộc tính
- điền tên tại mục Name (trong bài là so1)
- Tương tự cho các textbox khác.
B5: Viết code cho các nút lệnh
- Nhắp vào Button (như hình dưới)
- Chọn thẻ Event trong bảng thuộc tính
- Tại mục On Click chọn Event Procedue
- Nhắp vào dấu ba chấm (…)
- Viết code cho phù hợp.
- Viết xong đóng lại và thử nghiệm
Code bài 1
Private Sub Command4_Click()
Dim a1, a2 As Control
Dim c3 As String
Set a1 = Me.data
Set a2 = Me.hienthi
a3 = a1
MsgBox “ket qua = ” & (a3)
a2 = a1
End Sub
Code bài 2
Code bài 3+4
