Buonasera vorrei chiedere una mano per risolvere (se è questa la strada giusta ovviamente) un problema che ho su una query di selezione.
In pratica ho una ListBox e a fianco una pulsantiera A/Z.
Lo scopo è quello di filtrare i record di una tabella in base alla Caption del button premuto. Esempio se premo il buttonA allora mi verranno elencati tutti i record il cui campo X inizia per A.
Solitamente faccio così:
Private Function FilterByLetter ()
Dim s as String
s = ActiveControl.Caption
s = "SELECT * FROM [tblElenco] WHERE [Campo] LIKE '" & s & *' ;"
ListBox.RowSourse = s
End Function
Ora vorrei ottenere una cosa un po' diversa. Cioè siccome il campo CAMPO è popolato da dati più o meno così:
6601 - Straordinari,
6404 - Informatico,
6600 - Sanitario,
ecc....
mi servirebbe che la ricerca parta dall'ottavo carattere perché altrimenti così com'è scritta la routine non troverà mai nulla. Ovvero deve omettere dalla ricerca i numeri, gli spazi e il trattino. Quindi se premo il buttonS nella ListBox dovrà comparire 6600 - Sanitario.
Spero di essermi spiegato in modo corretto e che si possa trovare una soluzione. Avevo pensato alla funzione MID() ma (se è la strada giusta) non so dove e come va inserita nella query.
Grazia a chi mi aiuta.