AccessTr.neT

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.