Veritabanına boş bir form ekle,

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.