tranthanhan1962 > 12-06-15, 08:38 AM
(12-06-15, 12:08 AM)xuannguyen13 Đã viết: ĐỀ BÀI
BÀI TẬP
Họ yêu cầu mình phải tạo combo box để lọc dữ liệu mình làm được nhưng cái phần nếu bỏ trống combo box phải xuất hiện thông báo "bạn chưa chọn mã KH" thì mình không làm được mong các bạn chỉ giúp.
Private Sub APPLY_Click()
If VarType(find.Value) = 8 Then
DoCmd.OpenForm "loc hoa don", acNormal, , "makh='" + find + "'"
Else
MsgBox "bạn chưa chọn mã KH", vbOKOnly, "Chú ý"
End If
End Sub