Kayıt Var İse Otomatik Doldurma

(29/04/2026, 12:14)atoykan yazdı: 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.

Hocam cvp için tşk ederimm. Kodu aynen 13. Mesajdaki örneğe uyguladım hata verdi

Örneğinizi ekleyin bakalım

Hocam ekleme konusu değişti mi bulamıyorum

Mesajınıza önizleme yapın altta yer alan göz at butonu ile örneğinzi ekleyin

(02/05/2026, 22:34)atoykan yazdı: Mesajınıza önizleme yapın altta yer alan göz at butonu ile örneğinzi ekleyin

Hocam özür dileyerek konuya başlamak istiyorum. Dediğiniz gibi mesaj ön izleme yaptım ancak gözat butonunu bir türlü bulamadım. Ekleyeceğim örnek konunun 13. Mesajında sizin uyarladığınız örnekti. O örneği kullanıyorum. Ama bir türlü tekrar ekleyemedim.Özür dilerim konuya örneği ekleyemiyorum. Dediğim gibi sizin 13.mesajda eklediğiniz örneğe uyarlasak bana yeterli

Yardımcı olabilecek uzman arkadaş var mı acaba