1 - bahsettiğiniz sorunu zaten @ozanakkaya hocam 4. mesajda cevaplamış
frm_kayitkullanici isimli formdaki txZkarti açılan kutusunun satır kaynağındaki sorguyu aşağıdaki ile değiştirerek deneyiniz. demiş sizin yapmanız gereken aşağıdaki kodu oraya yazmaktı

SELECT zkarti_ID, zkart_no, zkart_adi, GOR, SIRA FROM tbl_zkarti WHERE (((zkarti_ID) Not In (SELECT ZKartiID FROM tbl_ziyaretci WHERE (((Cikis) Is Null)))) AND ((GOR)=No)) ORDER BY zkarti_ID;

2 - ben size daha açıklayıcı olun derken hangi form, metin kutusu, buton, tablo vs vs adlarıyla birlikte belirtin demek istemiştim

yaptım hocam fakat bu sefer kart listesi boş gözüküyor

BİRDE HOCAM TANIM DİE BİR BÖLÜM VAR YENİ KAYITTA ORASI NORMALDE KİMLİK TİPİ YAZIYORDU KİMLİK KAYIT ETMEDİĞİMİZ İÇİN ONU DEĞİŞTİRDİM AMA BİR DEĞER VERMEZSEM HATA VERİYOR KAYIT ETMİYOR  ONUDA KALDIRMANIZ MÜMKÜNMÜ ACABA

Önceki mesajımda yazdığım kodu aşağıdaki ile değiştirerek deneyiniz. 

SELECT zkarti_ID, zkart_no, zkart_adi, GOR, SIRA FROM tbl_zkarti WHERE ((([zkarti_ID]) Not In (SELECT ZKartiID FROM tbl_ziyaretci WHERE (((ZKartiID) Is Not Null) AND ((Cikis) Is Null));)) AND (([GOR])=No))

ORDER BY tbl_zkarti.zkarti_ID;

Lütfen Site Kurallarını tekrar okuyunuz. Tümü büyük harflerle mesaj yazmak Site Kurallarına aykırıdır.

ELLERİNE SAĞLIK HOCAM ÇOK GÜZEL OLDU BİRDE O  TANIM YAZAN BÖLÜMÜ NASIL KALDIRA BİLİRİM SİLDİĞİMDE VEYA GİZLEDİĞİMDE KAYIT İŞLEMİ YAPTIĞIMDA BOS ALAN BIRAKMA TARZINDA UYARI VERİYOR

Formdan txKimlikID metin kutusunu sil, Vba sayfasında Me.txKimlikID içeren tüm kodları ve 

If Me.txKimlikID = 6 Or Me.txKimlikID = "" Then

    MsgBox "Tüm ÖN KAYIT bilgilerini güncellemelisiniz.", vbCritical, "Ziyaretçi Kayit"

    Me.txKimlikID.SetFocus

    Me.btnZCikisi.Enabled = False

    Exit Sub

End If

şeklindeki kod bloklarını sil.