我需要在Microsoft Access的登录表单上对此密码验证提供一些帮助...请理解这仅适用于学校项目,因此我不打算在此处创建一些超级强大的解决方案。 ;)
登录表单有一个用户名选择的组合框,它从我称为“用户”的用户表中查找记录,并且还有一个用于输入用户密码的字段(称为“Text8”)。 / p>
所以这就是我的代码:
Option Compare Database
Private Sub Command13_Click()
If IsNull(Me.Text8) Or Me.Text8 = "" Then
MsgBox "You must enter a Password.", vbExclamation
Me.Text8.SetFocus
Exit Sub
End If
End Sub
当我切换到表单视图时,将密码字段留空并单击按钮,没有任何反应......
一旦我弄明白,我将扩展代码并输入输入的用户名/密码并使其查找“用户”表中的记录以查看是否存在匹配 - 如果存在,它们将是允许访问。
答案 0 :(得分:2)
我怀疑没有任何反应,因为你的代码没有运行。检查命令按钮的click事件是否设置为[event procedure]
您可以通过设置断点并单步执行代码来确保达到代码。为此,将cusor放在合适的线上,比如第一行,然后按F9。现在,当您单击命令按钮时,如果代码完全正常工作,也就是说,如果到达子目录,则代码窗口将打开,您可以按F8单步执行代码。
您的代码没有任何问题,但我总是建议为控件使用合理的名称,而不仅仅是默认值。