Kayıt Var İse Otomatik Doldurma

(Dün, 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