Question

我在Microsoft Access上创建了一个登录表单。问题是所选用户的数据只是“用户”表中的第一行。当我在“用户”表中以第二个用户身份登录时，它显示错误的用户名/密码。此登录表单中的两个相关字段是“登录”和“密码”。点击以下链接查看我的代码截图

screenshot of codes

Answer 1

你嫁给了这个设计吗？因为你真的应该使用VBA进行登录。如果你这样做，那就是小菜一碟：

Sub Login_Click()

If isnull(me.Login) or me.Login = "" then
  msgbox "Please provide a login name"
  exit sub
end if

If isnull(me.Password) or me.Password = "" then
  msgbox "Please provide a Password"
  exit sub
end if

Dim db = currentDB
Dim rec = db.OpenRecordset("Select * from tblLogin where fldLogin = '" & me.Login & "'")

If rec("fldPassword") <> me.Password then
  msgbox "Sorry, passwords don't match"
  exit sub
else
  msgbox "Successfully logged in"
end if

'**********************
'  Do whatever you want to do once a person is successfully logged in 
'**********************    

end sub

以上是航空代码，但可能是95％正确。只需添加一个人成功登录后您需要添加的内容即可。

Microsoft Access 2013：仅选择表中的第一行

1 个答案: