bilgi için teşekkür ederim. kesinlikle uygulayacağım.

KAYDET BUTONUnda problem yok hocam. düzenle butonu sorun oluyor.
kaydet butonunda mükerrer ve boş kayıt kontrolu yapıyorum ama düzenle butonunun kodunu toparlayamadım. yardım ederseniz sevinirim.

Private Sub Yeni_Kayıt_Click()
On Error GoTo Err_Yeni_Kayıt_Click

Call Butonac
Call Alanac


If Me.Yeni_Kayıt.Caption = "Yeni Kayıt" Then
Call Temizle1

ekle = True
guncelle = False
A1 = DMax("MüsteriNo", "T_MÜSTERİLER")
If IsNull(A1) Then A1 = 0
Me.txtMüsteriNoo = A1 + 1
Me.txtMüsteriNoo.Enabled = False

Else
Me.Yeni_Kayıt.Caption = "Kaydet"

If IsNull(Me.txtMüsteriAdı) Or Me.txtMüsteriAdı = "" Then MsgBox "Müşteri adı giriniz", vbExclamation, "Sistem Uyarı": Me.txtMüsteriAdı.SetFocus: Exit Sub

If IsNull(Me.txtTel) Or Me.txtTel = "" Then MsgBox "Müşteri Telefon No giriniz", vbExclamation, "Sistem Uyarı": Me.txtTel.SetFocus: Exit Sub

If IsNull(Me.txtAdres) Or Me.txtAdres = "" Then MsgBox "Müşteri Adres bilgilerini giriniz", vbExclamation, "Sistem Uyarı": Me.txtAdres.SetFocus: Exit Sub


Dim SD1, SD2 As String
Dim stLinkCriteria1, stLinkCriteria2, stLinkCriteria3 As String
SD1 = Me.txtMüsteriAdı.Value
SD2 = Me.txtTel.Value

stLinkCriteria1 = "[MüsteriAdı]=" & "'" & SD1 & "'"
stLinkCriteria2 = "[Tel]=" & "'" & SD2 & "'"
   
If DCount("*", "T_MÜSTERİLER", " MüsteriAdı ='" & Me.txtMüsteriAdı & "'") >= 1 Then
MsgBox "" & vbCr & SD1 & " " & vbCr & vbCr & "İsimli kayıt var.", vbExclamation, "Sistem Uyarı"
Me.txtMüsteriAdı.SetFocus
Else

If DCount("*", "T_MÜSTERİLER", " Tel ='" & Me.txtTel & "'") >= 1 Then
MsgBox "" & vbCr & SD2 & " " & vbCr & vbCr & "Numaralı kayıt var.", vbExclamation, "Sistem Uyarı"
Me.txtTel.SetFocus
Else

Me.txtMüsteriAdı.SetFocus
Me.txtYetkiliadı.SetFocus
Me.txtTel.SetFocus
Me.txtEmail.SetFocus
Me.txtSehir.SetFocus
Me.txtAdres.SetFocus

If MsgBox("Kayıtlarda değişiklik yapılmış. Kaydetmek istediğinize emin misiniz?", vbQuestion + vbYesNo) = vbYes Then

Call Kaydet

MsgBox "Kayıt işlemi yapıldı.", vbExclamation, "Sistem Mesajı"

Call Temizle2
Call Alankapa
Call Butonkapat
Else
Me.txt_ara = ""
Me.txt_arafk = ""
Me.Liste17 = ""
Liste17.Requery
Me.txt_ara.Visible = False

Call Alankapa

Me.Yeni_Kayıt.Caption = "Yeni Kayıt"

Call Butonkapat
Call Temizle3

End If
End If
End If
End If

Exit_Yeni_Kayıt_Click:
    Exit Sub
Err_Yeni_Kayıt_Click:
MsgBox "İşlem Yapılmadı", vbExclamation, "Sistem Mesajı"

    Resume Exit_Yeni_Kayıt_Click

End Sub
----------------------

Private Sub btnDüzenle_Click()
On Error GoTo Err_btnDüzenle_Click
Call Alanac
Me.btnDüzenle.Caption = "Güncelle"

Me.btnKayıtSil.Enabled = False
ekle = False
guncelle = True

If (Me.Dirty = True) Then
Call KayıtKontrol
Else

If Me.btnDüzenle.Caption = "Düzenle" Then

    If MsgBox("Kayıtlarda değişiklik yapılmış. Kaydetmek istediğinize emin misiniz?", vbQuestion + vbYesNo) = vbYes Then
Me.btnDüzenle.Caption = "Güncelle"

Call Kaydet

MsgBox "Güncelleme işlemi yapıldı.", vbExclamation, "Sistem Mesajı"

Call Temizle2
Call Alankapa
Call Butonkapat

Else
Me.txt_ara = ""
Me.txt_arafk = ""
Me.Liste17 = ""
Liste17.Requery
Me.txt_ara.Visible = False

Call Alankapa

Me.btnDüzenle.Caption = "Güncelle"

Call Butonkapat
Call Temizle3

End If
End If
End If

Exit_btnDüzenle_Click:
    Exit Sub
Err_btnDüzenle_Click:
MsgBox "Güncelleme İşlemi Yapılmadı", vbExclamation, "Sistem Mesajı"

    Resume Exit_btnDüzenle_Click

End Sub