AccessTr.neT

peki raporun alt bilgisinin biçimlendiğinde olayına kodu yazmayı düşündünüzmü


Private Sub ReportFooter_Format(Cancel As Integer, FormatCount As Integer)
Dim i As Integer
Dim rs As New ADODB.Recordset
rs.Open "tblTaksit", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Dim asd As Integer
If rs.EOF <> True Then
Do
Select Case rs("Tarih")
Case Is < Date
asd = asd + rs("TaksitTutar") * "0,0016" * (Date - rs("Tarih"))

End Select
rs.MoveNext
Loop Until rs.EOF
End If
Me.txtGecikenTaksit = asd
Set rs = Nothing
End Sub


rapordaki alt toplam metin kutusunun adını bu şekilde txtGecikenTaksit değiştirmeyi unutma

Hocam çok teşekkür ederim. Yardımseverliğinize minnettarım.