Taksitlendirme yaparken 1 defa onaylamaiçin ne yapmalıyım

06/05/2009, 18:43

sonerdursun

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
06/05/2009, 21:03

C*e*l*o*y*c*e

keşke örneğinizide eklemiş olsaydınız,
07/05/2009, 10:11

sonerdursun

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

ayhan2122

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.
07/05/2009, 15:01

sonerdursun

Teşekürler Sn.ayhan2122 dediğin gibi yapınca düzeldi.
07/05/2009, 15:13

ozanakkaya

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