Ovako nekako:

=IIf(nz([text1])+nz([text2])+nz([text3)=0;""; nz([text1])+nz([text2])+nz([text3))

Tako sam zapravo i ja to napravio, ali pošto takav slučaj imam u puno polja pa treba i puno pisati, mislio sam da možda ima nešto u Propertisima da se isključe nule slično kao u Excelu "Zero values"

Necu nisat da se bunim, ali ovo je interesantno

Pa možeš na otvaranje reporta postaviti cod.

Npr : if Control source = 0 then

me.Control source =""
else
me.Control source = nz([text1])+nz([text2])+nz([text3)
end if

eli fino napravi funkciju gje ces dodati sve svoje boxove i samo provjeravati ukupne zbirove dali su nule.

npr
function zbiranja ()
dim ukupno , ukupno2,ukupno3 as string
if ukupno.value = 0 then
ukupno = ""
end if

i tako dalje...i tu funkciju pozivas tamo gdje ti treba sa call zbiranja.... ili samo zbiranja.

A možda možeš u help file da pogledaš formatiranje kontrola? U format properties može da stoji nešto tipa $* #.##0,00;- $* #.##0,00;;'Prazno' . Uostalom, pogledaj u helpu pod Format Property - Number and Currency Data Types. Isto je svojstvo za sve kontrole, samo ga kopiraš u Format Properties

E pa sad ja obicno imam Izvor podataka u nekom Query pa tamo odredim uslove koji ce kasnije biti prikazani u Reportu. Mozda je pomoglo ako nije ,sta da radim

Najjednostavnije ti je da na to polje klikneš desnom tipkom miša i na meniu odabereš
Conditional Formatting i onda mu kažeš ako je vrijednost tog polja 0 , onda mi slova pofarbaj
na bijelo , a možeš mu rec ako je vrijednost manja od nule onda pofarbaj na crveno itd.....

Potom uzmeš Format Painter (četkicu) i "isklikaš" na sva polja u izveštaju za koja kažeš da ih ima puno.

A, da. Zaboravio sam. I onda kupiš Trtku pivo.

Dvije pive, jednu i za Getsbia
on se sjetio za cetkicu a i ljepse je u drustvu piti.

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Dim Rpt As Report
Dim Vrijednost
Set Rpt = Me.Report
Dim Ctl As Control

For Each Ctl In Rpt.Controls
Ctl.Visible = True
If Ctl.ControlType = 109 Or Ctl.ControlType = 111 Then
Vrijednost = Ctl
If IsNumeric(Vrijednost) = True Then
If Vrijednost = 0 Then
Ctl.Visible = False
End If
End If
End If
Next Ctl
End Sub