Fihrist no ya bak butonunun Vba koduna şunu yazarsan

a = DCount("fihrist_nu", "veri", "[dosya_nu]=[Forms]![Form1]![dosya_nu] And [klasör_nu]=[Forms]![Form1]![klasör_nu]")

MsgBox ("Girilen Klasör ve dosyaya Enson verilen Fihrist no ") & a

Sana istediğin sayı mesaj olarak gelecektir.