1- Alt form ile ana formu hangi alan ile birbirine bağladıysanız kriter olarak onu gösterin. Mesela ID alanlarını bağladıysanız ID, NO alanlarını bağladıysanız NO olarak... Ve açılacak form alanına da ANAFORM'un adını girin. Alt form ana forma aynı alan ile bağlı olduğu için ana formdaki kriter açılır. Böylece alt form da açılmış olur.
2- Ana form üzerine bir adet Metin Kutusu ekleyin ve içini şu şekilde doldurun:
Kod:
=nz(ALTFORMADI!ALTFORMKRITERI;0)
Size göre düzenleyecek olursak:
Kod:
=nz(GIDER FILTRE subform!No;0)
Bu ifade, alt formdaki NO veya ID gibi ana forma bağlanan alanı ana form üzerine çekecek ve kriter (NO) değiştikçe içeriği değişecek ve bir buton yardımıyla falan tıkladığınızda o NO'daki kaydın ana formunun açılmasını sağlayacaktır.
Metin kutumuzun adının Metin1, Kriterimizin ise NO olduğunu varsayarsak kodunuz şu şekilde olmalıdır:
Kod:
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "ANAFORMADI"
stLinkCriteria = "[NO]=" & Me![Metin1]
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.Close acForm, "TumListe"
Hatasız anlattığımı düşünüyorum ama siz yine de bi deneyin. Olmazsa yazın. Tekrar bakalım...
Kolay gelsin...