Jokertegn og In()

If you build the SQL dynamically in code then why not just NOT include the LIKE and IN?

and dont forget you have another question open :o)
http://www.eksperten.dk/spm/809218

Sorry :-)

Hi Terry

Do you have an example of this dynamic code ?

How are you doing it at the moment? I dont think you are building the IN() in a query.

At the moment I use this :

Private Sub ListFirma_AfterUpdate()
Dim Q_1 As QueryDef, DB As Database
Dim Criteria_1 As String
Dim ctl_1 As Control
Dim Itm_1 As Variant

Set ctl_1 = Me![ListFirma]

For Each Itm_1 In ctl_1.ItemsSelected
    If Len(Criteria_1) = 0 Then
        Criteria_1 = Chr(34) & ctl_1.ItemData(Itm_1) & Chr(34)
    Else
        Criteria_1 = Criteria_1 & "," & Chr(34) & ctl_1.ItemData(Itm_1) _
        & Chr(34)
    End If
   
Next Itm_1

    ListCriteria_1.Value = Criteria_1

Set DB = CurrentDb()
Set Q_1 = DB.QueryDefs("Multiselect")
Q_1.SQL = "Select * From Multiselect_all Where [AAAXCD] In(" & Criteria_1 & _
    ");"

Me.Refresh
    Me.Requery

End Sub

well I think your almost there although I'm not sure I understand you rcode 100%.
You need to split the .SQL into two parts, one for the SELECT.. and one for the WHERE

Something like this

Dim sWhere as string

'Rest of code goes here

sWhere = ""
If Len(Criteria_1) > 0 Then
sWhere = " Where [AAAXCD] In(" & Criteria_1 & _
    ")"
End if
Q_1.SQL = "Select * From Multiselect_all " & sWhere

not tested but it cant be far off

It works .... thanks !

selv tak