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
#7
Deneme.rar
(Dosya Boyutu: 18,83 KB | İndirme Sayısı: 15)
meşhur çin atasözü "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
