![\"Einstellungen](\"..\/tl_files\/images\/pic_374_001.png\")
<\/a><\/p>\nBild 1: Einstellungen für einen mehrspaltigen Bericht<\/p>\n
- \n
- Wir stellen die Breite des Detailbereichs auf eine Breite ein, die maximal der Spaltenbreite einer Spalte entspricht. Wenn Sie dies nicht tun und die Breite des Detailbereichs multipliziert mit der Anzahl der gleich noch auszuwählenden Spalten ist größer als die gesamte Breite des Berichts, erhalten Sie die Meldung aus Bild 2.<\/li>\n
![\"Meldung,](\"..\/tl_files\/images\/pic_374_004.png\")
<\/a><\/p>\nBild 2: Meldung, wenn die Summe der Spaltenbreiten die Breite des Berichts überschreitet<\/p>\n
- öffnen des Dialogs Seite einrichten <\/b>über den entsprechenden Ribbon-Befehl. Hier wechseln Sie zur Registerseite Spalten<\/b> und stellen dort die Anzahl der Spalten mit der Eigenschaft Spaltenanzahl <\/b>auf 3 <\/b>ein. Unter Spaltenlayout <\/b>behalten wir die Einstellung Quer, dann nach unten <\/b>bei.<\/li>\n<\/ul>\n
Damit der Bericht die Kunden nach dem Nachnamen sortiert ausgibt, haben wir diesem Bericht noch eine Sortierung nach dem Feld Nachname <\/b>hinzufügt. Dies erledigen Sie durch einen Mausklick auf die Schaltfläche Sortierung hinzufügen <\/b>unten im Access-Fenster. Hier wählen Sie dann die gewünschte Sortierung aus, in diesem Fall das Feld Nachname<\/b> (siehe Bild 3).<\/p>\n
![\"Hinzufügen](\"..\/tl_files\/images\/pic_374_003.png\")
<\/a><\/p>\nBild 3: Hinzufügen einer Gruppierung<\/p>\n
Danach können wir einen ersten Versuch wagen und uns die Seitenansicht anschauen. Diese sieht wie in Bild 4 aus und zeigt zunächst abwechselnd weiß und grau hinterlegte Bereiche sowie eingerahmte Feldwerte. Dies ändern wir als Erstes:<\/p>\n
![\"Mehrspaltiger](\"..\/tl_files\/images\/pic_374_002.png\")
<\/a><\/p>\nBild 4: Mehrspaltiger Bericht in der Seitenansicht<\/p>\n
- \n
- Wechseln Sie in die Entwurfsansicht und markieren Sie alle gebundenen Felder im Detailbereich. Stellen Sie dann die Eigenschaft Rahmenart <\/b>auf Transparent <\/b>ein.<\/li>\n
- Anschließend markieren Sie den Detailbereich mit einem Mausklick auf den grauen Bereich mit der entsprechenden Beschriftung und stellen die Eigenschaft Alternative Hintergrundfarbe <\/b>auf den gleichen Wert ein, der auch für die Eigenschaft Hintergrundfarbe <\/b>eingestellt ist (siehe Bild 5).<\/li>\n
![\"Anpassen](\"..\/tl_files\/images\/pic_374_005.png\")
<\/a><\/p>\nBild 5: Anpassen der Hintergrundfarbe<\/p>\n<\/ul>\n
Wenn Sie nun erneut in die Seitenansicht wechseln, sieht das Bild schon besser aus (siehe Bild 6).<\/p>\n
![\"Bericht](\"..\/tl_files\/images\/pic_374_006.png\")
<\/a><\/p>\nBild 6: Bericht ohne Ränder und Textrahmen<\/p>\n
Die alternierenden Hintergrundfarben sind verschwunden und auch die Textrahmen sind ausgeblendet.<\/p>\n
Anfangsbuchstabe als Zeilenüberschrift<\/h2>\n
Nun wollen wir den Bericht noch etwas hübscher machen und die ausgegebenen Adressblöcke nach dem Anfangsbuchstaben gruppieren.<\/p>\n
Dazu passen wir zunächst die Datenherkunft des Berichts an. Die Abfrage sieht nun wie in Bild 7 aus.<\/p>\n
![\"Datenherkunft](\"..\/tl_files\/images\/pic_374_007.png\")
<\/a><\/p>\nBild 7: Datenherkunft für den Bericht mit Gruppierung nach Anfangsbuchstaben<\/p>\n
Wir haben alle Felder der Tabelle tblKunden <\/b>zum Abfrageentwurf hinzugefügt und noch ein weiteres Feld namens Anfangsbuchstabe<\/b>. Dieses enthält den Ausdruck Links(Nachname;1) <\/b>als Wert. Es liefert jeweils den Anfangsbuchstaben des Nachnamens des aktuellen Datensatzes.<\/p>\n
Gruppierung hinzufügen<\/h2>\n
Dem Berichtsentwurf fügen wir nun neben der Sortierung im unteren Bereich noch eine Gruppierung hinzu, indem wir auf die Schaltfläche Gruppierung hinzufügen <\/b>klicken. Die Gruppierung wird standardmäßig unter den bereits bestehenden Sortierungen und Gruppierungen angelegt, sodass wir diese noch mit der Nach oben<\/b>-Schaltfläche um eine Position nach oben verschieben müssen. Die Gruppierung soll nach dem Inhalt des Feldes Anfangsbuchstabe <\/b>erfolgen. Das Feld Anfangsbuchstabe<\/b> fügen wir dem automatisch erstellten Gruppenkopfbereich für diese Gruppe hinzu (siehe Bild 8).<\/p>\n
![\"Einfügen](\"..\/tl_files\/images\/pic_374_009.png\")
<\/a><\/p>\nBild 8: Einfügen einer neuen Gruppierung nach dem Anfangsbuchstaben<\/p>\n
Der Wechsel in die Seitenansicht bremst uns ein wenig: Die Gruppenkopfbereiche werden nämlich auf die gleiche Breite gesetzt wie die mehrspaltig angezeigten Adressblöcke. Außerdem befinden sich die Anfangsbuchstaben auch nicht über den dazu gehörenden Adressblöcken, sondern daneben (siehe Bild 9). Um es gleich festzuhalten: Es gibt keine Möglichkeit, unsere gewünschte Darstellung zu erhalten, ohne VBA einzusetzen.<\/p>\n
![\"Die](\"..\/tl_files\/images\/pic_374_008.png\")
<\/a><\/p>\nBild 9: Die Gruppierung nach dem Anfangsbuchstaben ist etwas missglückt.<\/p>\n
Alternative mit VBA<\/h2>\n
Zu der hier erreichten Darstellungsart gibt es neben den Einstellungen für die Spaltenanzahl noch eine weitere Möglichkeit. Diese verwendet VBA, um anzugeben, ob ein Datensatz noch in der aktuellen Zeile gedruckt oder in die folgende Zeile verschoben werden soll. Die Grundlagen hierzu finden Sie im Artikel Zeilenvorschub in Berichten steuern<\/b>.<\/p>\n
Von dort haben wir den Großteil der folgenden Prozeduren. Zunächst deklarieren wir zwei Variablen. Die erste nimmt die aktuelle Spalte auf, die zweite die Breite einer Spalte:<\/p>\n
Dim <\/span>intSpalte As Integer<\/span>\r\nDim <\/span>intWidth As Integer<\/span><\/pre>\nDie Breite der Spalte ermitteln wir aus der Breite des Feldes Anrede <\/b>plus 100 <\/b>als Abstand zwischen zwei Spalten:<\/p>\n
Private Sub <\/span>Report_Load()\r\n intWidth = Me.Anrede.Width + 100\r\nEnd Sub<\/span><\/pre>\nDanach übernehmen wir die Prozedur aus dem oben genannten Artikel. Dort sorgen wir dafür, dass der komplette Datensatz nicht in die nächste Zeile rutscht, wenn noch nicht vier Datensätze in der aktuellen Spalte vorhanden sind. Im Gegensatz zum Beispiel des Kalenders aus dem genannten Artikel müssen wir hier sechs Steuer-elemente verschieben und nicht nur eines:<\/p>\n
Private Sub <\/span>Detailbereich_Format(Cancel As Integer<\/span>, FormatCount As Integer<\/span>)\r\n Me.MoveLayout = False<\/span>\r\n intSpalte = intSpalte + 1\r\n If <\/span>intSpalte = 4 Then<\/span>\r\n Me.MoveLayout = True<\/span>\r\n End If<\/span>\r\n If <\/span>intSpalte > 4 Then<\/span>\r\n intSpalte = 1\r\n End If<\/span>\r\n Me!Anrede.Left<\/span> = intWidth * (intSpalte - 1)\r\n Me!Vorname.Left<\/span> = intWidth * (intSpalte - 1)\r\n Me!Nachname.Left<\/span> = intWidth * (intSpalte - 1)\r\n Me!Strasse.Left<\/span> = intWidth * (intSpalte - 1)\r\n Me!PLZ.Left<\/span> = intWidth * (intSpalte - 1)\r\n Me!Ort.Left<\/span> = intWidth * (intSpalte - 1)\r\nEnd Sub<\/span><\/pre>\nMöchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t - Anschließend markieren Sie den Detailbereich mit einem Mausklick auf den grauen Bereich mit der entsprechenden Beschriftung und stellen die Eigenschaft Alternative Hintergrundfarbe <\/b>auf den gleichen Wert ein, der auch für die Eigenschaft Hintergrundfarbe <\/b>eingestellt ist (siehe Bild 5).<\/li>\n
- öffnen des Dialogs Seite einrichten <\/b>über den entsprechenden Ribbon-Befehl. Hier wechseln Sie zur Registerseite Spalten<\/b> und stellen dort die Anzahl der Spalten mit der Eigenschaft Spaltenanzahl <\/b>auf 3 <\/b>ein. Unter Spaltenlayout <\/b>behalten wir die Einstellung Quer, dann nach unten <\/b>bei.<\/li>\n<\/ul>\n