If Nz(DCount("olay_id", "tbl_disiplinkarari", "[olay_id]=" & Me.Listeolaylar), 0) = 0 Then
DoCmd.RunSQL "INSERT INTO tbl_disiplinkarari (olay_id) VALUES (" & Listeolaylar & ")"
End If
kodu ekle, eğer olayid disiplinkararlari tablosunda yok ise ekler. Kodun devamındaki kriter ile formu açtırır.
KARAR1 isimli formdaki KARAR2 alt formuna olayid alanının alt form, üst form bağlanması gerekebilir.