![\"Entwurf](\"..\/tl_files\/images\/pic_373_001.png\")
<\/a><\/p>\nBild 1: Entwurf der Datumstabelle<\/p>\n
Diese Tabelle füllen wir mit der Prozedur DatumsangabenSchreiben<\/b>, welche Sie im Modul mdlTools<\/b> der Beispieldatenbank finden. Die Prozedur sieht wie in Listing 1 aus und durchläuft eine Schleife, in der jeweils ein Datensatz zur Tabelle hinzugefügt wird, bis 1.001 Datumsangaben in der Tabelle liegen. Die Schleife läuft über eine Datumsvariable namens datCurrent<\/b>, der Startwert ist der 1.1.2017, der Endwert ist dieses Datum plus 1.000.<\/p>\n Listing 1: Füllt die Tabelle tblDatumswerte mit 1.000 Datensätzen <\/p>\n Das Ergebnis sieht in der Tabelle wie in Bild 2 aus.<\/p>\n Bild 2: Gefüllte Datumstabelle<\/p>\n Nun wollen wir den Bericht erstellen, für den wir vorerst die folgende Vorgabe festlegen wollen: Er soll in einer Zeile sieben Datumsangaben anzeigen und dann in der nächsten Zeile mit den Datumsangaben fortfahren. Um die Wochentage et cetera kümmern wir uns vorerst nicht.<\/p>\n Als Erstes legen wir einen neuen Bericht namens rptKalender <\/b>an, dem wir als Datenherkunft die Tabelle tblDatumswerte <\/b>hinzufügen. Dann ziehen Sie das Feld Datumswert <\/b>aus der Feldliste in den Detailbereich des Berichtsentwurfs und entfernen das Bezeichnungsfeld dieses Steuerelements. Schieben Sie das Steuer-element dann nach ganz links oben. ändern Sie seine Größe so, dass es sieben Mal nebeneinander in den Bericht passt (siehe Bild 3).<\/p>\n Bild 3: Einfügen des Feldes zur Anzeige des Datums<\/p>\n Wenn Sie den Bericht nun in der Seitenansicht öffnen, werden die Datumswerte natürlich alle untereinander angezeigt (siehe Bild 4). Bevor wir dafür sorgen, dass sieben Datensätze je Zeile angezeigt werden, entfernen wir noch die alternierenden Hintergrundfarben und die Textrahmen. Stellen Sie dazu für den Detailbereich die Eigenschaft Alternative Hintergrundfarbe <\/b>auf den gleichen Wert ein wie die Eigenschaft Hintergrundfarbe <\/b>sowie die Eigenschaft Rahmenart <\/b>des Textfeldes auf den Wert Transparent<\/b>.<\/p>\n Bild 4: Bericht in der herkömmlichen Ansicht mit einem Datensatz je Zeile<\/p>\n Nun kümmern wir uns um die Wiederholung der Datensätze pro Zeile. Dazu fügen Sie für den Detailbereich des Berichts eine Ereignisprozedur für das Ereignis Beim Formatieren <\/b>hinzu (siehe Bild 5).<\/p>\n Bild 5: Einfügen einer Ereignisprozedur für Beim Formatieren<\/p>\n In einem ersten Versuch stellen wir in dieser Prozedur die Eigenschaft MoveLayout <\/b>auf den Wert False <\/b>ein:<\/p>\n Dies führt uns bereits in die richtige Richtung, aber noch nicht vollständig: Wie Bild 6 zeigt, erfolgt nun kein Zeilenwechsel mehr. Allerdings werden nun alle Datensätze der Tabelle übereinander abgebildet. Wir sorgen nun im nächsten Schritt dafür, dass die Elemente immer eine Position weiter nach rechts rücken.<\/p>\n Bild 6: Alle Datensätze werden übereinander geschrieben.<\/p>\n Dazu behelfen wir uns der Einstellung der Eigenschaft Left<\/b>, welche den Abstand eines Steuerelements vom linken Rand angibt. Wir führen eine modulweit zugängliche Variable namens intPosition <\/b>ein, welche die Position des Textfeldes für den aktuellen Datensatz speichern soll. Dieser Wert wird immer beim Aufruf der Beim Formatieren<\/b>-Ereignisprozedur um eins erhöht. Da dies wie in Listing 2 immer zu Beginn der Prozedur geschieht, lautet dieser Wert beim ersten Durchgang also beispielsweise 1<\/b>. Wenn intPosition <\/b>größer als 7 wird, soll es wieder auf den Wert 1 <\/b>eingestellt werden. Immer nach der Ermittlung des aktuellen Wertes für intPosition <\/b>stellt die Prozedur die Eigenschaft Left <\/b>ein, und zwar auf die über die Eigenschaft Width <\/b>ermittelte Breite multipliziert mit intPosition – 1<\/b>.<\/p>\n Listing 2: Die Datensätze sollen nun auf sieben Positionen aufgeteilt werden.<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>Public Sub <\/span>DatumsangabenSchreiben()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>datCurrent As Date<\/span>\r\n Dim <\/span>datStart As Date<\/span>\r\n Set<\/span> db = CurrentDb\r\n datStart = \"1.1.2017\"\r\n db.Execute \"DELETE * FROM tblDatumswerte\", dbFailOnError\r\n For datCurrent = datStart To datStart + 1000\r\n db.Execute \"INSERT INTO tblDatumswerte(Datumswert) VALUES(\" & Format(datCurrent, \"\\#yyyy\\-mm\\-dd\\#\") & \")\", dbFailOnError\r\n Next<\/span> datCurrent\r\nEnd Sub<\/span><\/pre>\n<\/a><\/p>\nDatum im Bericht<\/h2>\n
<\/a><\/p>\n<\/a><\/p>\nMehrere Datensätze pro Zeile<\/h2>\n
<\/a><\/p>\nPrivate Sub <\/span>Detailbereich_Format(Cancel As Integer<\/span>, _\r\n FormatCount As Integer<\/span>)\r\n Me.MoveLayout = False<\/span>\r\nEnd Sub<\/span><\/pre>\n<\/a><\/p>\nDim <\/span>intPosition As Integer<\/span>\r\nPrivate Sub <\/span>Detailbereich_Format(Cancel As Integer<\/span>, FormatCount As Integer<\/span>)\r\n Me.MoveLayout = False<\/span>\r\n intPosition = intPosition + 1\r\n If <\/span>intPosition > 7 Then<\/span>\r\n intPosition = 1\r\n End If<\/span>\r\n Me!Datumswert.Left<\/span> = Me!Datumswert.Width * (intPosition - 1)\r\nEnd Sub<\/span><\/pre>\n
\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