Saldo

Du er ikke særlig præcis i din formulering, men hvis du ønsker et felt der automatisk viser summen af et bestemt felt i din rapport, kan du indsætte en ubundet tekstboks i din rapportfod og i feltets postkilde skrive koden:

=Sum([FELTNAVN])

Prøv iøvrigt at bruge guiden Rapport, der netop giver dig muligheder for at opsummere saldi på forskellige måder ved at gruppere dine poster.

Præcis som kontoudtog
test    ind  ud  saldo
xxxxxxxx 100  0    100
xxxxxxx    0  50    50
osv   
Saldoen skal ikke være i raportfoden

du kan kode dig ud af det:
Option Compare Database
Option Explicit

Dim saldo As Single

Private Sub Detaljesektion_Format(Cancel As Integer, FormatCount As Integer)
saldo = saldo + Nz(Me.txtInd, 0) - Nz(Me.txtUd, 0)
Me.txtSaldo = saldo
End Sub

Private Sub Report_Open(Cancel As Integer)
  saldo = 0
End Sub

En global variabel 'saldo' erklæres og nulstilles når rapporten åbnes.
I detaljesektionens vedFormatering udføres beregningen af saldo.
Navnene på tekstfelterne er hhv: txtInd, txtUd og txtSaldo.

Niels

i nogle rapporter foregår hændelsen ved formatering flere gange, derfor denne rettelse:

Dim saldo As Single

Private Sub Detaljesektion_Format(Cancel As Integer, FormatCount As Integer)
    If FormatCount = 1 Then
        If Me.CurrentRecord = 1 Then saldo = 0
        saldo = saldo + Nz(Me.txtInd, 0) - Nz(Me.txtUd, 0)
        Me.txtSaldo = saldo
    End If
End Sub

Niels

Du skal nok lægge en gruppering ind på rapporten (eks ved nyt kontonummer) og så nulstille saldo ved hændelsen Ny Konto.

Du indsætter Ind og Ud i din detalje-sektion.

Derefter laver du et ubundet felt, som har =[Ind]-[Ud] som kontrolelementkilde og hvor LøbendeSum er sat til "Over grupper".

Tak for svaret enkel og meget præcis tak proaccess