Hi,
I have a Sql code that works. I need to implement this code with a filter based in a variable. When I tried to import the sql in vba, I couldn't make it run. Could you help, please?
SELECT CLIENTI.IDCliente, CLIENTI.CodCliente, CLIENTI.NomeCliente, CLIENTI.RagioneSociale, CLIENTI.SettoreClienteID, CLIENTI.ClienteAttivo, CLIENTI.DataInizioRapporto, CLIENTI.Città, CLIENTI.Telefono
FROM CLIENTI
WHERE (((CLIENTI.CodCliente) Like "*" & forms!Risultati!SearchText & "*")) Or (((CLIENTI.NomeCliente) Like "*" & forms!Risultati!SearchText & "*"));
In vba I tried these measures:
to trasform " in chr(34) since it's used to enclode the code
however it doesn't work as it should
I have a Sql code that works. I need to implement this code with a filter based in a variable. When I tried to import the sql in vba, I couldn't make it run. Could you help, please?
SELECT CLIENTI.IDCliente, CLIENTI.CodCliente, CLIENTI.NomeCliente, CLIENTI.RagioneSociale, CLIENTI.SettoreClienteID, CLIENTI.ClienteAttivo, CLIENTI.DataInizioRapporto, CLIENTI.Città, CLIENTI.Telefono
FROM CLIENTI
WHERE (((CLIENTI.CodCliente) Like "*" & forms!Risultati!SearchText & "*")) Or (((CLIENTI.NomeCliente) Like "*" & forms!Risultati!SearchText & "*"));
In vba I tried these measures:
to trasform " in chr(34) since it's used to enclode the code
however it doesn't work as it should
Code:
Dim SQL As String
SQL = "SELECT CLIENTI.IDCliente, CLIENTI.CodCliente, CLIENTI.NomeCliente, " & _
"CLIENTI.RagioneSociale, CLIENTI.SettoreClienteID, CLIENTI.ClienteAttivo, " & _
"CLIENTI.DataInizioRapporto, CLIENTI.Città, CLIENTI.Telefono " & _
"FROM CLIENTI " & _
"WHERE (((CLIENTI.CodCliente) Like & chr(34) & chr(42) & chr(34) & [forms]![Risultati]![SearchText] & chr(34) & chr(42) & chr(34)))"
Me.SearchResults.RowSource = SQL