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
Çözüldü #2
keşke örneğinizide eklemiş olsaydınız, Img-grin
Cevapla
Çözüldü #3
örnek diğer mesajda olduğu için göndermedim örnek için https://accesstr.net/attachment.php?aid=1667
Cevapla
Çözüldü #4
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.
Saygılar, iyi çalışmalar.
*********
Kod, formül vs bilmek önemlidir ama mantığını yürütebilmek, nerede ve nasıl kullanılacağını bilmek daha önemlidir.
Cevapla
Çözüldü #5
Teşekürler Sn.ayhan2122 dediğin gibi yapınca düzeldi.
Cevapla
Çözüldü #6
kodun başına docmd.setwarning false sonunada docmd.setwarning true yazarakda uyarıyı kapatabilirsin.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task