Örnek olsun diye tbl_ziyaretci_cikis tablosunudaki textboxu ilişkisiz yaptım tabii tablo ilişkilerinide sildim.
Çıkış olayı için gifteki gibi basit olarak yaptım deneyebilirsiniz.

Private Sub Komut18_Click()



Dim bul

Dim db As DAO.Database

Dim Rs As DAO.Recordset



bul = DLast("adi_soyadi", "[tbl_ziyaretci_giris]", "[TC_kimlik]= '" & TC_kimlik & "'")

bulMasa = DLast("masa_no", "[tbl_ziyaretci_giris]", "[TC_kimlik]= '" & TC_kimlik & "'")

If IsNull(bul) Then

    MsgBox "kayit yok", vbCritical

    Exit Sub

End If





Set db = CurrentDb

Set Rs = db.OpenRecordset("tbl_ziyaretci_cikis", dbOpenTable, dbAppendOnly)

With Rs

    .AddNew

    !TC_kimlik = TC_kimlik

    !adi_soyadi = bul

    !masa_no = bulMasa

    .Update

    .Close

End With



End Sub