(2 saat önce)onur_can yazdı: Aynı kaydı kayıt çoğaltarak güncelliyorsanız, ilgili kaydı kriter kullanıp (adı=x), Son ID numarasını (Max([ID]) kullanarak getirebilirsiniz. Program mantığınızı bilmiyorum ama aynı kayıtı çoğaltmak yerine varolan kayıt üzerine güncelleme yapsanız daha iyi olur. Bu şekilde olursa yukarıdaki işlemi yapmanıza da gerek kalmaz.

Dediğinizi anladım ancak bir kişinin kaç tane kaydının olduğunu görmek istediğim için gerek duydum. Dediğiniz kodu aşağıda göndermiş olduğum kod dizinin neresine yazmamı gerekiyor.


Private Sub adi_soyadi_AfterUpdate()
Dim TCKN, TCKNKR As String

TCKN = Me.adi_soyadi.Value
TCKNKR = "adi_soyadi = '" & Forms!tumpersonel_bilgileri!adi_soyadi.Value & "'"

If Dlookup ("adi_soyadi", "data", TCKNKR) > 0 Then

If MsgBox(TCKN & " TC NO İLE KAYITLI KİŞİ BULUNMAKTADIR." & vbCrLf & _
"DEVAM EDİLMESİ HALİNDE MEVCUT KAYITTA GÜNCELLEME YAPILACAKTIR." & vbCrLf & _
"DEVAM ETMEK İSTİYOR MUSUNUZ?", vbYesNo) = vbNo Then

' güncelleme onaylanmaz ise değişiklikleri geri al yeni kayıt aç
Me.Undo
DoCmd.GoToRecord , , acNewRec
Me.adi_soyadi.SetFocus

Else


' kayıt güncellemenin onaylanması halinde sorgu sonuçlarını ilgili form alanlarına yükle
Me.adi_soyadi = TCKN
Me.mahalle = Dlookup ("mahalle", "data", TCKNKR)
Me.adres = Dlookup ("adres", "data", TCKNKR)
Me.tel = Dlookup ("tel", "data", TCKNKR)
Me.not1 = Dlookup ("not1", "data", TCKNKR)
Me.ifade = Dlookup ("ifade", "data", TCKNKR)
Me.magdur_tc = Dlookup ("magdur_tc", "data", TCKNKR)
End If

End If


End Sub