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

(Dün, 15:38)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.

13. mesajdaki örneğiman yola çıkarak TCKN Sorgu textboxında afterupdate olayını

Private Sub txt_tcknsorgu_AfterUpdate()



  Dim TCKN, TCKNKR As String

  

  TCKN = Me.txt_tcknsorgu.Value

  TCKNKR = "tcno = '" & Forms!Frm_verigiris!txt_tcknsorgu.Value & "'"

  

    If Dlookup ("tcno", "dosya", 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.txt_tckn.SetFocus

     

    Else

        

        'güncelleme onaylanırsa son kaydını bul ve getir

        Dim SonID As Long

        SonID = DMax("Kimlik", "dosya", TCKNKR)



        If Not IsNull(SonID) Then

            Me.txt_tckn = Me.txt_tcknsorgu.Value

            Me.txt_adsoyad = Dlookup ("adisoyadi", "dosya", "Kimlik=" & SonID)

            Me.txt_isebaslama = Dlookup ("isebaslama", "dosya", "Kimlik=" & SonID)

            Me.txt_istenarilma = Dlookup ("istenayrilma", "dosya", "Kimlik=" & SonID)

            Me.txt_kapanis = Dlookup ("kapanistarihi", "dosya", "Kimlik=" & SonID)

        End If

    

    End If



End Sub

şeklinde güncelleyecek olursak mevcut TC ile kayıt var mı kontrol edip güncelleme isteyip istemediğinizi sorar, güncelle derseniz bu defa o TC ile ilgili son kaydı bulup onun verilerini getirir. 17. mesajda belirttiğim çözüm yolu metadolojik olarak da, programatik olarak da, UI/UX deneyimi olarak da daha doğru çözümdür.