Merhaba,

kisi isimli tablonun ismi; "tbl_kisi", toplanti isimli tablonun ismi "tbl_yoklama" olmalıdır.

kisi Sorgu isimli sorgunun ismi; "srg_kisi" olmalıdır.

kisi Sorgu isimli formdaki açılan kutu "Metin7" değil, "acl_tarihsec" olmalıdır.

Bu şekilde olursa, kod yazarken veya sorgu oluştururken neyin ne olduğunu görebilirsiniz.

Örnek uygulamanıza eklenen;

"srg_katilanlar" isimli sorgu, seçilen tarihte toplantıya katılanları listeler.

"srg_katilmayanlariekle" isimli sorgu ise srg_katilanlar isimli tabloda ismi olmayan, yani seçili tarihte toplantıya katılmayanları yoklama tablosuna ekler.

Sorgunun çalışması için, formdaki Metin7'nin güncelleştirme sonrasında olayına;

Dim GKisiSayisi, GKatilanSayisi As Integer



GKisiSayisi = DCount("[id_kisi]", "kisi")



GKatilanSayisi = DCount("id_yoklama", "yoklama", "[idfk_toplantitarih]= " & Me.Metin7)

 

If (GKisiSayisi - GKatilanSayisi) <> 0 Then



    If MsgBox("Katılmayan " & (GKisiSayisi - GKatilanSayisi) & " kişi eklensin mi?", vbInformation + vbYesNo) = vbYes Then



    DoCmd.SetWarnings False

    DoCmd.OpenQuery "srg_katilmayanlariekle"

    DoCmd.SetWarnings True

    

    End If



End If



Me.Filter = "[idfk_toplantitarih]=" & Me.Metin7.Column(0)

Me.FilterOn = True

Kodu eklenmiştir.

İnceleyip olumlu/olumsuz bildirimde bulununuz.