Kod:
strSQL = "SELECT * FROM ARSİV "
Set rstkayit = New ADODB.Recordset
rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
With rstkayit
.Find "[TC]=" & Me.Metin1
If Not rstkayit.EOF Then
.Fields("ADI") = Me.Metin3
.Fields("SOYADI") = Me.Metin9
.Fields("BABA") = Me.Metin10
.Fields("ANNE") = Me.Metin11
.Fields("DOĞUM") = Me.Metin14
.Fields("DOĞT") = Me.Metin12
.Fields("İL") = Me.Metin2
.Fields("İLÇE") = Me.Metin8
.Fields("NÜF") = Me.Metin4
.Fields("CİNSİYETİ") = Me.Metin13
.Update
Else
.AddNew
.Find "[TC]=" & Me.Metin1
.Fields("ADI") = Me.Metin3
.Fields("SOYADI") = Me.Metin9
.Fields("BABA") = Me.Metin10
.Fields("ANNE") = Me.Metin11
.Fields("DOĞUM") = Me.Metin14
.Fields("DOĞT") = Me.Metin12
.Fields("İL") = Me.Metin2
.Fields("İLÇE") = Me.Metin8
.Fields("NÜF") = Me.Metin4
.Fields("CİNSİYETİ") = Me.Metin13
.Update
End If
End With
Ayrıca, 1. mesajdaki örnek uygulamayı kaldırdım. Bilgilerinize.