Ms access 为什么这个密码验证码不是';不行吗?

Ms access 为什么这个密码验证码不是';不行吗?,ms-access,vba,Ms Access,Vba,我需要一些关于在Microsoft Access登录表单上验证密码的帮助。。。请理解,这只是一个学校项目,所以我不想在这里创建一些超级健壮的解决方案 登录表单有一个用于用户名选择的组合框,可以从我称之为“用户”的用户表中查找记录,它还有一个用于输入用户密码的字段(称为“Text8”) 这就是我的代码: Option Compare Database Private Sub Command13_Click() If IsNull(Me.Text8) Or Me.Text8 = "" Then

我需要一些关于在Microsoft Access登录表单上验证密码的帮助。。。请理解,这只是一个学校项目,所以我不想在这里创建一些超级健壮的解决方案

登录表单有一个用于用户名选择的组合框,可以从我称之为“用户”的用户表中查找记录,它还有一个用于输入用户密码的字段(称为“Text8”)

这就是我的代码:

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
当我切换到表单视图时,将密码字段留空,然后单击按钮,什么都不会发生


一旦我弄明白了这一点,我将展开代码并获取输入的用户名/密码,让它查找“用户”表中的记录,看看是否有匹配项-如果有,他们将被允许访问。

我怀疑没有发生任何事情,因为您的代码没有运行。检查命令按钮的单击事件是否设置为
[事件过程]

您可以通过设置断点并单步执行代码来确保达到代码。要执行此操作,请将cusor放在合适的行上,说出第一行,然后按F9。现在,当您单击“命令”按钮时,如果代码完全正常工作,即如果已到达sub,代码窗口将打开,您可以按F8键逐步查看代码


您的代码没有问题,尽管我总是建议对控件使用合理的名称,而不仅仅是默认值。

它设置为[event procedure],我早在
Private Sub Command13_Click()
时就尝试设置断点,但它仍然无法运行。。。我能给你更多的信息来帮助你回答我的问题吗?你的代码对我来说运行得很好。你能备份然后压缩和修理吗?如果仍然有问题,可以反编译()。如果仍然不起作用,回到这里。感谢@Remou提供的所有帮助-我只是尝试了“压缩并修复”,但没有任何效果。我将在大约一个半小时后开始我的IT课程,所以我将看看它是否能在学校的计算机上工作。如果不行的话,我会发回这里。我非常怀疑学校的电脑是否能帮上忙。Access是一个基于文件的系统。+1所有好的建议,命名约定将使代码更易于阅读,而且绝对正确。文本框上的文本不是你想要的,我不敢相信人们经常会出错。