‘ 這一段是用來檢查有沒有輸入用戶名或密碼的
If IsNull(Trim(Me.username )) Then
DoCmd.Beep
MsgBox ("請輸入用戶名稱! ")
Else
If IsNull(Trim(Me.password )) Then
DoCmd.Beep
MsgBox ("請輸入密碼! ")
Else
‘ 以下是用來與[登陸表]做對比的
Me.RecordSource = "select * from 登陸表 where 用戶名 = ‘" & Me.username & "‘ and 密碼 =‘" & Me.password & "‘"
‘Set rs = GetRS(str)
If Me.Recordset.EOF Then
DoCmd.Beep
MsgBox ("沒有這個用戶或密碼有誤 , 請重新輸入! ")
Me. username = ""
Me. password = ""
Me. username .SetFocus
Exit Sub
Else
DoCmd.Close
‘ 試用版使用次數的限制
If n = 50 Then
DoCmd.Close
Else
n = n + 1
MsgBox ("歡迎使用承德縣幹部管理系統! ")
check = True ‘ 設置登陸標誌
DoCmd.OpenForm ("主查詢窗體 ")
End If
End If
End If

access登錄校驗代碼二