Imam problem sa eksportom izvještaja pa ako može neko da mi pomogne da pronađemo grešku. Na reportu postoji ovaj kod:
i ovaj kod funkcioniše lijepo kod Preview Report, međutim problem nastaje kad hoću da izvještaj exportujem u .rtf ili .snp ne dobijem tačne rezultate iz ovog koda. Pokušavao sam na razne načine ali nisam uspio. Svaki komentar je dobrodošao.
Code:
Option Compare Database
Option Explicit
Dim sumaSaldoRac As Currency
Dim sumaSaldoUpl As Currency
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
If Me.SaldoRac > 0 Then sumaSaldoRac = sumaSaldoRac + Me.SaldoRac
If Me.saldoUpl > 0 Then sumaSaldoUpl = sumaSaldoUpl + Me.saldoUpl
Me.SumSaldoRac = sumaSaldoRac
Me.SumSaldoUpl = sumaSaldoUpl
End Sub
Private Sub ReportHeader_Format(Cancel As Integer, FormatCount As Integer)
Me.txtPeriod.Value = period
End Sub
Option Compare Database
Option Explicit
Dim sumaSaldoRac As Currency
Dim sumaSaldoUpl As Currency
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
If Me.SaldoRac > 0 Then sumaSaldoRac = sumaSaldoRac + Me.SaldoRac
If Me.saldoUpl > 0 Then sumaSaldoUpl = sumaSaldoUpl + Me.saldoUpl
Me.SumSaldoRac = sumaSaldoRac
Me.SumSaldoUpl = sumaSaldoUpl
End Sub
Private Sub ReportHeader_Format(Cancel As Integer, FormatCount As Integer)
Me.txtPeriod.Value = period
End Sub
i ovaj kod funkcioniše lijepo kod Preview Report, međutim problem nastaje kad hoću da izvještaj exportujem u .rtf ili .snp ne dobijem tačne rezultate iz ovog koda. Pokušavao sam na razne načine ali nisam uspio. Svaki komentar je dobrodošao.