[VBA] Access Combo Box

[luigi76]

Salve sono profano in VBA sotto access
Ho un una combo box e voglio che all'evento change di questo a secondo del parametro selezionato passo questo parametro ad una query e a sua volto popolo un altro combo con la combinazione di valore il valore id e la descrizione.
Ringrazio vivamente tutti coloro potranno aiutarmi

[Don Navarro]

Sull'evento change (AfterUpdate forse è meglio) della combo1 basta cambiare la query dell' origine dati della Combo2 filtrando per le condizioni che ti servono.
Esempio:

    Me.Combo2.RowSource = "Select * from tabella where id=" & Me.Combo2
    Me.Combo2.Requery

[luigi76]

scusa ma la query di origine come si cambia non mi e' chiaro io ho fatto cosi ma il risultato e' che mi visualizza solo i primi valori del recordset

Private Sub Combo26_BeforeUpdate(Cancel As Integer)
Me.categoria.RowSource = "Select * from sottocategoria where id_sottocategoria=" & Me.Combo26
Debug.Print Me.Combo26
Me.categoria.Requery
End Sub
Grazie ancora

[Don Navarro]

Se per primi valori del recordset intendi i primi campi guarda il numero di colonne della ComboBox. Se non sono abbastanza ti visualizza solo le prime.
Sei sicuro che il codice lo vuoi inserire nell'evento BeforeUdpate?

[luigi76]

intendo il primo record

[Don Navarro]

La query di origine la cambi con l'istruzione [Combo1.rowsource=...]
Il codice che hai scritto mi sembra regolare, così come scritto filtri per una id_sottocategoria specifico che, se come penso è il campo Id della tabella, è univoco quindi ti restituirà un solo record.
Probabilmente devi adattare la condizione WHERE per i parametri per i quali vuoi filtrare.

[luigi76]

up

[luigi76]

Nessuno puo darmi un aiuto
mi restituisce solo il primo record

[Markho]

scusa ma la query di origine come si cambia non mi e' chiaro io ho fatto cosi ma il risultato e' che mi visualizza solo i primi valori del recordset

Private Sub Combo26_BeforeUpdate(Cancel As Integer) 
Me.categoria.RowSource = "Select * from sottocategoria where id_sottocategoria=" & Me.Combo26 
Debug.Print Me.Combo26 
Me.categoria.Requery 
End Sub

non potresti aprire una nuova recordset, scorrerla e ripopolare la combo

[luigi76]

come si popola la combo non lo so fare