+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Taksitlendirme yaparken 1 defa onaylamaiçin ne yapmalıyım (/konu-taksitlendirme-yaparken-1-defa-onaylamaicin-ne-yapmaliyim.html)
Taksitlendirme yaparken 1 defa onaylamaiçin ne yapmalıyım - sonerdursun - 06/05/2009
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-nasil-yapilir.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
Cvp: Taksitlendirme yaparken 1 defa onaylamaiçin ne yapmalıyım - C*e*l*o*y*c*e - 06/05/2009
keşke örneğinizide eklemiş olsaydınız,
Cvp: Taksitlendirme yaparken 1 defa onaylamaiçin ne yapmalıyım - sonerdursun - 07/05/2009
örnek diğer mesajda olduğu için göndermedim örnek için https://accesstr.net/attachment.php?aid=1667
Cvp: Taksitlendirme yaparken 1 defa onaylamaiçin ne yapmalıyım - ayhan2122 - 07/05/2009
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.
Cvp: Taksitlendirme yaparken 1 defa onaylamaiçin ne yapmalıyım - sonerdursun - 07/05/2009
Teşekürler Sn.ayhan2122 dediğin gibi yapınca düzeldi.
Cvp: Taksitlendirme yaparken 1 defa onaylamaiçin ne yapmalıyım - ozanakkaya - 07/05/2009
kodun başına docmd.setwarning false sonunada docmd.setwarning true yazarakda uyarıyı kapatabilirsin.