iT邦幫忙

0

access 表單設計帳號密碼登入

我用access表單設計帳號密碼登入!

先把帳號密碼輸入在一個資料表
https://ithelp.ithome.com.tw/upload/images/20191116/20120843TdyJoI8sES.png

然後設計表單在開啟access時會出現輸入帳號密碼
https://ithelp.ithome.com.tw/upload/images/20191116/20120843cn9vhzh07D.png

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在開啟時帳號密碼會顯示在上面(不是應該空白讓我自己輸入嗎?)
上網找了好久....找不到原因????

dave3388 iT邦新手 5 級 ‧ 2019-11-19 09:53:38 檢舉
表單不要綁定"紀錄來源"(表單的屬性->紀錄來源是空的),登入_Click: VBA程式檢查帳號密碼是否正確!

1 個回答

0
海綿寶寶
iT邦大神 1 級 ‧ 2019-11-17 10:30:15
Private Sub Form_Load() 
 Me.Text1 = ""
 Me.Text2 = ""
End Sub

選我正解

我要發表回答

立即登入回答