Buongiorno a tutti, ho bisogno di chiedere un aiuto per un operazione su una casella combinata.
Come forse qualcuno già sa non sono molto esperto di VBA, infatti dopo diversi tentati sono riuscito a mettere giù due righe di codice che mi consentono di fare una sorta di filtro in una casella combinata.
Private Function filter_by_letter()
Dim s, str As String
s = ActiveControl.Caption
str = "select [id],[qualifica],[cognome],[nome] from [q_elenco_generale] WHERE [cognome] like '" & s & "*'"
ListGeneral.RowSource = str
ListGeneral.Requery
ListGeneral.SetFocus
End Function
In pratica io ho in una maschera una casella combinata denominata
ListGeneral dove l'origine dei dati è una query denominata
q_elenco_generale. Questa funzione viene richiamata da dei 21 button che vanno dalla A alla Z e che quindi mi permettono di filtrare l'elenco valori della casella combinata in base alla Caption del button premuto. Cioè se faccio click sul button A, la casella combinata mi visualizza solo i cognomi che iniziano per A. Se se faccio click sul button B, la casella combinata mi visualizza solo i cognomi che iniziano per B e cosi via....fino alla Z.
Adesso il mio problema è che ho creato un altro button denominato
TUTTI dove al suo click vorrei che la casella combinata visualizzasse tutto l'elenco valori ripartendo dal primo cognome che inizia con la lettera A.
Ho fatto diversi tentativi, sia inserendo qualche rigo di codice in questa funzione, sia creando una sub nuova all'evento click del button TUTTI, ma senza riuscirci.
Sarei grato se qualcuno mi desso una mano per risolvere questo mio problema.
Grazie.