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

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

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

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

Set conn = CurrentProjectConnection
Set rs = New ADODBRecordset

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

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

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

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

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

以上就是关于access的vba用户定义类型未定义错误提示全部的内容，包括:access的vba用户定义类型未定义错误提示、、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！