Tôi viết một số dòng lênh như sau:
Private Sub Command21_Click()
Select Case Thihanh
Case 1
DoCmd.Close
DoCmd.OpenForm "Xep_Lop", acNormal
Beep
Case 2
DoCmd.Close
DoCmd.OpenForm "Xeplop_XETTUYENNV1", acNormal
Beep
Case 7
DoCmd.OpenQuery "Xoa_Xeplopmoi", acNormal
Thongbao = Thongbao & "Da thuc hien xong ?"
MsgBox Thongbao, vbOKOnly, "Truong Minh Tam noi rang:"
Case 8
DoCmd.OpenQuery "Xeplop_Xong", acNormal
Thongbao = Thongbao & "Da thuc hien xong ?"
MsgBox Thongbao, vbOKOnly, "Truong Minh Tam noi rang:"
End Select
End Sub
Khi chạy nó vẫn thi hành lệnh nhưng lại báo lỗi ở dòng này:
Thongbao = Thongbao & "Da thuc hien xong ?"
MsgBox Thongbao, vbOKOnly, "Truong Minh Tam noi rang:"
Nhờ các bác sữa dùm.
Sao diễn đàn bây giờ không cho up ảnh lên ta ?