forma;
1 adet komut butonu,
Metin0 ve Metin1 isimlerinde iki adet metin kutusu ekle. (aslında metin kutularına gerek yok)
Komut butonunun tıklandığında olayına aşağıdaki kodu ekle.
Dim Access As AccessObject
Dim rpr As Report
Dim raporsayi As Integer
raporsayi = 1
For Each Access In CurrentProject.AllReports
DoCmd.OpenReport access.Name, acViewDesign, , , acHidden
Set rpr = Reports(access.Name)
rpr.ShortcutMenuBar = "RaporSag"
Metin0 = rpr.Name
Metin1 = raporsayi & "/" & CurrentProject.AllReports.Count
DoCmd.Close acReport, access.Name, acSaveYes
raporsayi = raporsayi + 1
Next access
MsgBox ("Tamamlandı.")
Tamamlandı mesaj kutusu çıktığında istediğiniz gerçekleşmiş olur. Kod üzerinde düzenleme yaparak kodu formlarda da kullanılabilirsiniz.