Question

access窗体 登陆按钮代码问题

就是做这样的一个登陆窗体，在写完登陆按钮的代码后，按登陆按钮时却出现了“编译错误：方法和数据成员未找到”。

代码是这样的：
Private Sub Command10_Click()
If IsNull(用户名) = False Then
If DLookup("[密码]", "管理员", "[用户名]=""" & 用户名 & """") = 密码 Then
DoCmd.Close
DoCmd.OpenForm "主窗体"
Else
密码 = ""
密码.SetFocus
MsgBox "密码错误！", vbCritical
End If
End If
End Sub

请问是哪里出错了？？





Answer 1

可能错误原因有以下
一、出错原因：窗体控件名称与代码名称不一致
解决方法：把控件名称改成跟代码里面调用的名称一致 (一般是文本框名称写错，如名称命名到标签上，造成误认为命名到文本框)
二、出错原因：对象的属性名或方法名写错
解决方法：尽量使用VB的自动列出成员功能：当准确拼写出对象名和 . 后，系统自动会列出该对象在运行态可用的属性和方法，用户可以定位后按TAB键或空格键或双击鼠标快速准确录入。这样既可减少录入，也可防止此类错误的出现。

DLookup 后面的变量格式也不对
数值型: DLookup ("字段","表名","字段名="&数值型变量)
文本型: DLookup ("字段","表名","字段名='"& 文本型变量 &"'")
日期型: DLookup ("字段","表名","字段名=#"& 日期型变量 &"#")