Câu lệnh cho Form đăng nhập (1 người xem)

[phuyen89]

Chào mọi người.Trong Form đăng nhập có hai Textbox là txtuser và txtpassword.Và hai nut Command button.Xay ra trường hợp sau mà em không biết dùng như thế nào.
Nếu người dùng không đánh vào ô User và ô Password thì đưa ra thông báo là:Bạn chưa nhập User và Password.
Làm như thế này mai mà nó không ra.
If txtuser="" and txtpassword="" then
Msgbox "Ban chưa nhập User và password",vbCritical,"Chào bạn"
end if
Làm thì như thế nhưng mà nhấn nút nó cứ tro,trơ không chịu làm việc,nghĩ hẳn cau lệnh biái,nhờ các bác giúp khắc phụ lại.

 

[comaynz]

Nếu người dùng không đánh vào ô User và ô Password thì đưa ra thông báo là:Bạn chưa nhập User và Password.
Làm như thế này mai mà nó không ra.
If txtuser="" and txtpassword="" then
Msgbox "Ban chưa nhập User và password",vbCritical,"Chào bạn"
end if
Làm thì như thế nhưng mà nhấn nút nó cứ tro,trơ không chịu làm việc,nghĩ hẳn cau lệnh biái,nhờ các bác giúp khắc phụ lại.

Bạn gán txtuser ="" Làm vậy thì không ra đâu.
Bạn hãy dùng hàm Isnull.
vd:
Private Sub cmddn_Click()
If IsNull(txtuser) = True Or IsNull(Txtpass) = True Then
MsgBox " Ban chưa nhập User và password",vbCritical,"Chào bạn"
Else
'cac xu ly khac
End If
End Sub