Office中国论坛/Access中国论坛
标题:
[求助]为什么老是出现 编译错误 缺少列表分隔符或)
[打印本页]
作者:
何天宇
时间:
2007-6-1 03:38
标题:
[求助]为什么老是出现 编译错误 缺少列表分隔符或)
我编了一个access系统,最后要做一个用户登录系统。但老是出现编译错误。请哪位大哥帮我瞧瞧哈~~~
Option Compare Database
Dim gdt As String, gdl As Integer, gdi As Integer
Private Sub Cmd确定_Click()
On Error GoTo Err_Cmd确定Click
If Nz([Txt密码])=Nz(dLookup("[密码]","用户密码表","[用户名]="&"'"&Combo用户名&"'"))_
AndMe.Combo用户名 <>""Then '验证用户和密码)
Me.TimerInterval = 0
Me.Visible = False
DoCmd.Close acForm, "登录背景窗体", acSaveYes
DoCmd.OpenForm "切换窗体", acNormal, , , acFormReadOnly, acWindowNormal
Else
MsgBox "用户名或者密码错误!请重试!", , "请重新输入"
Me.Combo用户名.SetFocus
Me.Txt密码 = ""
End If
Exit_Cmd确定_Click
Exit Sub
Err_Cmd确定_Click:
MsgBox Err.Description
Resume Exit_Cmd确定_Click
End Sub
[em06][em06][em06][em06]
欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)
Powered by Discuz! X3.3