Kayıt Var İse Otomatik Doldurma

(01/10/2021, 12:26)alperadn01 yazdı: Dediğim şekilde sadece belirli bilgiler gelmiyorsa konu taşınabilşr. Verdiğiniz cevaplardan dolayı teşekkür ederim

Ekli dosyada Frm_verigiris adlı formu inceleyin. Kendi çalışmanızı buna göre uyarlarsınız.

değerli hocalarım kapanmış konuyu tekrar açıyorum sizlerden basit bir işlem daha isteyeceğim. atoykan hocamın en son uyarladığı örnekten yola çıkarak şöyle bir şey isteyeceğim. kayıt esnasında var olan kaydı otomatik getiriyor burada sorun yok. ancak kayıt esnasında var olan kaydın en son güncel hali ile getirilmesini istiyorum mümkünse. bazen kişinin bilgilerinde en son değişiklik yapılıyor ve kaydın en son hali getirmesi benim için önemli olacak. şimdiden teşekkür ederim

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.

(1 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