Ben zaten örnekte yapmıştım ancak direkt göndersem nasıl yapıldığını anlayamayacaktınız. Maksadımız daha çok kişinin Access'i öğrenmesi.

*** Eğer Kalan hanesinin hesaplanmasını otomatik olarak yaptırmak istiyorsanız öncelikil olarak formu tasarım modunda açın. Kalan metin kutusunun Denetim Kaynağında yazılanları silin. Oraya yazacağınız kod şu olacaktır:

=[TAHAKKUK EDİLEN]-[ÖDENEN]

*** Eğer Gecikme Zammı yoksa değer olarak sıfır yazsın istiyorsanız yukarıda ilk verdiğim :

=IIf(DateDiff("m";[SON ÖDEME TARİHİ];Date())>0;IIf([kalan]>0;[kalan]*0,5))

kodunu aşağıdakiyle değiştireceksiniz :

=IIf(DateDiff("m";[SON ÖDEME TARİHİ];Date())>0;IIf([kalan]>0;[kalan]*0,5;0);0)

Elbette gecikme zammı rakamınızı kendinize göre uyarlamayı unutmayın.

---

NOT : Burada yaptığınız hesaplamaların hiçbirini eğer Access 2010 kullanmıyorsanız tabloya kaydetmeyin.

Peki sayın alpeki99 tabloları bağlı tablo olarak kullanmayı düşünüyorum.Ama diyelimki program çalışırken aniden hata verdi ve açılmıyor. Ben bağlı tablolara baktığımda bir abonenin ödeme ve kalan durumunuı göremeyeceğim. Bu konuda bir kolaylık var mı. Bu resmi bir program olacağı için abonlerin borç bilgileri kaybolmamalı. yani program hata verip açılmasa bile ben bunlara bağlı tablodan görebilmeliyim diye düşünüyordum. Bu konuda sizin fikriniz nedir.
Teşekkürler..

Önce yedek sisteminizi kurmalısınız. Bağlı tablo olsun olmasın hangi sistemle çalışırsanız çalışın bu işi sağlam şekilde halletmelisiniz.

Program hiç bir zaman aniden hata vermez. Eğer Vba kodlarını yazarken gerekli hata kontrollerini yaptıysanız yapılan hataları da uygun şekilde yönettiyseniz programınız kolay kolay çökmez. Değişken kullanımı, tür uyuşmazlığı vs. gibi etkenleri zaten daha baştan dikkatlice planlamalısınız.

Program çökse bile bağlı tabloda kayıtlarınız ayrı bir Access tablosunda olduğu için o kayıtlara bir zarar gelme olasılığı az ama ne olur ne olmaz düşüncesi ile yedeklemeyi ihmal etmemelisiniz.

Sayın alpeki99 bu değerli bilgiler için çok teşekkür ederim.
İyi çalışmalar.

Takıldığınız noktada çekinmeyin her sorunuz için doğru çözüm AccessTr.Net

Emek ve katkılarınız için teşekkürler..

Sayın sevgi_bilgilii dosyanın son halini yükleyebilir misiniz_