Kod:
Dim acilacak_form As String
Dim kriter As String
acilacak_form = "Ambalaj"
kriter = "[Is_Kodu]=" & Me![Is_Kodu]
If kriter = "[Is_Kodu]=" Then
MsgBox ("Lütfen açmak istediğiniz kriteri seçin")
Else
DoCmd.OpenForm acilacak_form, , , kriter
DoCmd.Close acForm, "Isler"
End If2- 3. maddeyi yapmak doğru olmayacaktır. Çünkü bu defa bi kriteriniz olmayacak. kayıtları birbirine Is_Kodu alanı ile ilişkilendirmişsiniz. Bu defa da alanlar arasında uyuşmazlık olur. Yapmaya çalıştığınız şeyin mantığını da anlatın ki başka bir çözüm üretmeye çalışalım...
Kolay gelsin...
