Zusätzliche Zeile oder Linie im Bericht einfügen

08/11/2007 - 23:35 von Andreas Kugel | Report spam
Hallo,
ich lasse Daten aus einer Abfrage in einem Bericht ausgeben.
Dieser dient als Montageanleitung..
Bestimmte Datensàtze werden beispielsweise in fetter Schrift dargestellt,
dies habe ich noch hinbekommen.
Wie bekomme ich es hin,
das nach einem bestimmten Datensatz entweder eine Leerzeile oder eine Linie
eingefügt wird oder
aber ein Datensatz mit einem vorgebenen Eintrag bsp.: "Mechanischer Part"

Diese Montageanleitung gibt zuerst elektrische Komponenten aus.
Danach folgen mechanische Komponenten.
Nun möchte ich zur besseren Übersicht sofort erkennen können,
wo der elektrische Part aufhört und der mechanische Teil beginnt.

Kann mir jemand einen Löung nennen?
Gruß
Andreas
 

Lesen sie die antworten

#1 Henry Habermacher
09/11/2007 - 07:36 | Warnen spam
Hallo Andreas

Andreas Kugel wrote:
ich lasse Daten aus einer Abfrage in einem Bericht ausgeben.
Dieser dient als Montageanleitung..
Bestimmte Datensàtze werden beispielsweise in fetter Schrift dargestellt,
dies habe ich noch hinbekommen.
Wie bekomme ich es hin,
das nach einem bestimmten Datensatz entweder eine Leerzeile oder eine
Linie eingefügt wird oder
aber ein Datensatz mit einem vorgebenen Eintrag bsp.: "Mechanischer Part"

Diese Montageanleitung gibt zuerst elektrische Komponenten aus.
Danach folgen mechanische Komponenten.
Nun möchte ich zur besseren Übersicht sofort erkennen können,
wo der elektrische Part aufhört und der mechanische Teil beginnt.



Hànge einfach eine Textbox "txtLeerzeile" unter den Datensatz im
Detailbereich rein.
Verkleinerbar auf Nein stellen. Verkleinerbar des Detailbereiches aber auf
Ja.

Beim Formatieren des Detailbereiches machst Du dann folgenden VBA Code rein:

If Me!ZusatzzeileAnzeigen = True Then
Me!txtLeerzeile.Visible = True
Else
Me!txtLeerzeile.Visible = False
End If

Voraussetzung ist, dass Deine Datenquelle eben ein Kennzeichnen je Datensatz
drin hat, das True ist, wenn eine Leerzeile angezeigt werden soll. Das kann
aber auch sonst irgendeine Bedingung sein, wie z.B.

If Instr(Me!Bezeichnung, "XXX") > 0 Then
...
else
...
End If

HTH
Henry

Microsoft MVP Office Access
Keine E-Mails auf Postings in NGs. Danke.
Access FAQ www.donkarl.com

Ähnliche fragen