Error 13 Type Mismatch

[jj1]

HI I have a login form on which I have an Ok button and what I am trying to do is match the user ID on the login form with the User ID in the tblUser. and also Password on the login form with Password in the table. If both matches I am trying to make few fields visible to few people. But I am getting Error 13 Type Mismatch.


Here is my code
Private Sub cmd_Ok_Click()
'Check that EE is selected
If IsNull(Me.cboUser) Then
MsgBox "You need to select a user!", vbCritical
Me.cboUser.SetFocus
Else
'Check for correct password
If Me.txtPassword = Me.cboUser.column(2) Then
'Check if password needs to be reset
If Me.cboUser.column(3) = True Then
DoCmd.OpenForm "frmPasswordChange", , , "[UserID] = " & Me.cboUser
End If
DoCmd.OpenForm "frmHomePage"
Me.Visible = False


Dim X As Integer
X = Nz(DLookup("UserID", "tblUser", "UserID='" & cboUser.column(0) & "'" And "Password='" & txtPassword & "'"))
If X = 57 Then
Forms!Formname!comboname.Visible = False
Else
MsgBox "Password does not match, please re-enter!", vboOkOnly
Me.txtPassword = Null
Me.txtPassword.SetFocus
End If
End If
End If

[ranman256]

The usu. means your doing something with text when it should be a number. (or vise versa)
maybe at: "[UserID] = " & Me.cboUser

if userID are strings like "bSmith" , then the code would need quotes: "[UserID] = '" & Me.cboUser & "'"

[jj1]

Thanks for the reply I just want to mention that the code is breaking at

X = Nz(DLookup("UserID", "tblUser", "UserID='" & cboUser.column(0) & "'" And "Password='" & txtPassword & "'"))

[ranman256]

It could be X is defined wrong...but in this case..I would use this if anything can be null...
(concat an empty string at the end...this way nulls cant crash it)

x =DLookup("UserID", "tblUser", "UserID='" & cboUser.column(0) & "'" And "Password='" & txtPassword & "'") & ""

[jj1]

No it still didn't worked

[ranman256]

Did you fix: DoCmd.OpenForm "frmPasswordChange", , , "[UserID] = " & Me.cboUser
quotes missing.