sayın arkadaşlar; bu kodda bir sorun çıkıyor. butona basıldığında çıkan mesaj kutusuna evet yanıtı verdikten sonra buton ismi kaydet oluyor ve yeni kayıt yapmak için form hazırlanıyor. metin kutularına bilgileri girdikten sonra tekrar butona basılınca
baştaki mesaj kutusu (If MsgBox("Yeni kayıt yapmak istediğinize emin misiniz?", vbQuestion + vbYesNo, "Laboratuvar") = vbYes Then) yeniden çıkıyor ve tekrar evet hayır soruyor. evet dedikten sonra kod başa sarıyor bölümünden devam edip işlemi bitiriyor.
neden butona kaydette basınca baştaki mesaj kutusu tekrar çıkıyor. sorunu bir türlü kavrayamadım. nerede hata yapıyorum. yardımcı olursanız sevinirim.
saygılar.

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

If MsgBox("Yeni kayıt yapmak istediğinize emin misiniz?", vbQuestion + vbYesNo, "Laboratuvar") = vbYes Then


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

" kod başa sarıyor"

Else

Me.Yeni_Kayıt.Caption = "Kaydet"

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

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

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