Question

access的vba用户定义类型未定义错误提示

代码如下：
Private Sub login_Click()
Set conn = CurrentProject.Connection
Set rs = New ADODB.Recordset
rs.Open "管理用户", conn '管理用户是一个管理员的用户名和密码的数据表

Dim username As String
Dim userpass As String

txt_用户名.SetFocus
username = txt_用户名.Text
userpass = txt_密码.Text

If IsNull(username) Or IsNull(txt_密码.Value) Then '判断用户名和密码是否为空
MsgBox "用户名或密码不能为空，请重新输入！", vbOKOnly + vbInformation, "提示信息"
Else
If username <> rs!用户名 Or userpass <> rs!密码 Then '判断用户名和密码是否正确
MsgBox "用户名或密码不正确，请重新输入！", vbOKOnly + vbInformation, "提示信息"
txt_用户名.SetFocus
txt_用户名.Text = ""
txt_密码.SetFocus
txt_密码.Value = ""
txt_用户名.SetFocus
Else
'将登陆时间记入数据库
rs.Close
rs.Open "管理员登录记录", conn, adopendynamic, adlockoptimistic
rs.AddNew
rs!用户名 = username
rs!登录时间 = Now()
rs!退出时间 = CDate(0)
rs.Update
rs.Close
DoCmd.Close
DoCmd.OpenForm "机料管理系统"
End If
End If
End Sub
总是提示”用户定义类型未定义“
不知道错在哪里了，各位兄弟姐妹帮我看看先

Answer 1

贴出的代码问题挺多的（包括用错属性和代码逻辑及其先后秩序不正确等）。使用ADO检索数据表确实比较麻烦，其实核对用户名和密码使用Dlookup函数会简便得多。

根据帖出的代码原意和思路，建议修改、调整如下：
对不起之前的代码有笔误，现予以更正，运行如有问题请追问

Private Sub login_Click()
'先声明ADO对象等变量
Dim conn As New ADODB.Connection
Dim rs As ADODB.Recordset
Dim username As String
Dim userpass As String
Dim RecordLogInData As Boolean '此变量用于判断是否记录登录信息

Set conn = CurrentProject.Connection
Set rs = New ADODB.Recordset

'先判断两个文本框是否为空
If IsNull(Me.txt_用户名.Value) then
MsgBox "用户名不能为空，请重新输入！", vbOKOnly + vbInformation, "提示信息"
Me.txt_用户名.SetFocus
Exit Sub
ElseIf IsNull(Me.txt_密码.Value) then
MsgBox "密码不能为空，请重新输入！", vbOKOnly + vbInformation, "提示信息"
Me.txt_密码.SetFocus
Exit Sub
End If

'打开“管理用户”数据表
rs.Open "管理用户", conn '管理用户是一个管理员的用户名和密码的数据表

'TEXT属性只有在文本框获得焦点的情况下才可使用，
'大多数情况下引用文本框内容应该使用Value属性而不是TEXT属性
username = txt_用户名 '注意不要使用TEXT属性，否则会出错（这里使用默认属性VALUE）
userpass = txt_密码 '注意同上

'循环判断用户名和密码是否对得上,注意要逐条记录比对
'原帖代码没有考虑这个问题，它只有在管理用户表刚好只有一条记录时才能正确运行
If rs.Recordset.RecordCount>0 then
Do Until rs.Eof
If rs!用户名=username And rs!密码=userpass Then
RecordLogInData =True ' 用户名和密码均正确，则标识可以记录登录信息
Exit Do '此时已经没必要继续下去，跳出循环以节省系统开销
rs.MoveNext '***之前漏掉了*****
Loop
else
MsgBox "管理用户表没有任何用户资料！", vbOKOnly + vbInformation, "提示信息"
Exit Sub
End If

'将登录信息写入“管理员登录记录”数据表
rs.Close
If RecordLogInData =True then
rs.Open "管理员登录记录", conn, adopendynamic, adlockoptimistic
rs.AddNew
rs!用户名 = username
rs!登录时间 = Now()
'现在登出时间还不确定，暂时无需记录它
rs.Update
rs.Close
DoCmd.Close
DoCmd.OpenForm "机料管理系统"
else
MsgBox "管理用户或密码错误！", vbOKOnly + vbInformation, "提示信息"
Me.txt_密码.SetFocus
Exit Sub
End if
End Sub

追问

仍然提示：
用户定义类型未定义
不知道为什么

追答

应该还存在其他原因，仅凭提问中的资料很难找出来。请将你的数据库发到我的邮箱里，我全面检查一下。邮箱地址请看私信

追问

找到了，是引用的问题，少引用了一些东西。不过，我是从你的代码中学习了些内容，稍微修改了下我的代码就通过了，就是管理用户，只能有一个用户登录能成功，两个的话，就不行。永远是那一个用户登录成功。

追答

问题解决了就好。恭喜你

追问

谢谢！

Answer 2

先检查有没有打错字母 或者少打符号吧 上学时学的现在完全不懂了_(:3」ㄥ)_ 抱歉