技術(shù) 點
- 技術(shù)
- 點
- V幣
- 點
- 積分
- 9230
|
2#
發(fā)表于 2009-7-6 08:25:16
|
只看該作者
將登入的代碼修改如下:
Private Sub cmdOK_Click()
If Me.cboUserID = "" Or IsNull(Me.cboUserID) Then Exit Sub '沒有選擇用戶不處理
If Me.Password = "" Or IsNull(Me.Password) Then Exit Sub '沒有輸入密碼不處理
If Trim(Me.Password) = Trim(DLookup("[password]", "user", "[UserID]=" & Me.cboUserID)) Then
DoCmd.OpenForm ("Main")
GuserID = Me.cboUserID
Call insertLogo("用戶登陸")
Me.Visible = False
Else
MsgBox "Password is error,please retype again", vbOKOnly, "Note"
Me.Password.SetFocus
End If
End Sub |
|