Office中国论坛/Access中国论坛

标题: 登陆程序的问题 [打印本页]

作者: huoran 时间: 2006-9-8 04:36
标题: 登陆程序的问题
请指正下面两段登陆程序分别有什么问题，并改正，谢谢！
（1）
If IsNull(用户名) = False Then
Dim rst As New ADODB.Recordset
Dim strSQL As String
strSQL = "SELECT 密码 FROM 用户权限表 WHERE 用户名 = " & Me.用户名
rst.Open strSQL, CurrentProject.Connection, adOpenStatic
If rst.RecordCount > 0 Then
      If rst("密码") = Me.密码 Then
      DoCmd.Close acForm, "登录"
      DoCmd.OpenForm "主窗体"
End If
Else
…………
End If
程序提示说至少有一个参数未定义

（2）
If IsNull(用户名) = False Then
  If DLookup("[密码]", "用户权限表", "[用户名] =" & Me.用户名) = Me.密码 Then
DoCmd.Close acForm, "登录"
DoCmd.OpenForm "主窗体"
Else
  …………
dlookup函数不太会用，请帮忙改正！

作者: lanchong 时间: 2006-9-8 05:28
1 设定引用adox

2 DLookup("[密码]", "用户权限表", "[用户名] ='" & Me.用户名& "'") = Me.密码

作者: huoran 时间: 2006-9-8 05:52
第一个不懂，第二个我试了还是有问题的，编译错误缺少列表分隔符或）[em11]

作者: lanchong 时间: 2006-9-8 06:02
DLookup("[密码]", "用户权限表", "[用户名] ='" & Me.用户名 & "'") = Me.密码

作者: huoran 时间: 2006-9-8 06:46
和上面那个有什么区别吧？

作者: huoran 时间: 2006-9-8 06:50
真的可以了，上面那个是不是有中文字符，谢谢啦！

作者: 一点通 时间: 2006-9-8 06:51
或许你将示例传上来让人调试一下

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)