Come visualizzare elenco report in casella combinata di Microsoft Access

Microsoft Access

Se ti stai chiedendo come visualizzare elenco report in casella combinata di Microsoft Access, sono sufficienti poche linee di codice.

Immaginiamo di avere una casella combinata che si chiama cboElencoReport.

Impostiamo il tipo origine riga su “Elenco valori”.

Ora nell’evento Su apertura della maschera inseriamo il seguente codice:

Private Sub Form_Open(Cancel As Integer)
Dim objAccObj As AccessObject
' cancello la lista di valori
cboElencoReport.RowSource = ""
' eseguo un ciclo sui report contenuti nel database
For Each objAccObj In Application.CurrentProject.AllReports
 ' aggiungo il nome del report alla casella combinata
 cboElencoReport.AddItem objAccObj.Name
Next objAccObj
End Sub

Ora possiamo aprire il report in anteprima, scegliendolo dalla casella combinata con un’istruzione come questa:

DoCmd.OpenReport cboElencoReport, acViewPreview

ElencoReport