I have the following code linked to an event. when I run this I am getting a run time error that says "Data type mismatch in criteria expression" Any ideas on what could be the problem?
Private Sub Command2_Click()
If IsNull(DLookup("[Acct#]", "qryTest", "[Acct#]=" & Forms![Form]![Account])) = True Then
If IsNull(DLookup("[Acct#]", "qryTest2", "[Acct#]=" & Forms![Form]![Account])) = False Then
DoCmd.OpenQuery "qryTest2", acNormal
Else
MsgBox "The Account Number was not found"
End If
Else
DoCmd.OpenQuery "qryTest", acNormal
End If
End Sub
Private Sub Command2_Click()
If IsNull(DLookup("[Acct#]", "qryTest", "[Acct#]=" & Forms![Form]![Account])) = True Then
If IsNull(DLookup("[Acct#]", "qryTest2", "[Acct#]=" & Forms![Form]![Account])) = False Then
DoCmd.OpenQuery "qryTest2", acNormal
Else
MsgBox "The Account Number was not found"
End If
Else
DoCmd.OpenQuery "qryTest", acNormal
End If
End Sub