下面是我做的方法

先建立一個使用者表，裡面有使用者名稱葛密碼，，，然後弄兩個文字框，一個名為name，一個為名為password 在登入按鈕用VBA程式碼，程式碼如下：

If IsNull(Me![name]) Then

MsgBox "請選擇用登入使用者!", 64, "系統提示"

Me![name].SetFocus

Else

If IsNull(Me![password]) Then

MsgBox "請輸入密碼,密碼不能為空!", 64, "系統提示"

Me![password].SetFocus

Else

Dim stemp As String

Dim rs As ADODB.Recordset

Set rs = New ADODB.Recordset

stemp = "select * from 使用者表 where 使用者名稱='" & Me![name] & "'"

rs.Open stemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

If rs("密碼") <> Me![password] Then

MsgBox "密碼錯誤,請重新輸入!", vbOKOnly, "系統提示"

Me![password] = ""

Me![password].SetFocus

Else

DoCmd.Close

DoCmd.OpenForm "主選單"

End If

End If

End If

下面是我做的方法先建立一個使用者表，裡面有使用者名稱葛密碼，，，然後弄兩個文字框，一個名為name，一個為名為password 在登入按鈕用VBA程式碼，程式碼如下：If IsNull(Me![name]) ThenMsgBox "請選擇用登入使用者!", 64, "系統提示"Me![name].SetFocusElseIf IsNull(Me![password]) ThenMsgBox "請輸入密碼,密碼不能為空!", 64, "系統提示"Me![password].SetFocusElseDim stemp As StringDim rs As ADODB.RecordsetSet rs = New ADODB.Recordsetstemp = "select * from 使用者表 where 使用者名稱='" & Me![name] & "'"rs.Open stemp, CurrentProject.Connection, adOpenKeyset, adLockOptimisticIf rs("密碼") Me![password] ThenMsgBox "密碼錯誤,請重新輸入!", vbOKOnly, "系統提示"Me![password] = ""Me![password].SetFocusElseDoCmd.CloseDoCmd.OpenForm "主選單"End IfEnd IfEnd If