Microsoft Access Programmierrezepte

R9.21 Berichte zur Auswahl in einem Listenfeld anzeigen

Aufgabe

In einem Dialogfeld sollen alle verfügbaren Berichte zur Auswahl angeboten werden.

Lösung

Verwenden Sie die AllReports-Collection.

Oberfläche

Erzeugen Sie ein neues Formular und fügen Sie zwei Befehlsschaltflächen und ein Listenfeld ein.

Abbildung 9.26 Entwurfsansicht

Quelltext

Mit dem Laden des Formulars lesen wir die Einträge des Listenfeldes ein:

Option Explicit

Private Sub Form_Load()
Dim rep As AccessObject

  For Each rep In CurrentProject.AllReports
     Liste1.AddItem rep.Name
  Next
End Sub

Den gewünschten Report auswählen:

Private Sub Button1_Click() DoCmd.OpenReport Liste1.value, acViewPreview ...