[VBA/ACCESS] Inclusione parametri testuali in query che fa uso di LIKE

[Ultrareflex_New]

Salve a tutti..

Mi chiedevo se esiste, con una select, la possibilità di ridurre il codice in un campo ricerca..
Mi spiego meglio con un esempio:

Dim ra As String
If IsNull(Me.RagioneSociale) Then
ra = "%"
Else
ra = Me.RagioneSociale
End If
StrSQL = "SELECT * FROM tblFornitori where RagioneSociale like '%" + ra + "%'"

Ecco.. non si può fare tutto da select senza passare precedentemente ad una stringa il valore della casella di testo casomai vuota??

Grazie mille!!!!

Ultra

[Brainjar]

Due cose :
1) Controlla il 'senso' della tua IF .....
2) Potresti utilizzare le Stored Procedure con Parametri.

[chico62]

Nel caso specifico potresti usare Replace.
Ad esempio:

StrSQL = "SELECT * FROM tblFornitori where RagioneSociale like " & Replace("'%" & ra & "%'", "%%", "%")

Ciauz

Chico

[Ultrareflex_New]

Ciao chico62.. mica ho capito..

ra o meglio la variabile ra.. potrebbe essere vuota.. quindi inserendo la tua stringa, mi ridarebbe un errore "NULL" nel caso fosse vuota.... con il mio metodo funziona benissimo.. ma immagina quando hai 15 o più campi di ricerca.. devi creare un if.. null allora scrivi % per ogni campo..
io volevo solo evitare di scrivere tanto codice.. non pensi che esista qualcosa che sia simile a quello che ho scritto io ma che può essere scritto direttamente nella select??

Grazie mille...

Ultra