(19/06/2018, 16:02)sidd yazdı: izin bildirdiğiniz kodları yazdım, ancak ad,soyad guncellendiğinde, ad soyad guncellendi olarak yazması gerekirken, yazmıyor,

Merhaba, ben 1 tane tanımlama eklemiştim. Birden fazla denetim için ayrı ayrı tanımlama eklemeniz gerekli,

Kodun tamamı aşağıdaki gibi olmalıdır.

Option Compare Database

Option Explicit

Dim GMeyveler, GAdiniz As String







Private Sub btnKaydet_Click()

                     

If Me.NewRecord = True Then

    DoCmd.RunCommand acCmdSaveRecord

    MsgBox "Bilgiler basari ile kaydedildi.", vbInformation, "Bilgi"

Else

    If Me.cboMeyve <> GMeyveler Then

        DoCmd.RunCommand acCmdSaveRecord

        MsgBox ("Meyve Verisi guncellendi")

        GMeyveler = Nz(Me.cboMeyve, "")

    End If

    

    If Me.Adiniz <> GAdiniz Then

        DoCmd.RunCommand acCmdSaveRecord

        MsgBox ("Adiniz Verisi guncellendi")

        GAdiniz = Nz(Me.Adiniz, "")

    End If

    

End If







End Sub



Private Sub btnYeni_Click()

 

 DoCmd.GoToRecord , , acNewRec

 

End Sub



Private Sub Form_Current()



GMeyveler = Nz(Me.cboMeyve, "")

GAdiniz = Nz(Me.Adiniz, "")

End Sub

Bu koda soyadı için ekleme yapılması gerekli, koddaki 2 alanı incelerseniz 3. alan için eklemeyi kendiniz yapabilirsiniz.