Querydef with a wild card

[thegameoflife]

How do i add a wild card search on txtprovname ???

where = Null
where = where & " AND [Member_Name] = '" + Me!txtmembername + "'"
where = where & " AND [Provider_Name] = '" + Me![txtprovname] + "'"
where = where & " AND [Member_Num] = '" + Me![txtmembernum] + "'"
where = where & " AND [Claim_Num] = '" + Me![txtclaim] + "'"
where = where & " AND [Tax_ID] = '" + Me![txtTaxid] + "'"
where = where & " AND [Provider_Num] = '" + Me![txtprovidernum] + "'"

Set QD = db.CreateQueryDef("Dynamic_Query", _
      "Select * from Tbl_Aus_History " & (" where " & Mid(where, 6) & ";"))

Me.Frm_Search_Subform.Form.RecordSource = "Dynamic_Query"

 

[randysmid]

Hi,
To use the wildcard, use code similar to the following. In essence, you are replacing the equal sign with the keyword "like". And, if you are looking for any string embedded inside your textbox, then you need to encase the string in *'s:
Instead of this:
[Tax_ID] = '" + Me![txtTaxid]
Use this:
[Tax_ID] like '*" & Me![txtTaxid] & "*'"

Your string will look like this:
[Tax_ID] like '*234*'
This code will return all records that contain '234' anywhere inside the Tax_ID field. HTH,
Randy Smith
California Teachers Association

 

[thegameoflife]

perfect... thank you

where = Null
where = where & " AND [Member_Name] = '" + Me!txtmembername + "'"
where = where & " AND [Provider_Name] Like '*" & Me![txtprovname] & "*'"
where = where & " AND [Member_Num] = '" + Me![txtmembernum] + "'"
where = where & " AND [Claim_Num] = '" + Me![txtclaim] + "'"
where = where & " AND [Tax_ID] = '" + Me![txtTaxid] + "'"
where = where & " AND [Provider_Num] = '" + Me![txtprovidernum] + "'"

Set QD = db.CreateQueryDef("Dynamic_Query", _
      "Select * from Tbl_Aus_History " & (" where " & Mid(where, 6) & ";"))

Me.Frm_Search_Subform.Form.RecordSource = "Dynamic_Query"