sau đây là vấn đề nan giải . chuyện là mình có trình quản lý vật tư . nhưng khi tạo thành front end và back end thì gập rắc rối . với form đăng nhập .
và đoạn code em nó đây :
phần chữ màu đỏ trở xuống là phần code có vấn đề . không biết bị gì mà nó làm báo thế này. mong mọi người giúp đở .
và đoạn code em nó đây :
Private Sub CmdDN_Click()
Dim Msg As Variant
Dim varPassword As String
' Doan code khong cho Control cbUserName trong hay rong
If IsNull(Me.CBUser) Or Me.CBUser = "" Then
MsgBoxUni DLookup("[Description]", "symsglib", "[msgNo] = 13"), vbCritical, DLookup("[msgtitle]", "symsglib", "[msgNo] = 13")
Me.CBUser.SetFocus
Exit Sub
End If
' Doan code khong cho Control txtPassword trong hay rong
If IsNull(Me.txtpass) Or Me.txtpass = "" Then
Msgs = MsgBoxUni(DLookup("[Description]", "symsglib", "[msgNo] = 13"), vbOKOnly, DLookup("[msgtitle]", "symsglib", "[msgNo] = 13"))
If Msgs = vbOK Then
Me.txtpass.SetFocus
End If
Exit Sub
End If
If CBUser = ID Then
If txtpass = Pass Then
Dim DB As Database
Dim rs As Recordset
Set DB = CurrentDb
Set rs = DB.OpenRecordset("T_loginluu", dbOpenTable)
rs.AddNew
rs.Fields("ID") = CBUser
rs.Fields("time") = txttimer
'....
rs.Update
rs.Close
Set DB = Nothing
varPassword = DLookup("Pass", "T_Login", "ID ='" & Me.CBUser & "'")
If Me.txtpass = varPassword Then
GvarID = Me.CBUser
GvarUserName = User
DoCmd.Close acForm, Me.Name
MainFormOpen
Else
MsgBoxUni DLookup("[Description]", "symsglib", "[msgNo] = 10"), vbCritical, DLookup("[msgtitle]", "symsglib", "[msgNo] = 10")
Me.txtpass.SetFocus
Exit Sub
End If
' DoCmd.Close acForm, "F_login", acSaveYes
Else
Msg = MsgBoxUni(DLookup("[Description]", "symsglib", "[msgNo] = 10"), vbOKCancel, DLookup("[msgtitle]", "symsglib", "[msgNo] = 10"))
End If
Else
Msg = MsgBoxUni(DLookup("[Description]", "symsglib", "[msgNo] = 9"), vbOKCancel, DLookup("[msgtitle]", "symsglib", "[msgNo] = 9"))
End If
End Sub
phần chữ màu đỏ trở xuống là phần code có vấn đề . không biết bị gì mà nó làm báo thế này. mong mọi người giúp đở .