Sn sledgeab bana aşaığıdaki kodu cevap olarak vermişti burda taksitlendirme yapmak için onaylaıyormusundan sonra her taksitte tamam tatmam şeeklinde onaylamamı istiyor aşağıdaki kodu sadece onaylıyormusun sorusuna tamam deyince bütün taksiteri 1 seferde yapmasını nasıl sağlayabilirim.10 taksit yapsam onaylıyormusun sorusuyla beraber 11 defa tıklamam gerekiyor.[/code]

konu linki https://accesstr.net/konu-ara-sec-tasi-n...pilir.html

[code]Private Sub Komut32_Click()
If IsNull(IlkTaksitTarihi) Then
MsgBox "ilk taksit tarihini belirtiniz."
Else
If IsNull(SatisTutari) Or SatisTutari = 0 Then
MsgBox "Satış tutarını belirtiniz."
Else
If IsNull(TaksitSayisi) Or TaksitSayisi = 0 Then
MsgBox "Taksit Sayısını belirtiniz."
Else

If MsgBox("Taksitlendirmeyi Onaylıyor musunuz?", 52, "Taksit Uyarısı") = 6 Then

'Taksitlendirme işlemleri başlangıcı
For x = 0 To TaksitSayisi - 1
Me.Metin30 = Aciklama & " " & x + 1 & " .taksit"
Me.Metin32 = DateAdd("m", x, IlkTaksitTarihi)
DoCmd.RunSQL "INSERT INTO SATIS (MUSTERINO, ACIKLAMA, TUTAR, VadeTarihi) " _
& "SELECT MUSTERINO, Metin30, TaksitTutari, Metin32"
Next x
'Taksitlendirme işlemleri sonu
Refresh
End If
End If
End If
End If
End Sub

keşke örneğinizide eklemiş olsaydınız,

örnek diğer mesajda olduğu için göndermedim örnek için https://accesstr.net/attachment.php?aid=1667

Sn sonerdursun;
Kodda taksit sayısı kere onaylama isteyecek bir durum yok.
Araçlar/Seçenekler-Penceresinde/DüzenBul-Sekmesi/Onayla-Çerçevesinde/EylemSorgularını Onay Kutucuğunu boş bırakın.
Sadece 1 defa onay isteyecektir.

Teşekürler Sn.ayhan2122 dediğin gibi yapınca düzeldi.

kodun başına docmd.setwarning false sonunada docmd.setwarning true yazarakda uyarıyı kapatabilirsin.