Run-time error '13' Type mismatch

[DCV0204]

Hello, I have a form that contains an unbound textbox named "Srch_MedID" my code below worked until I tried to search for an ID that contained an alpha. When I try to search lets say 'H445238' I receive the run-time error; if I search '1234567' it finds the record and opens the form. Can you tell me what I am missing?

Private Sub btnsrch_Click()
Dim MedID As String

' Get Value from Medicaid_ID textbox on the Form:
Me.SrchMed_ID.SetFocus
MedID = Me.SrchMed_ID.Text

Dim Msg, Style, Title, Response, MyString
If IsNull(DLookup("[Medicaid_ID]", "Returned_Mail", "Medicaid_ID = '" & SrchMed_ID & "'")) Then
DoCmd.OpenForm "RA_Tracking", , , , acFormAdd
Me.SrchMed_ID = ""
Else
If (DLookup("[Medicaid_ID]", "Returned_Mail", "Medicaid_ID = '" & SrchMed_ID & "'" & _
"And IsNull([SuppressDate])")) Then
DoCmd.OpenForm "RA_Tracking", , , "Returned_Mail.Medicaid_ID = '" & SrchMed_ID & "'"
Me.SrchMed_ID = ""

Else
MsgBox ("Do not log RA's for this Medicaid ID:" & (Chr(13)) & (Chr(13)) & " " & [SrchMed_ID] & (Chr(13)) & (Chr(13)) & "Recycle this providers RA's")
Me.SrchMed_ID = ""


End If
End If



End Sub


Thanks.

[orange]

A few things:

In Access,
strings are delimited with ".... eg MyString = "abcde" or "abc123"
dates are delimited with # ... eg #07/05/2013#
numbers/numerics have no delimiter ...eg MyNumber = 12345

Numbers can not have alpha characters.

This structure/syntax

Dim Msg, Style, Title, Response, MyString

Declares all of these to be of type Variant
Access requires you to explicitly define types, else you'll get Vaiant

Dim MyString as String, MyInt as Integer, MyLong as Long
or
Dim MyString as String
Dim MyInt as Integer
Dim MyLong as Long

[DCV0204]

Ok, I have changed my code to:

Private Sub btnsrch_Click()
Dim MedID As String
Dim SrchMed_ID As String
Dim Medicaid_ID As String

' Get Value from Medicaid_ID textbox on the Form:
Me.SrchMed_ID.SetFocus
MedID = Me.SrchMed_ID.Text

'Dim Msg, Style, Title, Response, MyString
If IsNull(DLookup("[Medicaid_ID]", "Returned_Mail", "Medicaid_ID = '" & SrchMed_ID & "'")) Then
DoCmd.OpenForm "RA_Tracking", , , , acFormAdd
Me.SrchMed_ID = ""
Else
If (DLookup("[Medicaid_ID]", "Returned_Mail", "Medicaid_ID = '" & SrchMed_ID & "'" & _
"And IsNull([SuppressDate])")) Then
DoCmd.OpenForm "RA_Tracking", , , "Returned_Mail.Medicaid_ID = '" & SrchMed_ID & "'"
Me.SrchMed_ID = ""

Else
MsgBox ("Do not log RA's for this Medicaid ID:" & (Chr(13)) & (Chr(13)) & " " & [SrchMed_ID] & (Chr(13)) & (Chr(13)) & "Recycle this providers RA's")
Me.SrchMed_ID = ""


End If
End If

End Sub

I no longer get the run-time error; but it will not find the record in my table for the Medicaid ID now.

[orange]

' Get Value from Medicaid_ID textbox on the Form:
Me.SrchMed_ID.SetFocus
MedID = Me.SrchMed_ID.Text

What is the name of the textbox on the Form? Is it Medicaid_ID

What is Me.SrchMed_ID ?

Can you post a copy of your database (no confidential info)?

[Missinglinq]

As orange is suggesting, this makes no sense! Your code that he included

Me.SrchMed_ID.SetFocus
MedID = Me.SrchMed_ID.Text

tells us that SrchMed_ID is a Control on your Form. But with this

Dim SrchMed_ID As String

you're telling us that SrchMed_ID is a Variable! It can't be both!

Then you do something similar with Medicaid_ID; you use it as a Field, in the DLookup:

If IsNull(DLookup("[Medicaid_ID]", "Returned_Mail", "Medicaid_ID = '" & SrchMed_ID & "'")) Then

but you declare it, too, as a Variable, with

Dim Medicaid_ID As String

and it simply can't be both. As orange said, you really need to strip it (of sensitive data) and zip it, and post it here for us to look at.

Linq ;0)>