Modülün kullanımını sorguda ve formda gösterme?

[assenucler]

Sn. Modalı modülü sorguda ve formda nasıl kullanırım, lütfen yardım.

Sn. Modalı,

Değerli zamanınızı ayırarak hazırladığınız modülü, Modül kısmına kopyalayıp yapıştırdım. Ancak, 1,5 gündür bir türlü sorguda ve formda kullanımını başaramadım.

Sizden ve ilgi duyan forum dostlarının değerli katkılarını bekliyorum.

Teşekkürler.

 

[assenucler]

Yanıtınızı bekliyorum.

Gününüz aydın, neşeniz bol olsun üstatlar.

Sağolsun, sayın Modalı sorunumla ilgilenip bana http://www.excel.web.tr/showthread.php?t=37895 aşağıdaki yanıtı verdi.

"Sayın assenucler,
Ben size bir fonksiyon yazdım. Bu fonksiyon direkt olarak gecikme zammını hesaplıyor. Bir modül açıp aşağıdaki kodları kopyalayıp yapıştırın.

Kod:

Public Function GecikmeZammi(tur As String, date1 As Date, date2 As Date, borc As Currency) As Currency
'tur İşlem türünü, date1 tahakkuk tarihi 01.09.2007 veya fatura tarihi 17.09.2007, date2 ise ödeme tarihini, borc ise ödenmesi gereken miktarı gösteriyor
Dim ay, gun As Integer
Dim date3, SonOdemeGunu, OdemeGunu As Date
OdemeGunu = date2
If tur = "Yakıt" Then
SonOdemeGunu = DateAdd("d", -3, date1) 'İşlem Türü yakıtsa son ödeme günü faturadan 3 gün önce
ElseIf tur = "Aidat" Then
SonOdemeGunu = LastOfThisMonth(date1) 'İşlem türü aidat ise ozaman son ödeme günü ayın son günü
End If
If SonOdemeGunu >= OdemeGunu Then
GecikmeZammi = 0 'Son ödeme günü ödeme gününden büyük ve eşitse gecikme 0 YTL

Else
ay = DateDiff("m", SonOdemeGunu, OdemeGunu)
date3 = DateAdd("m", ay, SonOdemeGunu)
gun = DateDiff("d", date3, OdemeGunu)
GecikmeZammi = borc * (ay * 10 + gun * 10 / 30) / 100
End If
End Function

Function LastOfThisMonth(dtm As Date) As Date
LastOfThisMonth = DateAdd("d", -1, DateSerial(Year(dtm), Month(dtm) + 1, 1))
End Function

Burada yapacağınız, bir sorguya veya form üstüde olabilir GecikmeZammi fonksiyonunu çağırmak. date2 değişkenini alacağınız alanın geçerli tarihi Date() olarak ayarlanırsa, borçlunun o günkü gecikme zammı da görünür.

date1 alanlarına ise ya yakıt fatura tarihini yada aidat tahkkuk tarihini (ayın ilk günü veya o ayın harhangi bir tarihi) girerseniz fonksiyonu kullanmış olabilirsiniz.

Takıldığınız noktayı açıklayabilirim. "

Yukarıda konu başlığında da açıkladığım gibi Sn. Modalı’nın yazdığı fonksiyonu modül’e kopyala yapıştır yapmama karşın, sorgu ve formu bir türlü düzenleyemedim. Dolayısıyla da bu güzel çalışmayı sorunumu çözmek için kullanamıyorum.

Lütfen, yardımlarınızı benden esirgemeyin. İlgilenen ve yanıtlayan tüm forum dostları ve üstatlara öncelikle teşekkürler.