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

(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

Aradığınız kişiye ait tüm bilgileri örneğin bir listboxta karşınıza getiren bir search formu yapın ve kullanmak istediğiniz kaydı çift tıkladığınızda arama formu kapanarak bu bilgileri kullanacağınız forma işlesin. Çalışmanızın detaylarını net hatırlamıyorum ve şu an inceleyebilecek fırsatım da yok ancak, hatırladığım kadarı ile kişi kayıtları unique değil TCKN vs dışındaki bilgiler değişiyor. Bu durumda örnek olarak bahsettiğim search form hem en pratik hem de en doğru çözümdür; ilgili TCKN bazında istediğiniz kriterlerdeki tüm kayıtlar listelenir, istediğinizi seçerek üzerinden işlem yapmaya devam edersiniz, zira son güncel derken bir sonraki adımda ama şu kaydı ile ilgili işlem de yapabilmelmeyi nasıl sağlarım sorusu da gelecek görünen ve bu yaklaşım onun da cevabı olur.