[求助]请求高手帮忙！登录窗体的编程问题

zbq_606

以下是一个登录窗体的“确定”控件的编码，但单击确定按钮后，显示“错误3075”，我初次接触access，实在是头大急了！

哪位好心人帮个忙吧？帮我看下有什么问题，谢谢了！（显示是红色那行有错误，但我不知道是错哪里？)

Private Sub 确定_Click()
Dim userID As Integer
If IsNull(Com用户) = False Then
If DLookup("[密码]", "系统用户", "[用户名]=""" & Com用户 & userID = DLookup("[id]", "系统用户", "[用户名]=""" & Com用户)) Then
DoCmd.close
DoCmd.OpenForm "主界面"
'form_主界面.User = userID
Else
txt密码 = ""
txt密码.SetFocus
MsgBox "密码错误!", vbCritical

End If
End If

End Sub

xsxsxslch

你这个语句有问题,呵,这是废话,你可以试着改成:

If DLookup("[密码]", "系统用户", "[用户名]=" & Com用户)=me.密码 and userID = DLookup("[id]", "系统用户", "[用户名]=" & Com用户) Then

不过虽然楼主没说后面的有问题,但我还是看不懂怎么回事!

[此贴子已经被作者于2008-4-26 18:02:27编辑过]