Office中国论坛/Access中国论坛

标题: 太莫名了。NZ函数的问题。 [打印本页]

作者: williamwangc 时间: 2011-7-6 21:31
标题: 太莫名了。NZ函数的问题。
本帖最后由 williamwangc 于 2011-7-6 21:40 编辑

我只是想做个用户登录界面的代码，先做了一个函数的测试。结果发现了一个很莫名的问题。
不论我在文本框me.name做不做数据怎么全是反映msgbox "a"？
怎么这都可能出错呢？
Private Sub login_Click()
If Nz(Me.name) <> "" Then
MsgBox "a"
Else
MsgBox "请输入用户名！", vbQuestion
End If
End Sub

作者: aslxt 时间: 2011-7-6 21:35
"Me.name"在access中指的是当前窗体的名称！

作者: williamwangc 时间: 2011-7-6 21:41
name是窗体的文本框控件。

作者: williamwangc 时间: 2011-7-6 21:42
本帖最后由 williamwangc 于 2011-7-6 21:44 编辑

哦。原来控件名称和属性名称重名了。要改名字吧。

作者: williamwangc 时间: 2011-7-6 23:12
本帖最后由 williamwangc 于 2011-7-6 23:16 编辑

Private Sub login_Click()
Dim sql1 As String
If Nz(Me.namein) <> "" Then
If isnull(DLookup("姓名", "表2", "姓名='& me.namein.value &'")) Then
MsgBox "该用户名不存在，请重新输入"
Me.namein = ""
Exit Sub
Else
   sql1 = "select [密码] from [表2] where [姓名]='& me.namein.value &'"
      If sql1 = "& me.password.value &" Then
      MsgBox "欢迎登陆"
      Else
      MsgBox "密码错误"
      Me.password = ""
      End If
End If
Else
MsgBox "请输入用户名！", vbQuestion
End If
End Sub

作者: williamwangc 时间: 2011-7-6 23:14
本帖最后由 williamwangc 于 2011-7-6 23:20 编辑

写了一些代码。想弄个简单的登录键的。帮我看看有哪些语法错误吧。我用正确的用户名，他还是显示我是错误的用户名。怪哉。

作者: aslxt 时间: 2011-7-6 23:32
isnull(DLookup("姓名", "表2", "姓名='& me.namein.value &'")) 改为：
isnull(DLookup("姓名", "表2", "姓名='" & me.namein.value & "'"))
sql1 = "select [密码] from [表2] where [姓名]='& me.namein.value &'"改为：
sql1 = DLookup("密码", "表2", "姓名='" & me.namein.value & "'")
测试一下

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