Office中国论坛/Access中国论坛

标题: “类型不匹配”是什么意思？ [打印本页]

作者: yj11252551 时间: 2004-3-6 09:52
标题: “类型不匹配”是什么意思？
我借别人的例子做了一个登陆窗体，点“确定”后出现了“类型不匹配”的错误提示，各位高手可以给我看看吗？先谢了！下面是源码：（运行到红色的那行出错）
Private Sub Command1_Click()
Dim rst As Recordset
If IsNull(Me.Code) Then
      Me.Code.SetFocus
      Exit Sub
End If
If IsNull(Me.Password) Or Password = "" Then
      Set rst = CurrentDb().OpenRecordset("select * from tabGrpUser where ((GrpUsrID='" & Code & "') And (PassWord Is Null Or PassWord='') );")
Else
      Set rst = CurrentDb().OpenRecordset("select * from tabGrpUser where ((GrpUsrID='" & Code & "') And (PassWord='" & Password & "') );")
End If
If Not rst.EOF Then
      Me.UsrName = rst![GrpUsrName]
      Me.Visible = False
      DoCmd.Close acForm, "登陆背景"
      Me.TimerInterval = 0
      DoCmd.Close acForm, Me.Name
      DoCmd.OpenForm "控制台"

Else
      Me.Password.SetFocus
End If

End Sub

[此贴子已经被作者于2004-3-6 1:54:37编辑过]

作者: majian77 时间: 2004-3-6 16:07
看一下Code，Password在你表中的类型。
如果是字符型在VBA中是:'" & Code & "' '" & Password & " '
但如果是数字型，在VBA中应是： " & Code & " " & Password & "

作者: yj11252551 时间: 2004-3-6 17:45
GrpUsrID、PassWord都是文本型的字段名，Code、Password是两个文本对话框的名字，还晕~~~~~~~~~~~~

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