我用access表單設計帳號密碼登入!
先把帳號密碼輸入在一個資料表
然後設計表單在開啟access時會出現輸入帳號密碼
VBA內容如下:
Private Sub Command6_Click()
If IsNull(Me!Text1) = True Or Me!Text1 = "" Then
MsgBox "帳號欄空白!"
Text1.SetFocus '<====回欄位1
Exit Sub
Else
If IsNull(Me!Text2) = True Or Me!Text2 = "" Then
MsgBox "密碼欄空白!"
Text2.SetFocus
Exit Sub
End If
End If
If IsNull(DLookup("user", "test", "user='" & Text1 & "'")) Then
MsgBox "帳號錯誤"
Text1.SetFocus '<====回欄位1等帳號正確在執行下方驗證密碼
Exit Sub
Else
If IsNull(DLookup("userpassword", "test", "user='" & Text1 & "' and userpassword='" & Text2 & "'")) Then
MsgBox "密碼錯誤"
Text2.SetFocus '<====回欄位2
Exit Sub
End If
End If
MsgBox "登入成功"
DoCmd.OpenForm "功能表單"
DoCmd.Close acForm, "密碼輸入表單"
End Sub
但是很奇怪的是可以開啟時輸入帳號密碼後可以正常登入
但關閉ACCESS在開啟時帳號密碼會顯示在上面(不是應該空白讓我自己輸入嗎?)
上網找了好久....找不到原因????
Private Sub Form_Load()
Me.Text1 = ""
Me.Text2 = ""
End Sub
選我正解