Me.Liste21.Requery
Dim mukerrer As String
mukerrer = Nz(DCount("[ADISOYADI]", "TBLKISILER", "[TCNO]=" & [TCNO]), 0)
  If mukerrer > 0 Then
  Select Case MsgBox("Bu Kayıt Daha Önce Girilmiş. Devam Ederek Diğer Bilgilerini Getirebilirsiniz. Devam Edilsin mi?", vbYesNo Or vbQuestion Or vbSystemModal Or vbDefaultButton1, "Ne Yapmak İstiyorsunuz.")

    Case vbYes
     Me.ADISOYADI.Value = Dlookup ("[ADISOYADI]", "TBLKISILER", "[TCNO]=" & [TCNO])
     Me.DOGUMYERI.Value = Dlookup ("[DOGUMYERI]", "TBLKISILER", "[TCNO]=" & [TCNO])
     Me.DOGUMTARIHI.Value = Dlookup ("[DOGUMTARIHI]", "TBLKISILER", "[TCNO]=" & [TCNO])
     Me.NUFKYTIL.Value = Dlookup ("[NUFKYTIL]", "TBLKISILER", "[TCNO]=" & [TCNO])
     Me.NUFKYTILCE.Value = Dlookup ("[NUFKYTILCE]", "TBLKISILER", "[TCNO]=" & [TCNO])
     Me.NUFKYTMAH.Value = Dlookup ("[NUFKYTMAH]", "TBLKISILER", "[TCNO]=" & [TCNO])
     Me.MEDENIHAL.Value = Dlookup ("[MEDENIHAL]", "TBLKISILER", "[TCNO]=" & [TCNO])
     Me.EGITIMDURUMU.Value = Dlookup ("[EGITIMDURUMU]", "TBLKISILER", "[TCNO]=" & [TCNO])
     Me.TELEFON.Value = Dlookup ("[TELEFON]", "TBLKISILER", "[TCNO]=" & [TCNO])
     Me.EMAİL.Value = Dlookup ("[EMAİL]", "TBLKISILER", "[TCNO]=" & [TCNO])
     Me.ADRES.Value = Dlookup ("[ADRES]", "TBLKISILER", "[TCNO]=" & [TCNO])
     Me.Liste21.Requery

   Case vbNo
    Undo
    Me.Liste21.Requery

    Exit Sub
End Select
   Else
 
   End If

On Error GoTo Err_Komut65_Click

Dim strSQL As String
Set rstkayit = New ADODB.Recordset
strSQL = "SELECT * FROM TBLKISILER "
rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
        With rstkayit
        .Find "[TCNO]=" & "'" & Me![TCNO] & "'"
            If Not rstkayit.EOF Then
                .Fields("ADISOYADI") = Me.ADISOYADI
                .Fields("BABAANAADI") = Me.BABAANAADI
                .Fields("DOGUMTARIHI") = Me.DOGUMTARIHI
                .Fields("NUFKYTIL") = Me.NUFKYTIL
                .Fields("NUFKYTILCE") = Me.NUFKYTILCE
                .Fields("NUFKYTMAH") = Me.NUFKYTMAH
                .Update
             End If
        End With
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    Me.Liste21.Requery
Exit_Komut65_Click:
    Exit Sub

Err_Komut65_Click:
    MsgBox Err.Description
    Resume Exit_Komut65_Click