Kodda hata vardı. tc yazınca önceki eklenen kayda ait veriyi getirmiyordu.

Tckimlikno yazılan metin kusutusunun çıkıldığında olanıdaki kodu aşağıdaki ile değiştirince çalıştı.

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

Kaydet butonunun tıklandığında olayındaki kodları aşağıdaki ile değiştirince;

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

12345678916 tc kimlik numarası girilip mesaj kutusuna eveti tıkladığında boş alanların bazılara veriler aktarılıyor. Boş kalan yerleri doldurduğunda 12345678916 tc kimlik numarası girilmiş önceki kayıttaki boşluklar tamamlanıyor.

Ayrıca Microsoft Activex Data Object X.X referansı eklendi.