Question

I’m using Access 2007.

I have a txt box that filters a subform called fsGetRFIDOwnership.

The code i’m using is below in afterupdate of txtbox.

Me.fsGetRFIDOwnership.Form.Filter = “RFID = ‘” & Me.txtSearch & “‘ OR Country = ‘” & Me.txtSearch & “‘ OR BuildingName = ‘” & Me.txtSearch & “‘ OR RFIDType = ‘” & Me.txtSearch & “‘”

The problem i’m having that this worked all fine until i added the search by RFID as well, RFID is an autonumber. And now i just get a data mismatch error. The other fields are text. What exactly is going wrong here and how can i fix it? Or is there a better way of doing this?

Cheers tchadwik

Answer 1

Do not use quotes for numeric fields:

Me.fsGetRFIDOwnership.Form.Filter = "RFID = " & Me.txtSearch _
& " OR Country = '" & Me.txtSearch & "' OR BuildingName = '" _
& Me.txtSearch & "' OR RFIDType = '" & Me.txtSearch & "'"

Edit

sCriteria = "Cstr(RFID) = '" & Me.txtSearch _
& "' OR Country = '" & Me.txtSearch & "' OR BuildingName = '" _
& Me.txtSearch & "' OR RFIDType = '" & Me.txtSearch & "'"

If DCount("ID","MyTable", sCriteria)>0 Then
    Me.fsGetRFIDOwnership.Form.Filter = sCriteria
    Me.fsGetRFIDOwnership.Form.FilterOn = True
End If