access2010代码生成器出现错误子过程或函数未定义 20
PrivateSubCMD_Click()IfIsNull(tname)ThenMsgBox"请输入会员ID"ElseIfIsNull(tpassword)ThenMsg...
Private Sub CMD_Click()
If IsNull(tname) Then
MsgBox "请输入会员ID"
ElseIf IsNull(tpassword) Then
MsgBos "请输入密码"
ElseIf tpassword = DLookup("密码", "客户信息表", "会员ID=tname") Then
MsgBox "登录成功！"
DoCmd.Close
DoCmd.OpenForm "客户信息管理系统"
Else
MsgBox "会员ID或密码错误"
tname = Null
tpassword = Null
tname.SetFocus
End If
End Sub 展开
If IsNull(tname) Then
MsgBox "请输入会员ID"
ElseIf IsNull(tpassword) Then
MsgBos "请输入密码"
ElseIf tpassword = DLookup("密码", "客户信息表", "会员ID=tname") Then
MsgBox "登录成功！"
DoCmd.Close
DoCmd.OpenForm "客户信息管理系统"
Else
MsgBox "会员ID或密码错误"
tname = Null
tpassword = Null
tname.SetFocus
End If
End Sub 展开
1个回答
展开全部
tname 在哪定义的？tpassword呢？
还有DLookup("密码", "客户信息表", "会员ID='" &tname&"'"这样才行。。。
还有DLookup("密码", "客户信息表", "会员ID='" &tname&"'"这样才行。。。
更多追问追答
追问
tname和tpassword是窗体里面的两个文本框改了之后还是不行
追答
发来
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
