Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Hallo dachef0815,

an die Namen der Berichte, Formulare und Abfragen kannst du über die Auflistungen AllReports, AllForms und AllQueries rankommen.

Unten siehst Du ein Beispiel wie Du beim Laden eines Formulars die Namen der Berichte, Formulare und Abfragen in drei Kombinationsfelder laden kannst. 

Private Sub Form_Load()
    Dim obj As AccessObject
   
    For Each obj In Application.CurrentProject.AllReports
         Me.MeineComboBoxBerichte.AddItem obj.Name
    Next obj

    For Each obj In Application.CurrentProject.AllForms
         Me.MeineComboBoxFormulare.AddItem obj.Name
    Next obj

    For Each obj In Application.CurrentData.AllQueries
         Me.MeineComboBoxAbfragen.AddItem obj.Name
    Next obj

End Sub


Gruß
Stefan