Skip to main content

AccessTr.neT


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

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

Çözüldü #1
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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Taksitlendirme yaparken 1 defa onaylamaiçin ne yapmalıyım - Yazar: sonerdursun - 06/05/2009, 18:43
Task