AccessTr.neT

cumartesi pazar gününe gelenleri pazartesi gününe atıyor. 2 satır kodu var eğer cumartesiyi cumaya pazarı pazartesiye atmak istiyorsan +2 yerine -1 gibi koyman yeterlidir.

Cumartesi-Pazarı Pazartesiye atar

        Tatil = 0

        If 1 = Weekday(DateAdd("m", Me.Ay, SonVade + Tatil)) Then Tatil = 1 ' Gün Pazar ise

        If 7 = Weekday(DateAdd("m", Me.Ay, SonVade + Tatil)) Then Tatil = 2 ' Gün Cumartesi ise

Cumartesiyi Cumaya Pazarı Pazartesiye atar

        Tatil = 0

        If 1 = Weekday(DateAdd("m", Me.Ay, SonVade + Tatil)) Then Tatil = 1 ' Gün Pazar ise

        If 7 = Weekday(DateAdd("m", Me.Ay, SonVade + Tatil)) Then Tatil = -1 ' Gün Cumartesi ise

son mesajımdaki örnekler düzenlendi.
1.senet basımı
2.taksit ödeme listesi
3.taksitlerin cumartesi-pazar kontrolü eklendi.

teşekkür ederim elinize kolunuza sağlık hayırlı geceler

abi ben yaptım sonunda çalışmayı yalnız senet yazdır dediğimde yazıylqa kısmını yapamıyorum bir türlü dosyanın hazır halinin linkini koydum abi sana zahmet düzenleye bilirmisin abi



http://turbobit.net/9jwwfr793j68.html