Supportnet / Forum / Datenbanken
Ausblenden per VBA, wenn in Bericht 0,00-Zeile steht
Frage
In einem Bericht stehen im Detail-Bereich Zeilen, die in einer bestimmten Spalte 0,00 enthalten. Diese Zeile sollte ausgeblendet werden. Hat jemand eine Idee?
Antwort 1 von JohnnyLoser
Hi Manfred,
everything's possible!
Soll die ganze Zeile ausgeblendet werden? D.h. auch andere Spalten, die evtl. Werte enthalten?
Werden Berechnungen durchgeführt, die die ganze Zeile unberücksichtigt lassen sollen?
Oder soll nur der Inhalt "0,00" durch "" ersetzt werden, die anderen Spalten der Zeile trotzdem angezeigt werden?
Lösung Nr. 1: Ausblenden des Wertes "0,00"
In Steuerelementeigenschaften des Berichtsfeldes folgenden Eintrag:
=WENN(Cdbl([Feldname])=0;"";[Feldname])
Lösung Nr. 2: Ausblenden der ganzen Zeile
In Steuerelementeigenschaften aller Berichtsfelder der entsprechenden Zeile folgenden Eintrag:
=WENN(Cdbl([Feldname])=0;"";[Feldname1])
=WENN(Cdbl([Feldname])=0;"";[Feldname2])
=WENN.....
Zusätzlich die Eigenschaft Verkleinern für alle Felder auf JA stellen.
Lösung Nr. 3: Keine Zeile und keine Kalkulation
In der Abfrage im entsprechenden Feld als Kriterium <>0 eingeben.
Gruß
Johnny
everything's possible!
Soll die ganze Zeile ausgeblendet werden? D.h. auch andere Spalten, die evtl. Werte enthalten?
Werden Berechnungen durchgeführt, die die ganze Zeile unberücksichtigt lassen sollen?
Oder soll nur der Inhalt "0,00" durch "" ersetzt werden, die anderen Spalten der Zeile trotzdem angezeigt werden?
Lösung Nr. 1: Ausblenden des Wertes "0,00"
In Steuerelementeigenschaften des Berichtsfeldes folgenden Eintrag:
=WENN(Cdbl([Feldname])=0;"";[Feldname])
Lösung Nr. 2: Ausblenden der ganzen Zeile
In Steuerelementeigenschaften aller Berichtsfelder der entsprechenden Zeile folgenden Eintrag:
=WENN(Cdbl([Feldname])=0;"";[Feldname1])
=WENN(Cdbl([Feldname])=0;"";[Feldname2])
=WENN.....
Zusätzlich die Eigenschaft Verkleinern für alle Felder auf JA stellen.
Lösung Nr. 3: Keine Zeile und keine Kalkulation
In der Abfrage im entsprechenden Feld als Kriterium <>0 eingeben.
Gruß
Johnny
Antwort 2 von Manfred
Hallo Johnny,
ich habe die Formel bei "Steuerelementinhalt" eingegeben. Da stand zunächst der Name des Textfeldes. Den habe ich überschrieben. Das Programm hat dann automatisch "Cdbl" in "ZDouble" umgewandelt.
Das Null-Feld wird nun unterdrückt, aber auch die anderen Zeilen im Detailbereich, wo Zahlen stehen, die erscheinen sollen.
Ich habe das Gefühl, eine kleine Änderung ... !?
ich habe die Formel bei "Steuerelementinhalt" eingegeben. Da stand zunächst der Name des Textfeldes. Den habe ich überschrieben. Das Programm hat dann automatisch "Cdbl" in "ZDouble" umgewandelt.
Das Null-Feld wird nun unterdrückt, aber auch die anderen Zeilen im Detailbereich, wo Zahlen stehen, die erscheinen sollen.
Ich habe das Gefühl, eine kleine Änderung ... !?
Antwort 3 von Roadrunner90
Hallo Manfred,
der einfachste Weg ist:
Detailbereich Ereignis beim Formatieren:
if deinFeld = 0 then
detailbereich.visible = false
else
detailbereich.visible = true
end if
Ist getestet und läuft problemlos
Gruß Rudolf
der einfachste Weg ist:
Detailbereich Ereignis beim Formatieren:
if deinFeld = 0 then
detailbereich.visible = false
else
detailbereich.visible = true
end if
Ist getestet und läuft problemlos
Gruß Rudolf
Antwort 4 von Roadrunner90
Nachtrag:
das gilt natürlich für die ganze Zeile.
Willst du nur ein Feld ausblenden
dann den Code wie oben und detailbereich durch den Feldnamen ersetzen
das gilt natürlich für die ganze Zeile.
Willst du nur ein Feld ausblenden
dann den Code wie oben und detailbereich durch den Feldnamen ersetzen
Antwort 5 von Manfred
Hallo Rudolf,
ist bei mir im Einsatz und läuft perfekt!
Vielen Dank, Manfred
ist bei mir im Einsatz und läuft perfekt!
Vielen Dank, Manfred