açılır kutunun satır kaynak türünü değer listesi yap ondan sonra bu fonksiyonu formun açıldığında çağır bu arada açılır kutunun adıda raporlar olacak

Public Sub raporlistele()

Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentProject
Dim liste As String
For Each obj In dbs.AllReports
liste = liste & ";" & obj.Name
Next obj
raporlar.RowSource = liste
End Sub