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
Son Düzenleme: 06/05/2009, 19:03, Düzenleyen: sonerdursun.