{"id":55001377,"date":"2022-08-01T00:00:00","date_gmt":"2022-08-04T18:11:37","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=1377"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Nummern_fuer_Bestellungen_et_cetera_generieren","status":"publish","type":"post","link":"https:\/\/access-im-unternehmen.de\/Nummern_fuer_Bestellungen_et_cetera_generieren\/","title":{"rendered":"Nummern für Bestellungen et cetera generieren"},"content":{"rendered":"

In vielen Beispieltabellen, die wir in diesem Magazin vorstellen, verwenden wir einfach das Primärschlüsselfeld als Kundennummer, Bestellnummer und so weiter. In manchen Fällen ist das nicht praktikabel, weil diese Nummern nach bestimmten anderen Regeln erstellt werden müssen. Dann bietet es sich an, dennoch ein Primärschlüsselfeld mit Autowertfunktion zu nutzen, um die Datensätze eindeutig zu identifizieren und dieses auch für das Herstellen von Beziehungen zu nutzen. Die Kundennummern oder Bestellnummern möchte man aber dennoch nicht von Hand eingeben, sondern die Datenbank soll das erledigen. Wie Sie das realisieren können, zeigt der vorliegende Beitrag.<\/b><\/p>\n

Individuelle Nummern<\/h2>\n

Die Datenbankwelt wäre einfach, wenn man immer ein Primärschlüsselfeld mit Autowert als einziges eindeutiges Merkmal von Datensätzen nutzen könnte. Aber die Realität sieht anders aus. Manchmal gibt schon die Historie einer Anwendung vor, dass Kundennummern, Bestellnummern, Produktnummern und so weiter nach einem bestimmten Format generiert werden müssen, das nicht selten nicht nur Zahlen, sondern auch Buchstaben enthält.<\/p>\n

Damit ist die Autowert-Funktion, die sich für die Ermittlung der Werte für Primärschlüsselfelder anbietet, überfordert – sie liefert nur Werte der Typen Long Integer <\/b>oder Replikations-ID <\/b>(sprich: GUID), und das im Falle der Zahlenwerte entweder aufsteigend oder zufällig.<\/p>\n

Oft enthalten die verschiedenen Nummernkreise ein bestimmtes, aus Buchstaben bestehendes Kürzel, damit man direkt erkennen kann, ob es sich um eine Bestellnummer, eine Kundennummer oder andere Informationen handelt.<\/p>\n

Wir sollten also in der Lage sein, mithilfe einer Funktion oder anderen technischen Möglichkeiten Werte für die gewünschten Anforderungen zu ermitteln.<\/p>\n

Diese Anforderung könnte beispielsweise lauten, dass wir Werte benötigen, die mit dem Buchstaben A <\/b>beginnen und danach aus acht Ziffern bestehen. Welche Herausforderungen können wir daraus ableiten?<\/p>\n

Wir gehen davon aus, dass die Werte möglichst aufsteigend sein sollen, das heißt, dass der numerische Anteil so ermittelt wird, dass wir den bisher größten Wert herausfinden und diesem 1<\/b> hinzuaddieren. Auf A00000001 <\/b>soll also A00000002 <\/b>folgen. Das wäre alles kein Problem, wenn wir es mit einem Zahlenfeld zu tun hätten – wir würden dann einfach mit DMax <\/b>den größten bisher vergebenen Wert ermitteln und diesen als Grundlage nutzen.<\/p>\n

Ein möglicher Weg, dies zu umgehen, ist die Ableitung vom Primärschlüsselwert. Wie gesagt, wollen wir ein Primärschlüsselfeld mit Autowert als erstes eindeutiges Merkmal eines jeden Datensatzes nutzen, die zusätzliche Nummer (Kundennummer, Bestellnummer, …) ist nur eine weitere eindeutige Information. Wir können unsere Nummer also auch zusammensetzen aus dem Buchstaben A<\/b>, dem Primärschlüsselwert und dazwischen eine Reihe Nullen, sodass wir das gewünschte Format von einer Länge von neun Zeichen erhalten. Beim Primärschlüsselwert 123 <\/b>also beispielsweise A <\/b>plus 00000 <\/b>plus 123 <\/b>gleich A00000123<\/b>.<\/p>\n

Wir schauen uns im Folgenden diesen Weg an und gehen von einer Kundennummer im oben genannten Format aus.<\/p>\n

Kundennummer auf Basis des Primärschlüsselwertes<\/h2>\n

Im Beispiel verwenden wir eine Tabelle namens tblKunden<\/b>, deren Primärschlüsselfeld namens ID <\/b>als Autowert<\/b>-Feld definiert ist. Das Feld Kundennummer<\/b> haben wir als eindeutiges Feld definiert (siehe Bild 1).<\/p>\n

\"Einrichtung<\/p>\n

Bild 1: Einrichtung der Kundennummer als Feld mit einem eindeutigen Index<\/span><\/b><\/p>\n

Nun wollen wir dafür sorgen, dass möglichst automatisch beim Anlegen eines neuen Datensatzes auch das Feld Kundennummer <\/b>mit einem Wert gefüllt wird, der das oben beschriebene Format enthält.<\/p>\n

Unsere erste Idee war, die Format<\/b>-Funktion als Standardwert für das Feld Kundennummer <\/b>zu nutzen. Dort wollten wir einen Eintrag wie den folgenden hinterlegen:<\/p>\n

=Format([ID];\"A00000000\")<\/pre>\n
Wie wir schnell herausgefunden haben, funktioniert das nicht, weil man für das Zuweisen von Standardwerten einfach nicht auf die anderen Feldwerte zugreifen kann.<\/p>\n
Kundennummer per Datenmakro<\/h2>\n
Also nutzen wir eines der Tabellenereignisse der Tabelle, in diesem Fall zunächst mit dem Ereignis Vor Änderung<\/b>. Hier wollten wir prüfen, ob der Datensatz soeben angelegt wurde und dann aus dem Wert des Feldes ID<\/b> die gewünschte Kundennummer zusammenstellen. Dies zeigte sich als falscher Ansatz, da das Feld ID <\/b>zu diesem Zeitpunkt noch nicht gefüllt ist.<\/p>\n
Um dies herauszufinden, haben wir für das Ereignis Vor Änderung <\/b>das Datenmakro aus Bild 2 angelegt. Hier prüfen wir in einem ersten Schritt, ob es sich bei der Änderung um das Anlegen eines neuen Datensatzes handelt. In diesem Fall liefert [IstEingefuegt] <\/b>den Wert True <\/b>und die Aktionen innerhalb des Wenn<\/b>-Konstrukts werden ausgeführt.<\/p>\n
\"Makro,<\/p>\n
Bild 2: Makro, um herauszufinden, ob das Feld ID beim Ereignis Vor Änderung bereits gefüllt ist.<\/span><\/b><\/p>\n
Hier haben wir, um eine Meldung zu generieren, die Aktion AuslösenFehler <\/b>missbraucht. Diese soll einen Text ausgeben, der sowohl den Wert des Feldes ID <\/b>als auch den des Feldes Firma<\/b> enthält.<\/p>\n
Wie das Ergebnis aus Bild 3 zeigt, wird zwar der neue Datensatz referenziert, aber das Feld ID <\/b>ist zu diesem Zeitpunkt noch leer. Mit diesem Datenmakro können wir die Aufgabe also nicht lösen.<\/p>\n
\"Ergebnis<\/p>\n
Bild 3: Ergebnis des Makros Vor Änderung<\/span><\/b><\/p>\n
Da das Makro auch das Speichern des Datensatzes unterbindet, entfernen wir seinen Inhalt wieder.<\/p>\n
Anschließend haben wir es mit dem Datenmakro für das Ereignis Nach Einfügung <\/b>probiert. Hier haben wir zuerst die Makroaktion NachschlagenDatensatz <\/b>verwendet, um den neuen Datensatz zu referenzieren. Diesen haben wir dann mit der Methode DatensatzBearbeiten <\/b>bearbeitet, indem wir für das Feld Kundennummer<\/b> einen Wert eingestellt haben, der aus dem Buchstaben A <\/b>und dem Wert des Feldes ID <\/b>des neuen Datensatzes besteht (siehe Bild 4).<\/p>\n
\"Das<\/p>\n
<\/p>\n
Bild 4: Das Datenmakro für das Ereignis Nach Einfügung<\/span><\/b><\/p>\n
Das Ergebnis entspricht noch nicht ganz unseren Anforderungen, denn wir stellen im Feld Kundennummer <\/b>ja zunächst nur den Buchstaben A <\/b>mit dem neuen Wert für das Feld ID <\/b>zusammen, also zum Beispiel A1<\/b>, A2 <\/b>und so weiter (siehe Bild 5).<\/p>\n
\"Ergebnis<\/p>\n
Bild 5: Ergebnis des Datenmakros<\/span><\/b><\/p>\n
Wir wollen aber eigentlich die Kundennummer beispielsweise wie A00000001 <\/b>erhalten. Warum haben also nicht einfach die Format<\/b>-Funktion verwendet? Ganz einfach: Die Format<\/b>-Funktion steht in Datenmakros nicht zur Verfügung. Hier finden wir nur Einträge wie FormatDatumZeit<\/b>, FormatProzent<\/b>, FormatWährung <\/b>und FormatZahl<\/b>.<\/p>\n
Also gehen wir einen kleinen Umweg und verwenden für den Parameter Wert <\/b>in der Makroaktion FestlegenFeld <\/b>den folgenden Ausdruck:<\/p>\n
\"A\" & Rechts(\"0000000\" & [rstKunden].[ID];8)<\/pre>\n
Dies fügt zunächst eine Zeichenfolge aus sieben Nullen (0000000<\/b>) mit der ID <\/b>zusammen. Wenn die ID <\/b>noch einstellig ist, passt das Ergebnis gemäß unseren Anforderungen. Sobald sie aber zweistellig ist, erhalten wir eine Zeichenkette aus sieben Nullen und der ID<\/b>, also beispielsweise 000000012<\/b>, was in diesem Fall neun Stellen entspricht. Hier schneiden wir die überflüssigen Nullen ab, indem wir mit der Rechts<\/b>-Funktion nur die rechten acht Zeichen ermitteln. Stellen wir diesem noch den Buchstaben A <\/b>voran, erhalten wir schließlich das gewünschte Format (siehe Bild 6).<\/p>\n
\"Kunden<\/p>\n
Bild 6: Kunden mit korrekter Kundennummer<\/span><\/b><\/p>\n
Vor- und Nachteile dieser Lösung<\/h2>\n
Mit dieser Lösung stellen Sie sicher, dass das Feld Kundennummer<\/b> direkt beim Anlegen eines Datensatzes mit einer Kundennummer auf Basis des Primärschlüsselfeldes gefüllt wird. Dabei spielt es keine Rolle, ob der Benutzer die Datensätze direkt in der Tabelle anlegt oder diese über ein Formular hinzufügt – die Datenmakros werden immer ausgeführt. Solange Sie mit einer reinen Access-Datenbank arbeiten, also die Tabellen in einer .accdb<\/b>-Datei liegen, ist diese Lösung funktional.<\/p>\n
Und damit kommen wir zum Nachteil: Sobald Sie die Tabellen in ein anderes System migrieren, zum Beispiel zum SQL Server, werden die Datenmakros nicht mehr berücksichtigt. Sie können dann allerdings auf andere technische Möglichkeiten zurückgreifen, um diese Funktion zu realisieren – beispielsweise auf Trigger.<\/p>\n
Formularbasierte Erstellung der Kundennummer<\/h2>\n
Ob sich der Aufwand lohnt, das Datenmakro anzulegen, hängt auch davon ab, an wie vielen Stellen in der Datenbankanwendung der Benutzer neue Datensätze zur betroffenen Tabelle hinzufügen kann.<\/p>\n
Die Alternative ist, die Kundennummer immer beim Anlegen neuer Kundendatensätze codegesteuert im Formular zu erzeugen. Wenn es nur ein Formular gibt, mit dem Kundendaten erzeugt werden, können Sie die Funktion auch gleich im Formular unterbringen.<\/p>\n
Mit dem Datenmakro stellen Sie allerdings sicher, dass der Benutzer nicht am Formular vorbei neue Datensätze ohne Kundennummer zur Kundentabelle hinzufügen kann.<\/p>\n
Die formularbasierte Lösung sieht wie nachfolgend beschrieben aus. Der weiter oben beschriebenen Tabelle tblKunden <\/b>fügen wir ein weiteres Feld namens Kundennummer2 <\/b>hinzu, das wir nicht per Datenmakro gleich beim Anlegen des Datensatzes füllen, und statten dieses ebenfalls mit einem eindeutigen Index aus (siehe Bild 7).<\/p>\n
\"Weiteres<\/p>\n
Bild 7: Weiteres Feld zum Experimentieren mit automatisch generierten Kundennummern<\/span><\/b><\/p>\n
Nun legen wir ein Formular namens frmKundeDetails <\/b>an und weisen diesem die Tabelle tblKunden <\/b>als Datensatzquelle hinzu. Dann ziehen wir die Felder ID<\/b>, Kundennummer<\/b>, Kundennummer2 <\/b>und Firma <\/b>in den Detailbereich des Formularentwurfs. Das Feld Kundennummer <\/b>verwenden wir nur zum Nachweis, dass das Anlegen der Kundennummer über das Datenmakro auch beim Erstellen von Kunden per Formular funktioniert.<\/p>\n
Der Formularentwurf sieht anschließend wie in Bild 8 aus.<\/p>\n
\"Formular<\/p>\n
Bild 8: Formular zum Eingeben von Kundendaten<\/span><\/b><\/p>\n
Wir haben nun zwei Möglichkeiten:<\/p>\n