<\/p>\n
André Minhorst, Duisburg<\/b><\/p>\n
Adressverwaltungen sind vermutlich die weit verbreiteste Anwendung von Datenbanken. Da außer Schürzenjägern vermutlich niemand Adressen nur um des Sammelns willen hortet, sollte eine Adressverwaltung die für den jeweiligen Anwendungsfall passende Funktion mitbringen. Auf Grund der Vielfalt potenzieller Erweiterungen stellt Access im Unternehmen in loser Folge neue Funktionen für die Adressverwaltung aus Ausgabe 4\/2003 vor. In der aktuellen Ausgabe erfahren Sie, wie Sie der Adressverwaltung das Drucken von Etiketten beibringen.<\/b><\/p>\n
Wenn Sie gelegentlich Serienbriefe verschicken und nicht gerade nur Umschläge mit Sichtfenster benutzen, kommen Sie früher oder später vermutlich zu dem Vergnügen, Etiketten zu bedrucken und diese anschließend aufzukleben. Word und Access bieten Assistenten, die Ihnen dabei helfen, wenn Sie nicht allzu hohe Ansprüche stellen. Sobald man aber mal mehrere Exemplare mit der gleichen Adresse oder nur die restlichen Etiketten eines bereits angebrochenen Etikettenbogens bedrucken möchte, wird man schmählich im Stich gelassen. In den folgenden Kapiteln erfahren Sie daher, wie Sie die in den Ausgaben 4\/2003 und 6\/2003 von Access im Unternehmen vorgestellte Adressverwaltung in eine Etikettendruckmaschine umwandeln.<\/p>\n
Ziel der Erweiterung der Adressverwaltung ist nicht nur eine Funktion zum Drucken einer Liste von Adressen auf einem Etikettenbogen – die Ausgabe soll auch besonders flexibel sein. Dazu gehören vor allem die folgenden Punkte:<\/p>\n
![](\"..\/fileadmin\/_temp_\/{00860D23-9071-4E34-BB0D-C43CA81A9D97}\/pic001.png\")
<\/p>\n
<\/b><\/p>\n
Bild 1: Aufrufen der Funktion Etikettendruck<\/span><\/b><\/p>\n Der Menüeintrag Berichte\/Etikettendruck dient dem Aufrufen des Formulars mit den weiteren Funktionen (siehe Bild 1). Im Dialog mit der überschrift Etiketten drucken stellen Sie alle benötigten Eigenschaften für den Ausdruck der Etiketten ein (siehe Bild 2).<\/p>\n Das Kombinationsfeld Etikettlayout dient der Auswahl einer Vorlage für das Aussehen eines einzelnen Etiketts. Dort können Sie beispielsweise eine allgemeine Vorlage ablegen, die für den alltäglichen Geschäftsverkehr verwendet wird, oder Sie legen zusätzlich weitere Vorlagen für besondere Anlässe an. Falls Sie sich nun fragen, was für besondere Anlässe es denn gäbe und wie sich das Aussehen von Etiketten dadurch verändert, stellen Sie sich doch einfach einmal vor, Sie möchten zu Weihnachten ein Etikett verwenden, das neben der Adresse noch einen schnuckeligen Weihnachtsbaum enthält.<\/p>\n <\/b><\/p>\n Bild 2: Hier legen Sie die Parameter für den Etikettendruck fest.<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 3: Ein Etikett in der Entwurfsansicht<\/span><\/b><\/p>\n Nebenher können Sie natürlich verschiedene Etikettlayouts für die unterschiedlichen Abmessungen der Etiketten auf den Etikettenbögen anlegen.<\/p>\n Die Schaltfläche zum Bearbeiten eines Etikettlayouts öffnet den Bericht mit dem jeweiligen Etikett in der Entwurfsansicht (siehe Bild 3). Dieser Bericht ist schon so weit vorbereitet, dass er alle relevanten Felder enthält.<\/p>\n Zum Anpassen des Berichts stellt man einfach die üblichen Eigenschaften der Steuerelemente wie Schriftart, -größe, -farbe, -dicke und so weiter ein.<\/p>\n Selbstverständlich muss man dafür Sorge tragen, dass die Abmessungen des Grundlayouts des Etiketts nicht mit den Abmessungen des Etikettenbogens ins Gehege kommen – dazu jedoch weiter unten mehr.<\/p>\n Mit der Schaltfläche Neues Etikett kann man ein neues Etikett erstellen. Da die Anwendung auch für Benutzer ohne umfangreiche Access-Erfahrung nützlich sein soll, wirft sie ihm keinen leeren Bericht vor die Füße, sondern verwendet den im Kombinationsfeld Etikettlayout ausgewählten Eintrag als Vorlage.<\/p>\n Nach dem Klick auf die Schaltfläche Neues Etikett muss der Benutzer zunächst eine Bezeichnung für das neue Etikettlayout eingeben, bevor er mit dem Editieren beginnen kann. Mit dem Schließen des Entwurfs und der Bestätigung des Speichervorgangs ist das neue Etikettlayout einsatzbereit.<\/p>\n Die Funktion zum Drucken von Etiketten wäre noch benutzerfreundlicher, wenn statt des Berichtsentwurfs eine alternative, idiotensichere Benutzeroberfläche zum Anpassen der Etikettlayouts vorhanden wäre. Das würde allerdings erstens den Rahmen des vorliegenden Beitrags sprengen und andererseits die Flexibilität einschränken, die der Berichtsentwurf bietet. Wenn Sie die Anwendung also Benutzern zugänglich machen, die nicht sensibel genug für den Umgang mit dem Berichtsentwurf sind, stellen Sie ihm einfach das gewünschte Layout zur Verfügung und deaktivieren die Funktion. <\/p>\n Sie möchten natürlich nicht nur ein Etikett auf Ihren Bogen drucken, sondern wenn möglich eine ganze Menge – und das in der zu dem Bogen passenden richtigen Spalten- und Zeilenanzahl und den entsprechenden Abmessungen.<\/p>\n Die Auswahl der zur Verfügung stehenden Etikettenbögen und die Bearbeitung bestehender sowie die Erstellung neuer Vorlagen erfolgt über das Kombinationsfeld Etikettenbögen und die rechts daneben befindliche Schaltfläche.<\/p>\n Mit dem Kombinationsfeld wählen Sie einen der vorhandenen Bögen aus. Um die Eigenschaften des Bogens zu bearbeiten oder einen neuen Bogen anzulegen, klicken Sie auf die Schaltfläche neben dem Kombinationsfeld. Es öffnet sich der Dialog aus Bild 4.<\/p>\n <\/b><\/p>\n Bild 4: Eigenschaften eines Etikettenbogens<\/span><\/b><\/p>\n Nehmen Sie sich nun den Etikettenbogen Ihrer Wahl zur Hand und tragen Sie die Abmessungen des Bogens hier ein. Gegebenenfalls finden Sie diese auf der Verpackung der Etiketten und müssen nicht selbst zum Lineal greifen. Anderenfalls haben Sie auch die Möglichkeit, den Etikettenassistenten von Word zu öffnen und dort die gewünschten Abmessungen zu ermitteln.<\/p>\n Dazu gehen Sie folgendermaßen vor:<\/p>\n <\/b><\/p>\n Bild 5: Auswahl der Etikettenmarken und -typen<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 6: Ansicht der Abmessungen eines Etikettenbogens<\/span><\/b><\/p>\n Zum Anlegen eines neuen Bogens öffnen Sie zunächst den Dialog zum Bearbeiten der Etikettenbögen. Anschließend klicken Sie auf die Schaltfläche zum Anlegen eines neuen Datensatzes – das ist die rechte Schaltfläche der Navigationsleiste.<\/p>\n Wenn Sie bereits Erfahrung im Umgang mit Berichten in Access haben, wissen Sie, dass der sichtbare Bereich in der Entwurfsansicht lediglich den bedruckbaren Bereich des Blattes anzeigt. Die Seitenränder bekommen Sie erst in der Vorschauansicht oder beim Ausdruck zu sehen.<\/p>\n Da die Seitenränder von Drucker zu Drucker und unter Umständen auch in Abhängigkeit des Anwendungsfalls unterschiedlich eingestellt sein können, enthält die Anwendung auch die Möglichkeit, verschiedene Seiteneinstellungen zu speichern.<\/p>\n Das ist gerade aus dem folgenden Grund wichtig: Die Abmessungen der Etikettenbögen werden absolut in Bezug zum oberen und linken Seitenrand angegeben. Wenn nun der Rand auf dem Etikettenbogen 25 mm beträgt, aber der in den Seiteneinstellungen eingetragene Seitenrand nur 20 mm misst, muss die Anwendung dies beim Drucken des Berichts berücksichtigen und den Inhalt des Etiketts um die Differenz der beiden Seitenränder – also 5 mm – vom linken Rand entfernt einsetzen. Access könnte die Seiteneinstellungen des aktuellen Berichts auch automatisch einlesen. Dieser Vorgang ist jedoch äußerst kompliziert und wird daher durch eine manuelle Eingabe der Seitenränder und Papierabmessungen ersetzt.<\/p>\n Da die Anwendung auch hier flexibel sein soll, kann man wiederum mehrere Vorlagen festlegen. Das Kombinationsfeld Druckereinstellungen dient der Auswahl einer der zur Verfügung stehenden Vorlagen. Die ausgewählte Vorlage kann durch einen Mausklick auf die rechts daneben liegende Schaltfläche bearbeitet werden(siehe Bild 7).<\/p>\n Auch hier klicken Sie zum Neuanlegen einer Vorlage auf die rechte Schaltfläche der Navigationsleiste.<\/p>\n <\/b><\/p>\n Bild 7: Eingabe von Druckereinstellungen<\/span><\/b><\/p>\n <\/p>\n Die Anwendung enthält keine Validierung, ob die Abmessungen der einzelnen Etiketten, der Etikettenbögen und die Druckereinstellungen miteinander korrespondieren. Diese Funktion wäre ein ernsthafter Kandidat für eine mögliche Erweiterung. <\/p>\n Mit dem gleichnamigen Textfeld legen Sie fest, wie viele Etiketten am Anfang des Etikettenbogens freigelassen werden. Die freien Etiketten werden dabei von links nach rechts und von oben nach unten gezählt.<\/p>\n Um die Anzahl der Etiketten je Adresse festzulegen, gibt es zwei Möglichkeiten. Die erste Möglichkeit ist das manuelle Festlegen der Anzahl je Adresse. Dazu befindet sich am rechten Rand einer jeden Adresse ein Textfeld zur Eingabe der gewünschten Anzahl. Da normalerweise davon auszugehen ist, dass man von jedem Etikett die gleiche Anzahl druckt, enthält das Formular zusätzlich ein Textfeld, in das Sie die Anzahl eingeben können, die das Formular für alle Adressen speichern soll.<\/p>\n Nachdem alle Einstellungen vorgenommen sind, wartet die Schaltfläche Etiketten drucken auf ihren Einsatz. Sie bewirkt die Anzeige des Berichts mit den Etiketten in der Vorschauansicht (siehe Bild 8).<\/p>\n <\/b><\/p>\n Bild 8: Das fertige Formular<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 9: Datenmodell der Adressverwaltung<\/span><\/b><\/p>\n Die Adressverwaltung verwaltet im Gegensatz zu vielen Konkurrenzprogrammen die Adressen von Personen und Unternehmen getrennt in zwei unterschliedlichen Tabellen. Diese müssen Sie natürlich zunächst in entsprechender Form in einer Abfrage zusammenführen. <\/p>\n Dabei können drei verschiedene Arten von Adressen auftauchen:<\/p>\n Die Unternehmen werden in Unternehmen mit und ohne Ansprechpartner unterteilt, weil es möglich ist, dass ein Unternehmen nicht nur einen Ansprechpartner hat, sondern dass jeder Mitarbeiter ein möglicher Ansprechpartner ist.<\/p>\n Ein Blick auf das Datenmodell bringt weiteres Licht ins Dunkel (siehe Bild 9). Jedes Unternehmen wird für sich in einem Datensatz der Tabelle tblUnternehmen gespeichert. Die Zuordnung der Adressen der Personen zu den Unternehmen erfolgt in der Tabelle tblAdressen. Davon ausgehend, dass jede Person nur in einem Unternehmen arbeitet, kann das Unternehmen über das Verknüpfungsfeld UnternehmenID der Tabelle tblAdressen ausgewählt werden.<\/p>\n Die für die Auswahl der zu druckenden Adressetiketten erforderliche Datenherkunft soll nun jede Person einmal mit der eigenen Adresse und, soweit vorhanden, einmal mit den beruflichen Kontaktdaten aufführen und zusätzlich die allgemeinen Adressdaten der einzelnen Unternehmen enthalten.<\/p>\n Dazu ist die Verknüpfung mehrerer Tabellen oder Abfragen per UNION-Abfrage erforderlich.<\/p>\n Die Tabellen sollen folgendermaßen aufgebaut sein:<\/p>\n Die vorliegende Konstellation macht es nicht unbedingt leicht, die Daten für Adressetiketten bereitzustellen. Wesentlich leichter wäre es, wenn die Daten von Unternehmen und Personen sich wie in anderen Adressverwaltungen in einer Tabelle befinden würden. Da die vorliegende Anwendung jedoch Ihre Kontaktdaten aus unterschiedlichen Quellen bezieht, sind nachfolgend einige Tricks erforderlich, um zum gewünschten Ergebnis zu kommen.<\/p>\n Das in der weiter oben beschriebenen Funktionsweise der Anwendung erläuterte Ziel, Adressen in ein- oder mehrfacher Ausführung in Etikettenform auszugeben, beschwört zunächst eine grundlegende Entscheidung bezüglich des Datenmodells herauf.<\/p>\n Es gilt nämlich, die Anzahl der auszudruckenden Exemplare jeder Adresse, ob Unternehmen, Privatperson oder Ansprechpartner, mit dieser zu speichern.<\/p>\n Da die Daten aus unterschiedlichen Tabellen stammen, müssten eben diese um je ein Feld zur Angabe der Anzahl ergänzt werden. Das würde noch funktionieren, wenn nur Personen und Unternehmen vorkämen, aber da Personen auch noch in Zusammenhang mit Unternehmen als Ansprechpartner aufgeführt werden sollen, müssten schon mehrere neue Felder für die Speicherung der jeweiligen Anzahl angelegt werden.<\/p>\n Wenn zu einem Datensatz zusätzliche Daten gespeichert werden sollen, bietet sich gelegentlich eine 1:1-Beziehung an. Im vorliegenden Fall kommt diese Möglichkeit sehr gelegen, wenn folgende Vorgehensweise zum Zuge kommt:<\/p>\n Als Beispiel für die Abfragen zur Ermittlung der Datensätze der drei Kontaktarten dient die Abfrage zur Ermittlung der Unternehmen mit Ansprechpartner (qryEtikettenUnternehmenAnsprechpartner). Diese Abfrage fasst die Tabellen tblPersonen und tblUnternehmen so zusammen, dass alle Kombinationen aus Personen und Unternehmen enthalten sind (siehe Bild 10). Zusätzlich zieht sie die Tabelle tblAnzahlen hinzu, die zu jedem Datensatz der Tabelle tblPersonen einen Datensatz enthalten kann, aber nicht muss.<\/p>\n Daher werden die beiden Tabellen tblPersonen und tblAnzahlen über eine spezielle Beziehung verknüpft, die alle Datensätze der Tabelle tblPersonen enthält, aber nur für die Datensätze der Tabelle tblAnzahlen Daten anzeigt, die auch mit den entsprechenden Einträgen der Tabelle tblPersonen verknüpft sind.<\/p>\n Wichtig ist in dem Zusammenhang auch der eindeutige Index, der in dem Feld UniqueID gespeichert wird. Da die resultierende Abfrage ja Personen sowohl als Privatperson als auch als Ansprechpartner eines Unternehmens enthalten können soll, muss ein neuer eindeutiger Index geschaffen werden. Dieser besteht aus dem folgenden Ausdruck:<\/p>\n <\/b><\/p>\n Bild 10: Abfrage zur Ermittlung von Unternehmen und Ansprechpartnern inklusive Anzahl<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 11: Ergebnis der UNION-Abfrage zur Zusammenführung der unterschiedlichen Kontaktarten<\/span><\/b><\/p>\n Das bedeutet, dass ein führendes U gefolgt von der ID des Unternehmens durch ein A gefolgt von der ID der Person ergänzt wird, um so die eindeutige Kombination aus Personen und Unternehmen zu ermitteln. Zusätzlich enthält jeder Datensatz den Namen der Tabelle, aus der er stammt, also tblPersonen oder tblUnternehmen.<\/p>\n Die Abfragen zur Ermittlung der Kontaktdaten aller Privatpersonen sowie der Unternehmen in separater Form sehen ähnlich aus.<\/p>\n Die resultierenden drei Abfragen qryEtikettenUnternehmenAnsprechpartner, qryEtikettenUnternehmen und qryEtikettenPersonen werden durch die folgende UNION-Abfrage zu einer Datenquelle zusammengefasst:<\/p>\n Das Ergebnis dieser Abfrage könnte beispielsweise wie in Bild 11 aussehen. Wie dort gut zu erkennen ist, gibt es Personen ohne Unternehmen, Unternehmen ohne Ansprechpartner sowie Unternehmen mit Ansprechpartner. Prinzipiell haben Sie nun eine Abfrage zusammen, die als Grundlage für die Ausgabe von Etiketten dienen könnte – sie enthält alle Datensätze und die Anzahl, in der die Datensätze gedruckt werden sollen.<\/p>\n Die nachfolgendend beschriebenen Vorgehensweisen sind nicht typisch für die Erstellung von Berichten zur Ausgabe von Etiketten. Die hier vorliegende Aufgabenstellung erfordert einige Tricks und Kniffe. Beispiele für die herkömmliche Erstellung von Etikettenberichten finden Sie im Internet unter der Adresse http:\/\/www.access-im-unternehmen.de\/221.0.htm. <\/p>\n Zur Ausgabe von Etiketten mit der Adressverwaltung sind mindestens zwei Berichte erforderlich: einer mit dem Layout eines einzelnen Etiketts und einer, der dieses einzelne Etikett in einen Unterbericht aufnimmt und entsprechend den gewünschten Abmessungen und Eigenschaften ausgibt.<\/p>\n Eine der schwierigsten Fragen ist, wie die unterschiedlichen Anforderungen an den Etikettenbericht erfüllt werden: die gleichzeitige Verarbeitung von beliebig vielen leeren Etiketten und einer beliebigen Anzahl von Exemplaren der auszugebenden Etiketten. Zusätzlich sind ja noch mehrere Etiketten je Zeile auszugeben, was dazu führt, dass man sich zunächst einmal genauer mit den drei Berichtseigenschaften MoveLayout, NextRecord und PrintSection auseinandersetzt. Diese drei wirken folgendermaßen:<\/p>\n Mit diesen drei Eigenschaften machte der Autor sich ans Werk, um das angegebene Ziel zu erreichen (Autoren gehen durchaus auch einmal triviale Wege, um anschließend festzustellen, dass diese nicht zum Ziel führen).<\/p>\n Das Ziel wurde aus folgendem Grund nicht erreicht: Die Aufgabenstellung erfordert, dass gleichzeitig mehrere Etiketten je Datensatz gedruckt werden (NextRecord = False) und die Zeile nicht verlassen wird (MoveLayout = False). Leider akzeptiert Access diese Variante nicht mit dem Hinweis, dass es passieren kann, dass der Bericht ununterbrochen gedruckt wird, wenn beide Eigenschaften den Wert False haben.<\/p>\n Der Autor dieser Zeilen konnte Access mit keinem Mittel davon überzeugen, dass er sich dieses Risikos durchaus bewusst ist. Da diese spezielle Berichtsausgabe aber darauf angewiesen war, mehrere Datensätze in einer Zeile zu drucken, von denen zusätzlich jeder mehrfach vorkommen konnte, entstand eine Alternativlösung.<\/p>\n Diese fügt der umfangreichen Sammlung aufeinander aufbauender Abfragen zur Ermittlung der gewünschten Daten noch eine weitere Abfrage hinzu. In dieser Abfrage wird jeder Datensatz so oft angezeigt, wie es in dem Feld Anzahl angegeben ist. Die genaue Vorgehensweise hierzu finden Sie unter der Adresse http:\/\/www.access-im-unternehmen.de\/216.0.html im Internet.<\/p>\n Leere Etiketten oder generell leere Datensätze erzeugt man unter Access, indem man die Eigenschaft PrintSection für die gewünschte Anzahl Datensätze auf den Wert False einstellt. Da aber nun schon die Lösung für die mehrfache Anzeige eines einzelnen Datensatzes in eine Abfrage ausgegliedert wurde, soll auch in diesem Fall eine Abfrage herhalten. Die Abfrage ist genauso aufgebaut wie die Abfrage aus dem vorherigen Abschnitt – mit dem Unterschied, dass die einzelnen Felder mit dem Wert 0 für die Zahlenfelder und einer leeren Zeichenkette für die übrigen Felder gefüllt werden. Die Anzahl der leeren Etiketten wird aus dem Formular frmEtikettenDrucken ausgelesen. <\/p>\n Genau wie in der Abfrage mit ein- oder mehrfach enthaltenen Kontaktdaten können auch hier einer und mehrere Datensätze, aber auch kein Datensatz enthalten sein.<\/p>\n <\/b><\/p>\n Bild 12: Haupt- und Unterbericht mit Verknüpfungseigenschaften<\/span><\/b><\/p>\n Quellcode 1<\/b><\/p>\n Die Ausgabe der Etiketten wird durch einen Haupt- und einen Unterbericht realisiert, wobei der Unterbericht die Steuerelemente zur Anzeige der einzelnen Felder des Kontaktes enthält und im Detailbereich des Hauptberichts in einem Unterberichtsteuerelement untergebracht wird (siehe Bild 12).<\/p>\n Das Unterberichtsteuerelement verwendet eine Abfrage als Datenherkunft, die alle vorhandenen Kontakte sowie einen „blinden“ Datensatz enthält, dessen anzuzeigende Felder alle leer sind und dessen Feld UniqueID den Wert 0 hat (siehe Abfrage qryEtikettenMitAnzahl in der Beispieldatenbank).<\/p>\n Somit enthält die Datenherkunft des Unterberichts alle Elemente, die als Inhalt eines Etiketts in Frage kommen. Ob und wie oft diese angezeigt werden, hängt von der Datenherkunft des Hauptformulars ab, das über das Feld UniqueID mit dem entsprechenden Feld des Unterberichts verknüpft ist.<\/p>\n Wenn die Datenherkunft des Hauptformulars nun zweimal den Kontakt A, einmal den Kontakt B und einmal den leeren Kontakt enthält, zeigt es entsprechend sechs Datensätze an. In deren Detailbereich befindet sich jeweils der aktuelle Kontakt in den Steuerelementen des Unterberichts. Damit der Bericht die leeren Datensätze auch zu Beginn anzeigt, sortiert die Abfrage, die als Datenherkunft des Hauptberichts dient, die Daten direkt nach der UniqueID.<\/p>\n Nachdem der größte Teil der Vorbereitungen der Berichte und der Datenherkünfte durch relativ aufwändige Abfragen erfolgt ist, folgt nun noch die eigentliche Anzeige der Daten im Bericht.<\/p>\n Quellcode 2<\/b><\/p>\n Das Klassenmodul des Berichts rptEtikettenbogen enthält im Kopf die Deklaration einiger Variablen (s. Quellcode 1).<\/p>\n Die durch das öffnen des Berichts ausgelöste Prozedur Report_Open (s. Quellcode 2) hat die wesentliche Aufgabe, die Werte dieser Variablen aus den beiden Tabellen tblEtiketten und tblDruckereinstellungen auszulesen. Die IDs der auszulesenden Datensätze dieser Tabellen ermittelt die Prozedur aus den entsprechenden Kombinationsfeldern des Formulars frmEtikettenDrucken.<\/p>\n Die Prozedur wertet auch das dritte Kombinationsfeld dieses Formulars aus und ermittelt daraus den Bericht, der das anzuzeigende Etikett enthält. Dieser Bericht dient als Inhalt des Unterberichtsteuerelements im Detailbereich.<\/p>\n Nebenher initialisiert die Prozedur noch einige Zählervariablen wie intZaehler zum Zählen der aktuell bearbeiteten Zeile und intAktuelleSpalte.<\/p>\n Die Hauptarbeit übernimmt die Prozedur Detailbereich_Format (s. Quellcode 3). Access ruft sie für jeden Datensatz einmal auf. Die Prozedur beginnt mit der überprüfung, ob schon die angegebene Anzahl von Spalten je Berichtsbogen erreicht ist, und setzt in Abhängigkeit vom Ergebnis die Eigenschaft Visible eines Seitenumbruch-Steuerelements auf den Wert True oder False. Dadurch erfolgt gegebenenfalls ein Seitenwechsel. Ist das der Fall, sorgt die Prozedur auch noch dafür, dass sich das Seitenumbruch-Steuerelement am unteren Rand des Berichts befindet.<\/p>\n Quellcode 3<\/b><\/p>\n Quellcode 4<\/b><\/p>\n In der folgenden If-Abfrage überprüft die Prozedur, ob die aktuelle Spalte der letzten Spalte der Zeile entspricht. Ist das der Fall, setzt sie den Wert der aktuellen Spalte wieder auf den Startwert 1, anderenfalls erhöht sie den Wert um 1 und rückt das Unterformular damit weiter nach rechts. Die genaue Position wird dabei aus der Summe des linken Randes und dem Produkt der Summe der Etikettenbreite und der Breite des Zwischenraums und dem Wert des Spaltenzählers ermittelt. Die Prozedur Report_Page (s. Quellcode 4) startet automatisch beim Anzeigen einer neuen Seite und initialisiert die Werte der aktuellen Zeile und Spalte jeweils auf den Wert 1.<\/p>\n Die Lösung ist nicht ganz trivial, offenbart aber, dass es unter Access immer mehrere Wege zum Ziel gibt. Erweiterungsmöglichkeiten bieten sich hier vor allem in der Optimierung der Benutzeroberfläche. Zusätzlich könnten die Herstellerdaten bestehender Etikettenbögen ermittelt und in die Datenbank eingepflegt werden, so erspart man dem Anwender einige Tipp- und vor allem Such- beziehungsweise Handarbeit mit dem Lineal.<\/p>\n","protected":false},"excerpt":{"rendered":" Adressverwaltungen sind vermutlich die weit verbreiteste Anwendung von Datenbanken. Da außer Schürzenjägern vermutlich niemand Adressen nur um des Sammelns willen hortet, sollte eine Adressverwaltung die für den jeweiligen Anwendungsfall passende Funktion mitbringen. Auf Grund der Vielfalt potenzieller Erweiterungen stellt Access im Unternehmen in loser Folge neue Funktionen für die Adressverwaltung aus Ausgabe 4\/2003 vor. In der aktuellen Ausgabe erfahren Sie, wie Sie der Adressverwaltung das Drucken von Etiketten beibringen.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_uf_show_specific_survey":0,"_uf_disable_surveys":false,"footnotes":""},"categories":[662004,66032004,44000024,44000027],"tags":[],"class_list":["post-55000221","post","type-post","status-publish","format-standard","hentry","category-662004","category-66032004","category-Berichte_und_Reporting","category-Loesungen"],"yoast_head":"\nStarten des Etikettendrucks<\/h3>\n
Anpassen des Layouts eineseinzelnen Etiketts<\/h2>\n
![](\"..\/fileadmin\/_temp_\/{00860D23-9071-4E34-BB0D-C43CA81A9D97}\/pic002.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{00860D23-9071-4E34-BB0D-C43CA81A9D97}\/pic003.png\")
<\/p>\nErstellen eines neuen Etikettlayouts<\/h3>\n
Hinweis<\/h3>\n
Bearbeiten der Etikettenbögen<\/h2>\n
![](\"..\/fileadmin\/_temp_\/{00860D23-9071-4E34-BB0D-C43CA81A9D97}\/pic004.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{00860D23-9071-4E34-BB0D-C43CA81A9D97}\/pic005.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{00860D23-9071-4E34-BB0D-C43CA81A9D97}\/pic006.png\")
<\/p>\nAnlegen eines neuen Etikettenbogens<\/h3>\n
Festlegen der Seiteneinrichtung<\/h2>\n
![](\"..\/fileadmin\/_temp_\/{00860D23-9071-4E34-BB0D-C43CA81A9D97}\/pic007.png\")
<\/p>\nHinweis<\/h3>\n
Anzahl freier Etiketten<\/h2>\n
Anzahl der zu druckendenExemplare je Adresse<\/h2>\n
Drucken der Etiketten<\/h2>\n
![](\"..\/fileadmin\/_temp_\/{00860D23-9071-4E34-BB0D-C43CA81A9D97}\/pic008.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{00860D23-9071-4E34-BB0D-C43CA81A9D97}\/pic009.png\")
<\/p>\nVorüberlegungen<\/h2>\n
1:1-Beziehung<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{00860D23-9071-4E34-BB0D-C43CA81A9D97}\/pic010.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{00860D23-9071-4E34-BB0D-C43CA81A9D97}\/pic011.png\")
<\/p>\nUniqueID: \"U\" & [tblUnternehmen].[UnternehmenID] & \"A\" & [tblAdressen].[AdressID]<\/pre>\n
SELECT * FROM qryEtikettenPersonen\r\nUNION\r\nSELECT * FROM qryEtikettenUnternehmen\r\nUNION\r\nSELECT * FROM qryEtikettenUnternehmenAnsprechpartner;<\/pre>\n
Hinweis<\/h3>\n
Das Problem mit der Anzahl …<\/h2>\n
… und mit den leeren Etiketten<\/h2>\n
![](\"..\/fileadmin\/_temp_\/{00860D23-9071-4E34-BB0D-C43CA81A9D97}\/pic012.png\")
<\/p>\nOption Compare Database\r\nOption Explicit\r\nDim intZaehler As Integer\r\nDim intSpalten As Integer\r\nDim intZeilen As Integer\r\nDim intRandLinks As Integer\r\nDim intEtiketthoehe As Integer\r\nDim intEtikettbreite As Integer\r\nDim intZwischenraumVertikal As Integer\r\nDim intZwischenraumHorizontal As Integer\r\nDim intSeiteRandLinks As Integer\r\nDim intSeiteRandRechts As Integer\r\nDim intSeiteBreite As Integer\r\nDim intAktuelleSpalte As Integer<\/pre>\n
Haupt- und Unterbericht<\/h2>\n
Spalten einstellen per VBA<\/h2>\n
Private Sub Report_Open(Cancel As Integer)\r\n Dim db As DAO.Database\r\n Dim rstEtikettenbogen As DAO.Recordset\r\n Dim rstSeiteneinstellungen As DAO.Recordset\r\n Set db = CurrentDb\r\n Set rstEtikettenbogen = db.OpenRecordset(\"SELECT * FROM tblEtiketten WHERE \" _ & \"EtikettID = \" & Forms!frmEtikettenDrucken!cboEtikettbogen, dbOpenDynaset)\r\n Set rstSeiteneinstellungen = db.OpenRecordset(\"SELECT * FROM \" _ & \"tblDruckereinstellungen WHERE DruckereinstellungenID = \" _ & Forms!frmEtikettenDrucken!cboDruckereinstellungen, dbOpenDynaset)\r\n intZaehler = 1\r\n intAktuelleSpalte = 1\r\n With rstEtikettenbogen\r\n intSpalten = !Spalten\r\n intZeilen = !Zeilen\r\n intRandLinks = !RandLinks\r\n intEtiketthoehe = !Etiketthoehe\r\n intEtikettbreite = !Etikettbreite\r\n intZwischenraumVertikal = !ZwischenraumVertikal\r\n intZwischenraumHorizontal = !ZwischenraumHorizontal\r\n End With\r\n Me.sfmEtikett.SourceObject = Forms!frmEtikettenDrucken!cboEtiketten\r\n With rstSeiteneinstellungen\r\n intSeiteRandLinks = !RandLinks\r\n intSeiteRandRechts = !RandRechts\r\n intSeiteBreite = !Papierbreite\r\n End With\r\n Me.Width = (intSeiteBreite - intSeiteRandLinks - intSeiteRandRechts) \/ 10 * 567\r\n Me.sfmEtikett.Width = intEtikettbreite \/ 10 * 567\r\n Me.Section(acDetail).Height = 0.000001\r\nEnd Sub<\/pre>\n
Private Sub Detailbereich_Format(Cancel As Integer, FormatCount As Integer)\r\n If intZaehler > intZeilen * intSpalten Then\r\n Me.Seitenumbruch4.Visible = True\r\n Me.Seitenumbruch4.Top = intEtiketthoehe\r\n Else\r\n Me.Seitenumbruch4.Visible = False\r\n End If\r\n intZaehler = intZaehler + 1\r\n If intAktuelleSpalte < intSpalten Then\r\n Me.sfmEtikett.Left = intRandLinks - intSeiteRandLinks + _ (intAktuelleSpalte - 1) * _ (intEtikettbreite + intZwischenraumHorizontal) \/ 10 * 567\r\n Me.MoveLayout = False\r\n intAktuelleSpalte = intAktuelleSpalte + 1\r\n Else\r\n Me.sfmEtikett.Left = intRandLinks - intSeiteRandLinks + _ (intAktuelleSpalte - 1) * _ (intEtikettbreite + intZwischenraumHorizontal) \/ 10 * 567\r\n intAktuelleSpalte = 1\r\n End If\r\n Me.sfmEtikett.Report.Section(acDetail).Height = _ (intEtiketthoehe + intZwischenraumVertikal) \/ 10 * 567\r\nEnd Sub<\/pre>\n
Private Sub Report_Page()\r\n intAktuelleSpalte = 1\r\n intZaehler = 1\r\nEnd Sub<\/pre>\n