+- 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ığı: Ara değerlerin alt toplamını alma (/konu-ara-degerlerin-alt-toplamini-alma.html)
Sayfalar:
1
2
Cvp: Ara değerlerin alt toplamını alma - esrefigit - 31/05/2009
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
Cvp: Ara değerlerin alt toplamını alma - mesudi - 31/05/2009
Hocam çok teşekkür ederim. Yardımseverliğinize minnettarım.