Passing SQL "Like" string from VB code into Query Parameter.

[ChaseCox]

I have a Database Called FalconAnalysis. mdb. The table I am wanting to use is called Generic Material. The Query I want to pass the value into is called Material Query. The field in the query is called Order_Model. I would like to pass the result, "strSize", from the following string of code into the Order_Model field of Material Query, which looks at generic Material Table.

Private Sub MakeFilter2()
 
strSize = ""
 
    If Nz(chkv2125S, False) Then _
            strSize = strSize & ",'150'"
    If Nz(chkv2125H, False) Then _
            strSize = strSize & ",'151'"
    If Nz(chkv215S, False) Then _
            strSize = strSize & ",'180'"
    If Nz(chkv215H, False) Then _
            strSize = strSize & ",'181'"
    If Nz(chkv2175S, False) Then _
            strSize = strSize & ",'210'"
    If Nz(chkv2175H, False) Then _
            strSize = strSize & ",'211'"
    If Nz(chkv220S, False) Then _
            strSize = strSize & ",'240'"
    If Nz(chkv220H, False) Then _
            strSize = strSize & ",'241'"
    If Nz(chkv225S, False) Then _
            strSize = strSize & ",'300'"
    If Nz(chkv225H, False) Then _
            strSize = strSize & ",'301'"
 
 
End Sub
 

I think it should be a like statment, any thoughts on how to do this?

[nico5038]

Why not create a table with the 150, 151, 180, 181, etc. values in a row and an additional checkbox.
Thus you can let the user check the rows in a datasheet subform and all needed is to join this additional table by the code to this table and add the criteria "True" for the checkbox.

Saves the code and you could use a simple UPDATE query to set/reset the checkbox on the form.

Idea ?

Nic;o)