<\/p>\n
In der bisherigen Version der Rechnungsverwaltung haben wir nur eine Kundenadresse in der Tabelle „tblKunden“ gespeichert. Im Bestreben, diese Rechnungsverwaltung flexibler zu gestalten, wollen wir in diesem Beitrag zwei Dinge durchführen: Das Aufteilen der Kundentabelle in eine Tabelle mit den Basisdaten des Kunden und mehrere weitere Tabellen zum Speichern der Adressen dieses Kunden sowie das Anpassen des Formulars „frmKundenDetails“ an diese Änderung des Datenmodells. Dies soll die Grundlage bilden, mehrere Adressen je Kunde zu speichern und diese dann nach Bedarf in Bestellungen, Lieferungen, Rechnungen und weitere Vorgänge zu übernehmen.<\/b><\/p>\n
Das bisherige Datenmodell sah eine Tabelle namens tblKunden<\/b> vor, die genau einen Satz von Adressdaten enthielt. Das wird den modernen Anforderungen nicht mehr gerecht, sodass wir unsere Rechnungsverwaltung, noch anpassen möchten, bevor wir die auf den Kundendaten aufbauenden Tabellen und Formulare für die Bestelldaten und die Rechnungs- und Lieferdaten erstellen.<\/p>\n
Grundlage dafür sind einige Überlegungen aus dem Beitrag Datenmodelle für die Rechnungsverwaltung <\/b>(www.access-im-unternehmen.de\/1459<\/b>), die wir hier nicht genau, aber ansatzweise übernehmen. Im bisherigen Datenmodell sah die Tabelle unserer Beispiellösung wie in Bild 1 aus. Hier haben wir noch nicht einmal verschiedene Adressen für die Rechnung und die Lieferung gepflegt – es war eben ein recht einfaches Datenmodell.<\/p>\n
![\"Ausgangstabelle\"](\"..\/fileadmin\/_temp_\/2024_01\/pic_1470_001.png\")
<\/p>\n
Bild 1: Ausgangstabelle<\/span><\/b><\/p>\n Nun fügen wir zwei Tabellen zum Verwalten von Rechnungsadressen und Lieferadressen hinzu, die wir über zwei Fremdschlüsselfelder mit der Tabelle tblKunden <\/b>verbinden. Aus der Tabelle tblKunden <\/b>entfernen wir einige Felder, die hier nicht mehr gebraucht werden. Welche Daten man in dieser Tabelle noch benötigt, ist ohnehin wie vieles andere vom Anwendungsfall abhängig. In unserem Fall behalten wir die Felder Kundennummer<\/b>, Firma<\/b>, Vorname<\/b>, Nachname<\/b>, EMail <\/b>und Telefon <\/b>in dieser Tabelle.<\/p>\n Außerdem legen wir zwei neue Tabellen namens tblLieferadressen_Kunde <\/b>und tblRechnungsadressen_Kunde <\/b>an. Diese erhalten jeweils ein Fremdschlüsselfeld namens KundeID<\/b>, mit dem wir die Beziehung der jeweiligen Adresse mit dem Kundendatensatz aus der Tabelle tblKunden <\/b>herstellen können. Außerdem enthalten diese Tabellen die üblichen Adressfelder, aber auch nochmal Firma<\/b>, AnredeID<\/b>, Vorname <\/b>und Nachname<\/b>.<\/p>\n Die Tabelle tblRechnungsadressen_Kunde <\/b>enthält außerdem noch das Feld UstIDNr<\/b>. Warum hier und nicht in der Tabelle tblKunden<\/b>? Weil es durchaus sein kann, dass ein Kunde verschiedene Firmen mit unterschiedlichen Umsatzsteuer-Identifikationsnummern hat, für die er Rechnungen benötigt.<\/p>\n Die Tabelle tblRechnungsadressen_Kunde<\/b> sieht in der Entwurfsansicht wie in Bild 2 aus. Ein weiteres wichtiges Feld neben den genannten ist das Feld Standardadresse<\/b>. Es ist ein Ja\/Nein<\/b>-Feld, mit dem wir für jeden Kunden eine Standardlieferadresse und eine Standardrechnungsadresse festlegen können.<\/p>\n Bild 2: Die Tabelle für die Rechnungsadressen der Kunden<\/span><\/b><\/p>\n Die Pflege dieses Feldes erfordert Aufwand, den wir nicht über das Datenmodell erledigen können: Wir müssen sicherstellen, dass bei mehreren Adressen je Kunde immer genau eine Adresse den Wert True <\/b>in diesem Feld aufweist. Das erledigen wir später beim Programmieren der Benutzeroberfläche.<\/p>\n Das Datenmodell für die Kundenadressen sieht nun wie in Bild 3 aus. Die beiden Tabellen tblLieferadressen_Kunde <\/b>und tblRechnungsadressen_Kunde <\/b>sind über Fremdschlüsselfelder mit der Tabelle tblKunden<\/b> verknüpft. Auf diese Weise können wir nun mehrere Adressen für Rechnungen und Lieferungen für jeden Kunden anlegen und jeweils eine als Standardadresse definieren.<\/p>\n Bild 3: Die Kundendaten liegen nun in drei verschiedenen Tabellen.<\/span><\/b><\/p>\n Nun benötigen wir ein Formular zur Darstellung der Sachverhalte in diesen Tabellen. Ein Teil scheint offensichtlich zu sein: Ein Hauptformular wird an die Tabelle tblKunden <\/b>gebunden und zeigt die Daten dieser Tabelle an.<\/p>\n Für die Rechnungs- und Lieferadressen gibt es jedoch sehr viele Möglichkeiten zur Darstellung, von denen viele nicht ergonomisch sind. Was genau wollen wir in dem Formular erledigen?<\/p>\n Rechnungs- und Lieferadressen löschen? Aber brauchen wir die nicht dauerhaft? Nicht mit dem Modell, das wir auf den hier genannten Tabellen aufbauen. Erstellen wir eine Bestellung, werden die aktuellen Standardadressen für Rechnung und Lieferung automatisch in weitere Tabellen übernommen, die wiederum mit der Bestellung verknüpft sind.<\/p>\n Dementsprechend können wir die Adressen für Rechnungen und Lieferungen für einen Kunden löschen, denn diese befinden sich ja in den Datensätzen für die Bestellungen, Rechnungen und Lieferungen.<\/p>\n Wie aber können wir das Formular so gestalten, dass die obigen Anforderungen alle erfüllt werden können? Dies erledigen wir wie in Bild 4. Im Gegensatz zu der Version, die wir im Beitrag Rechnungsverwaltung: Kundendetails <\/b>(www.access-im-unternehmen.de\/1383<\/b>) vorgestellt haben, haben wir die Adressdaten aus dem Hauptformular herausgenommen und stellen diese nun in zwei Unterformularen dar.<\/p>\n Bild 4: So sollen die Kundendetails im Formular angezeigt werden<\/span><\/b><\/p>\n Diese beiden fügen wir wiederum auf zwei Seiten eines Registersteuerelements ein, sodass diese nicht gleichzeitig angezeigt werden müssen.<\/p>\n Diese Unterformulare zeigen alle Liefer- und Rechnungsadressen zum Kunden aus dem Hauptformular an. Wir können über die Navigationsschaltflächen durch diese Datensätze navigieren, aber auch eine der Adressen über das Kombinationsfeld oberhalb des Unterformulars auswählen. Außerdem wollen wir ermöglichen, eine neue Adresse durch die Auswahl des Eintrags Neu… <\/b>zu erzeugen (siehe Bild 5).<\/p>\n Bild 5: Neuanlage einer Adresse per Auswahlfeld<\/span><\/b><\/p>\n Schauen wir uns nun an, wie wir dies auf Basis der vorhandenen Tabellen im Formular abbilden.<\/p>\n Das erste Unterformular namens sfmKunde_Lieferadressen <\/b>statten wir mit der Tabelle tblLieferadressen_Kunde <\/b>als Datensatzquelle aus. Wir ziehen alle Felder aus der Feldliste in den Detailbereich und ordnen die Felder wie in Bild 6 an.<\/p>\n Bild 6: Entwurf des Unterformulars für die Lieferadressen<\/span><\/b><\/p>\n Es gibt einige Ereignisse im Unterformular, auf die wir reagieren wollen und die sich meist auf die Aktualisierung von Steuerelementen auswirken. Um die Ereignisse zur Steuerung des gesamten Formulars samt Unterformularen im Hauptformular zu belassen, können wir im dortigen Klassenmodul Objektvariablen deklarieren, die wir mit Verweisen auf die Unterformulare füllen.<\/p>\n Dadurch können wir die Ereignisse der Unterformulare im Klassenmodul des Hauptformulars implementieren und haben den kompletten Code in einem Modul. Im Unterformular müssen wir dazu nur einen Schritt durchführen, nämlich die Eigenschaft Enthält Modul <\/b>auf Ja <\/b>einzustellen (siehe Bild 7).<\/p>\n Bild 7: Hinzufügen eines Moduls zum Unterformular<\/span><\/b><\/p>\n Damit sind die Arbeiten am Unterformular für die Lieferadressen bereits abgeschlossen und wir können uns den Rechnungsadressen zuwenden.<\/p>\n Bei diesem Unterformular bestehen die gleichen Anforderungen wie beim Unterformular für die Lieferadressen. Allerdings fügen wir hier die Tabelle tblRechnungsadressen<\/b> als Datensatzquelle hinzu und speichern das Formular unter dem Namen sfmKunden_Rechnungsadressen<\/b>.<\/p>\n Warum können wir nicht einfach nur ein solches Unterformular verwenden und per Code zur Laufzeit die Datensatzquelle anpassen? Weil die Tabelle mit den Rechnungsadressen ein zusätzliches Feld namens UstIDNr <\/b>enthält, das wir ebenfalls abbilden müssen (siehe Bild 8). Auch dieses Formulars enthält keinen eigenen Code, aber wir wollen die Eigenschaft Enthält Modul <\/b>aktivieren, damit wir im Hauptformular die Ereignisse für dieses Unterformular implementieren können.<\/p>\n Bild 8: Entwurf des Unterformulars für die Rechnungsadressen<\/span><\/b><\/p>\n Im Hauptformular legen wir nun ein Registersteuerelement namens regAdressen <\/b>an. Dieses soll zwei Registerseiten mit den Beschriftungen Lieferadresse <\/b>und Rechnungsadresse <\/b>aufweisen. Sie haben den Seitenindex 0 <\/b>und 1<\/b>.<\/p>\n Um der ersten Registerseite das Unterformular für die Lieferadressen zuzuweisen, markieren wir diese Seite durch einen Klick auf den Registerreiter. Es sollte nun ein Rahmen unterhalb des Registerreiters erscheinen. In diesen Bereich können wir nun das Formular frm_KundeLieferadressenaus <\/b>dem Navigationsbereich hineinziehen. Wenn sich beim Hineinziehen der Hintergrund dieser Registerseite schwarz färbt, können wir das Unterformular fallen lassen. Nun fügen wir den Registerseiten noch weitere Steuerelemente hinzu, aber auf unterschiedliche Weise:<\/p>\n Danach sieht das Formular wie in Bild 9 aus.<\/p>\n Bild 9: Erste Seite des Registersteuerelements<\/span><\/b><\/p>\n Wie unter Access üblich, sollte die Beziehung zwischen Haupt- und Unterformular automatisch hergestellt werden, wenn diese die Daten aus Tabellen anzeigen, die über Primärschlüsselfeld und Fremdschlüsselfeld miteinander verknüpft sind. Zur Sicherheit prüfen wir das noch einmal nach, indem wir das Unterformular-Steuerelement sfmKunde_Lieferadressen <\/b>markieren und uns die Eigenschaften ansehen. Hier finden wir für die Eigenschaft Verknüpfen nach <\/b>den Wert ID <\/b>und für Verknüpfen von <\/b>den Wert KundeID <\/b>vor – es hat also alles nach Wunsch geklappt (siehe Bild 10). Im zweiten Unterformular-Steuerelement sfmKunde_Rechnungsadressen<\/b> sollte dies genauso aussehen. Wenn das Hauptformular einen Datensatz der Tabelle tblKunden <\/b>anzeigt, liefern die Unterformulare die Datensätze der Tabellen tblLieferadressen_Kunde <\/b>und tblRechnungsadressen_Kunde<\/b>, die mit diesem Kunden verknüpft sind.<\/p>\n [<\/p>\n Bild 10: Verknüpfung zwischen Haupt- und Unterformular<\/span><\/b><\/p>\n Gleichzeitig wird das Fremdschlüsselfeld KundeID <\/b>für neu angelegte Datensätze der Tabellen tblLieferadressen_Kunde <\/b>und tblRechnungsadressen_Kunde <\/b>automatisch mit dem Wert des Feldes ID <\/b>des Kunden aus dem Hauptformular gefüllt.<\/p>\n Damit beim Anzeigen eines neuen Datensatzes im Hauptformular die richtigen Adressen in den Unterformularen erscheinen, brauchen wir also nichts weiter zu tun. Allerdings zeigen die beiden Kombinationsfelder cboLieferadresseAuswaehlen <\/b>und cboRechnungsadresseAuswaehlen <\/b>noch keine Daten an. Diese sollen sowohl einen Eintrag mit dem Text Neu… <\/b>anzeigen als auch die Firmen der bisher vorhandenen Liefer- und Rechnungsadressen. Schließlich wollen wir auch noch, dass diese angeben, welche Adresse die aktuelle Standardadresse dieses Kunden für Lieferungen oder Rechnungen ist. Also fügen wir eine entsprechende Prozedur hinzu (siehe Listing 1). Diese müssen wir bei jedem Datensatzwechsel im Hauptformular aufrufen, weshalb wir den Aufruf in der Ereignisprozedur unterbringen, die durch das Ereignis Beim Anzeigen <\/b>ausgelöst wird:<\/p>\n Listing 1: Aktualisieren der Kombinationsfelder<\/span><\/b><\/p>\n Die Prozedur selbst stellt die jeweiligen Datensatzherkünfte in den Variablen strSQLLieferadressen <\/b>und strSQLRechnungsadressen <\/b>zusammen. Dieser Ausdruck sieht beispielsweise für die Lieferadressen wie folgt aus, wenn der Datensatz im Hauptformular den Wert 1 <\/b>im Feld ID <\/b>aufweist:<\/p>\n Wir fügen also die Ergebnisse zweier Abfragen mit dem UNION<\/b>-Schlüsselwort zusammen. Die erste Abfrage liefert den Wert -1 <\/b>und den anzuzeigenden Text Neu…<\/b>, die zweite die Lieferadressen für den aktuellen Kunden – mit allen Feldern, die gefüllt sind. Dabei fügen wir die einzelnen Felder zu einem einzigen Ausdruck zusammen. Damit Firma, Vorname, Nachname et cetera nicht einfach hintereinander angegeben werden, fügen wir jeweils Leerzeichen und gegebenenfalls noch Minuszeichen dazwischen ein. Dies wollen wir jedoch nur machen, wenn das entsprechende Feld gefüllt ist, damit wir nicht mehrere Leerzeichen oder Minuszeichen hintereinander vorfinden. Damit die Leerzeichen und Minuszeichen immer nur erscheinen, wenn das jeweilige Feld gefüllt ist, verbinden wir diese Zeichen über das Und-Zeichen (&<\/b>) mit dem anzuzeigenden Feld, zum Beispiel:<\/p>\n Die einzelnen Ausdrücke verbinden wir hingegen mit dem Pluszeichen (+<\/b>):<\/p>\n Beim Verbinden mit & <\/b>wird der gesamte verbundene Ausdruck Null<\/b>, wenn einer der Teile Null <\/b>ist. Wenn also keine Strasse angegeben ist, fällt auch das führende Minuszeichen weg.<\/p>\n Wichtig ist dabei, dass wir den Wert des Vergleichswertes aus Me!ID <\/b>in die Nz<\/b>-Funktion einfassen und diese den Wert 0 <\/b>zurückliefert, wenn Me!ID <\/b>leer ist. Das ist genau dann der Fall, wenn ein neuer Kunde angelegt wird und der Datensatz noch nicht bearbeitet wurde – solange hat das Feld ID <\/b>den Wert NULL<\/b>.<\/p>\n Das führt zu einem Fehler, weil die SQL-Anweisung dann das Kriterium ID = <\/b>ohne einen Wert enthält. Also fügen wir in diesem Fall den Wert 0 <\/b>hinzu.<\/p>\n Auf diese Weise erhalten wir eine Auswahl wie in Bild 11. Der aktuell als Standard markierte Eintrag wird entsprechend hervorgehoben. <\/p>\n Bild 11: Adressen auswählen<\/span><\/b><\/p>\n Die beiden Kombinationsfelder cboLieferadresseAuswaehlen <\/b>und cboRechnungsadresseAuswaehlen <\/b>bieten das Anlegen eines neuen Datensatzes sowie die Anzeige eines der bestehenden Datensätze zur Auswahl an. Nach der Auswahl eines der Einträge reagieren wir beispielsweise bei den Lieferadressen mit dem Auslösen der Ereignisprozedur aus Listing 2, die wir für die Ereigniseigenschaft Nach Aktualisieren <\/b>des Kombinationsfeldes hinterlegen.<\/p>\n Listing 2: Aktualisieren der Lieferadressen<\/span><\/b><\/p>\n Hier verarbeiten wir in einer Select Case<\/b>-Bedingung zwei Fälle:<\/p>\n Die Prozedur sieht für beide Kombinationsfelder ähnlich aus.<\/p>\n Beim Anzeigen eines Kunden, was das Ereignis Beim Anzeigen <\/b>des Hauptformulars auslöst, soll zunächst der Fokus auf das Steuerelement txtFirma verschoben werden. Das hat den Hintergrund, dass sich der Fokus im vorherigen Datensatz in einem der Unterformulare befunden haben könnte. Wenn wir dann auf einen neuen, leeren Kundendatensatz springen, löst dies die Meldung aus, dass zuerst ein Datensatz im Hauptformular angelegt werden muss – was für den Benutzer irritierend sein könnte.<\/p>\n Außerdem sollen sowohl im Kombinationsfeld als auch im Unterformular jeweils die als Standard ausgewählte Liefer- und Rechnungsadresse angezeigt werden. Das realisieren wir durch den Aufruf der zwei Prozeduren namens LieferadresseInitialisieren <\/b>und RechnungsadresseInitialisieren<\/b>. Die erste finden wir in Listing 3.<\/p>\n Listing 3: Initialisieren der Lieferadresse<\/span><\/b><\/p>\n Sie ermittelt für die Variable lngStandardadresse <\/b>die ID des Eintrags der Tabelle tblLieferadressen_Kunde<\/b>, die zum aktuell im Hauptformular ausgewählten Kunden gehört und deren Feld Standardadresse <\/b>den Wert True <\/b>aufweist. Lautet der zurückgelieferte Wert nicht 0<\/b>, stellt die Prozedur das Kombinationsfeld cboLieferadresseAuswaehlen <\/b>auf den ermittelten Wert ein.<\/p>\n Die Prozeduren LieferadresseInitialisieren <\/b>und RechnungsadresseInitialisieren <\/b>rufen wir ebenfalls beim Anzeigen eines Datensatzes auf. Dazu erweitern wir die Prozedur Beim Anzeigen <\/b>entsprechend. Außerdem fügen wir dieser noch zwei Aufrufe einer Prozedur namens HoleStandardadresse <\/b>hinzu, die prüft, ob eine Standardadresse für die Liefer- und die Rechnungsadresse hinterlegt wurde. Die obersten Anweisungen fassen wir in eine Bedingung ein, die nur wahr ist, wenn kein neuer Datensatz angezeigt wird – anderenfalls erhalten wir diverse Fehler, weil die ID <\/b>des neuen Kunden noch nicht vorliegt. Darunter folgen noch Aufrufe der Prozeduren KombinationsfelderAktualisieren<\/b>, SchaltflaechenBestellungAktualisieren <\/b>und SchaltflaechenAdressenAktualisieren<\/b>:<\/p>\n Es kann vorkommen, dass keine der Liefer- oder Rechnungsadressen als Standardadresse für den jeweiligen Kunden festgelegt ist. Deshalb rufen wir vor dem Anzeigen eines jeden Datensatzes die Prozedur HoleStandardadresse <\/b>für die beiden Tabellen tblLieferadressen_Kunde <\/b>und tblRechnungsadressen_Kunde <\/b>auf. Dabei geben wir für den zweiten Parameter die ID des Kunden an, dessen Standardadresse geprüft werden soll und mit dem dritten die Angabe, ob die Standardadresse gegebenenfalls auf die erste verfügbare Standardadresse gesetzt werden soll (siehe Listing 4).<\/p>\n Listing 4: Holen oder Einstellen der Standardadresse auf den ersten Datensatz<\/span><\/b><\/p>\n Diese Funktion verwendet zwei weitere Routinen. Sollte per DLookup <\/b>für den aktuellen Kunden keine Standardadresse in der zu untersuchenden Tabelle ermittelt werden können, prüft die Funktion, ob der Parameter bolEinstellen <\/b>gesetzt ist. Falls ja, holt die weitere Funktion HoleErsteAdresse <\/b>die erste Adresse aus der angegebenen Tabelle für diesen Kunden und speichert diese in der Variablen lngID<\/b>. Konnte eine Adresse gefunden werden, stellt sie diese mithilfe der Prozedur SetzeStandardadresse <\/b>als Standardadresse ein. Diese stellt den übergebenen Parameter lngID <\/b>auf die ID der neuen Adresse ein, die dann als Funktionsergebnis zurückgegeben wird.<\/p>\n Die Funktion HoleErsteAdresse <\/b>ermittelt mit DLookup <\/b>den ersten Eintrag der mit strTabelle <\/b>übergebenen Tabelle für den mit lngKundeID <\/b>angegebenen Kunden und gibt diesen als Funktionsergebnis zurück:<\/p>\n Die Prozedur SetzeStandardadresse <\/b>aus Listing 5 prüft, ob lngID <\/b>übergeben wurde. lngID<\/b> enthält gegebenenfalls die ID der Adresse, die als Standardadresse gesetzt werden soll. Ist diese vorhanden, wird diese Adresse als Standardadresse eingestellt. Falls nicht, wird die erste gefundene Adresse als Standardadresse definiert.<\/p>\n Listing 5: Einstellen der Standardadresse<\/span><\/b><\/p>\n Im Folgenden schauen wir uns noch weitere wichtige Funktionen des Formulars an – zum Beispiel das Aktivieren und Deaktivieren der Schaltflächen unter den Adressen beziehungsweise denen unter der Bestellungen-Liste.<\/p>\n Die Schaltfläche cmdAdresseLoeschen <\/b>löscht die aktuelle Adresse, die Schaltfläche cmdNeueAdresse<\/b> legt eine neue Adresse an. Beide sollen zu bestimmten Zeitpunkten nicht aktiviert sein. Die Schaltfläche cmdAdresseLoeschen <\/b>soll beispielsweise nur aktiviert sein, wenn gerade ein gespeicherter Datensatz angezeigt wird – Gleiches gilt für die Schaltfläche cmdNeueAdresse<\/b>. Anderenfalls sollen die Schaltflächen deaktiviert werden, was folgende Prozedur regelt:<\/p>\n Diese wird zu verschiedenen Gelegenheiten aufgerufen, nicht nur beim Anzeigen eines Datensatzes im Hauptformular. Sondern auch, wenn einer der Adressdatensätze aktualisiert wurde oder ein anderer angezeigt wird und beim Löschen eines Adressdatensatzes.<\/p>\n Die Prozedur zum Aktivieren und Deaktivieren der Schaltflächen unter der Bestellungen-Liste des aktuellen Kunden sieht wie folgt aus:<\/p>\n Sie prüft, ob das Hauptformular einen neuen, leeren Datensatz anzeigt und deaktiviert dann alle drei Schaltflächen. Falls das Hauptformular bereits einen Kunden enthält, prüft sie, ob das Unterformular mit den Bestellungen mindestens einen Datensatz enthält und aktiviert dann die Schaltflächen cmdBestellungenAnzeigen<\/b> und cmdBestellungenLoeschen<\/b>. Anderenfalls werden diese beiden Schaltflächen deaktiviert. Die Schaltfläche cmdNeueBestellung <\/b>wird in diesem Fall immer aktiviert.<\/p>\n Die Prozedur wird beim Anzeigen eines Kundendatensatzes, beim Löschen einer Bestellung und beim Anlegen einer neuen Bestellung ausgelöst. Die Schaltfläche OK <\/b>bleibt immer aktiviert.<\/p>\n Damit beim Anlegen eines neuen Kunden die erste eingerichtete Adresse direkt als Standardadresse angelegt wird, hinterlegen wir das Ereignis Beim Anzeigen <\/b>der beiden Objektvariablen für die Unterformulare Ereignisse wie das folgende – in Listing 6 für die Lieferadresse. Die Prozedur aktualisiert das Kombinationsfeld für die Auswahl einer der Lieferadressen des Kunden und prüft, ob das Unterformular gerade einen neuen, leeren Datensatz anzeigt oder einen vorhandenen.<\/p>\nAufteilung der Kundendaten auf mehrere Tabellen<\/h2>\n
Standardadresse für Rechnung und Lieferung festlegen<\/h2>\n
![\"Die](\"..\/fileadmin\/_temp_\/2024_01\/pic_1470_003.png\")
<\/p>\n![\"Die](\"..\/fileadmin\/_temp_\/2024_01\/pic_1470_002.png\")
<\/p>\nFormulare für die Kunden und ihre Adressen<\/h2>\n
\n
Umsetzung des Kundendetail-Formulars<\/h2>\n
![\"So](\"..\/fileadmin\/_temp_\/2024_01\/pic_1470_004.png\")
<\/p>\n![\"Neuanlage](\"..\/fileadmin\/_temp_\/2024_01\/pic_1470_005.png\")
<\/p>\nUnterformular für die Lieferadressen<\/h2>\n
![\"Entwurf](\"..\/fileadmin\/_temp_\/2024_01\/pic_1470_006.png\")
<\/p>\n![\"Hinzufügen](\"..\/fileadmin\/_temp_\/2024_01\/pic_1470_007.png\")
<\/p>\nUnterformular für die Rechnungsadressen<\/h2>\n
![\"Entwurf](\"..\/fileadmin\/_temp_\/2024_01\/pic_1470_009.png\")
<\/p>\nRegistersteuerelement für die Unterformulare<\/h2>\n
\n
![\"Erste](\"..\/fileadmin\/_temp_\/2024_01\/pic_1470_010.png\")
<\/p>\nHauptformular mit den Unterformularen verknüpfen<\/h2>\n
![\"Verknüpfung](\"..\/fileadmin\/_temp_\/2024_01\/pic_1470_011.png\")
<\/p>\nAuswahl von Adressen per Kombinationsfeld<\/h2>\n
Private Sub <\/span>KombinationsfelderAktualisieren()\r\n Dim <\/span>strSQLLieferadressen As String<\/span>\r\n Dim <\/span>strSQLRechnungsadressen As String<\/span>\r\n strSQLLieferadressen = \"SELECT -1 AS ID, ''<Neu...>'' AS Bezeichnung FROM tblLieferadressen_Kunde UNION \" _\r\n & \"SELECT ID, IIF(Standardadresse,''(Standard) '' ,'''') & Firma + '' - '' & Vorname + '' '' & \" _\r\n & \"Nachname + '' - '' & Strasse + '' - '' & PLZ + '' '' & Ort + '' - '' & (SELECT LandBezeichnung \" _\r\n & \"FROM tblLaender AS t1 WHERE t1.ID = LandID) AS Bezeichnung FROM tblLieferadressen_Kunde \" _\r\n & \"WHERE KundeID = \" & Nz(Me!ID, 0)\r\n strSQLRechnungsadressen = \"SELECT -1 AS ID, ''<Neu...>'' AS Bezeichnung FROM tblRechnungsadressen_Kunde \" _\r\n & \"UNION SELECT ID, IIF(Standardadresse,''(Standard) '' ,'''') & Firma + '' - '' & Vorname + '' '' & \" _\r\n & \"Nachname + '' - '' & Strasse + '' - '' & PLZ + '' '' & Ort + '' - '' & (SELECT LandBezeichnung \" _\r\n & \"FROM tblLaender AS t1 WHERE t1.ID = LandID) AS Bezeichnung FROM tblRechnungsadressen_Kunde \" _\r\n & \"WHERE KundeID = \" & Nz(Me!ID, 0)\r\n Me!cboLieferadresseAuswaehlen.RowSource = strSQLLieferadressen\r\n Me!cboRechnungsadresseAuswaehlen.RowSource = strSQLRechnungsadressen\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>Form_Current()\r\n KombinationsfelderAktualisieren\r\n ...\r\nEnd Sub<\/span><\/pre>\nSELECT -1 AS ID, ''<Neu...>'' AS Bezeichnung FROM tblLieferadressen_Kunde UNION SELECT ID, IIF(Standardadresse,''(Standard) '' ,'''') & Firma + '' - '' & Vorname + '' '' & Nachname + '' - '' & Strasse + '' - '' & PLZ + '' '' & Ort + '' - '' & (SELECT LandBezeichnung FROM tblLaender AS t1 WHERE t1.ID = LandID) AS Bezeichnung FROM tblLieferadressen_Kunde WHERE KundeID = 1<\/pre>\n
'' - '' & Strasse<\/pre>\n
'' - '' & Strasse + '' - '' & PLZ <\/pre>\n
![\"Adressen](\"..\/fileadmin\/_temp_\/2024_01\/pic_1470_012.png\")
<\/p>\nGewählte Adresse nach der Auswahl ändern oder neue Adresse anlegen<\/h2>\n
Private Sub <\/span>cboLieferadresseAuswaehlen_AfterUpdate()\r\n Select Case Me!cboLieferadresseAuswaehlen\r\n Case <\/span>-1\r\n Me!sfmKunde_Lieferadressen.Form.Recordset.AddNew<\/span>\r\n Case Else<\/span>\r\n Me!sfmKunde_Lieferadressen.Form.Recordset.FindFirst \"ID = \" & Me!cboLieferadresseAuswaehlen\r\n End Select<\/span>\r\nEnd Sub<\/span><\/pre>\n\n
Liefer- und Rechnungsadresse initialisieren<\/h2>\n
Private Sub <\/span>LieferadresseInitialisieren()\r\n Dim <\/span>lngStandardadresse As Long<\/span>\r\n lngStandardadresse = Nz(DLookup(\"ID\", \"tblLieferadressen_Kunde\", \"KundeID = \" & Me!ID _\r\n & \" AND Standardadresse = True\"), 0)\r\n If <\/span>Not<\/span> lngStandardadresse = 0 Then<\/span>\r\n Me!cboLieferadresseAuswaehlen = lngStandardadresse\r\n Me!sfmKunde_Lieferadressen.Form.Recordset.FindFirst \"ID = \" & lngStandardadresse\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>Form_Current()\r\n Me!txtFirma.SetFocus\r\n If <\/span>Not<\/span> Me.NewRecord Then<\/span>\r\n HoleStandardadresse \"tblLieferadressen_Kunde\", _\r\n Me!ID, True<\/span>\r\n HoleStandardadresse \"tblRechnungsadressen_Kunde\", _\r\n Me!ID, True<\/span>\r\n LieferadresseInitialisieren\r\n RechnungsadresseInitialisieren\r\n End If<\/span>\r\n KombinationsfelderAktualisieren\r\n SchaltflaechenBestellungenAktualisieren\r\n SchaltflaechenAdressenAktualisieren\r\nEnd Sub<\/span><\/pre>\nStandardadressen setzen<\/h2>\n
Public Function <\/span>HoleStandardadresse(strTabelle As String<\/span>, lngKundeID As Long<\/span>, bolEinstellen As Boolean<\/span>) As Long<\/span>\r\n Dim <\/span>lngID As Long<\/span>\r\n lngID = Nz(DLookup(\"ID\", strTabelle, \"KundeID = \" & lngKundeID & \" AND Standardadresse = -1\"), 0)\r\n If <\/span>lngID = 0 Then<\/span>\r\n If <\/span>bolEinstellen Then<\/span>\r\n lngID = HoleErsteAdresse(strTabelle, lngKundeID)\r\n If <\/span>Not<\/span> lngID = 0 Then<\/span>\r\n SetzeStandardadresse strTabelle, lngKundeID, lngID\r\n End If<\/span>\r\n End If<\/span>\r\n End If<\/span>\r\n HoleStandardadresse = lngID\r\nEnd Function<\/span>b<\/pre>\nPublic Function <\/span>HoleErsteAdresse(strTabelle As String<\/span>, _\r\n lngKundeID As Long<\/span>) As Long<\/span>\r\n HoleErsteAdresse = Nz(DLookup(\"ID\", strTabelle, _\r\n \"KundeID = \" & lngKundeID), 0)\r\nEnd Function<\/span><\/pre>\nPublic Sub <\/span>SetzeStandardadresse(strTabelle As String<\/span>, lngKundeID As Long<\/span>, Optional<\/span> lngID As Long<\/span>)\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Set<\/span> db = CurrentDb\r\n If <\/span>Not<\/span> lngID = 0 Then<\/span>\r\n EntferneStandardadresse strTabelle, lngKundeID, lngID\r\n db.Execute \"UPDATE \" & strTabelle & \" SET Standardadresse = -1 WHERE ID = \" & lngID, dbFailOnError\r\n Else<\/span>\r\n db.Execute \"UPDATE \" & strTabelle & \" SET Standardadresse = -1 WHERE ID = (SELECT TOP 1 ID FROM \" _\r\n & strTabelle & \" WHERE KundeID = \" & lngKundeID & \")\", dbFailOnError\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nWeitere Features des Formulars<\/h2>\n
Schaltflächen für Adressen aktivieren\/deaktivieren<\/h2>\n
Private Sub <\/span>SchaltflaechenAdressenAktualisieren()\r\n Select Case Me!regAdressen\r\n Case <\/span>0 ''Lieferadressen\r\n If <\/span>sfmLieferadressen.NewRecord Then<\/span>\r\n Me!cmdAdresseLoeschen.Enabled = False<\/span>\r\n Me!cmdNeueAdresse.Enabled = False<\/span>\r\n Else<\/span>\r\n Me!cmdAdresseLoeschen.Enabled = True<\/span>\r\n Me!cmdNeueAdresse.Enabled = True<\/span>\r\n End If<\/span>\r\n Case <\/span>1 ''Rechnungsadressen\r\n If <\/span>sfmRechnungsadressen.NewRecord Then<\/span>\r\n Me!cmdAdresseLoeschen.Enabled = False<\/span>\r\n Me!cmdNeueAdresse.Enabled = False<\/span>\r\n Else<\/span>\r\n Me!cmdAdresseLoeschen.Enabled = True<\/span>\r\n Me!cmdNeueAdresse.Enabled = True<\/span>\r\n End If<\/span>\r\n End Select<\/span>\r\nEnd Sub<\/span><\/pre>\nSchaltflächen für Bestellungen aktivieren\/deaktivieren<\/h2>\n
Private Sub <\/span>SchaltflaechenBestellungenAktualisieren()\r\n If <\/span>Me.NewRecord Then<\/span>\r\n Me!cmdBestellungAnzeigen.Enabled = False<\/span>\r\n Me!cmdBestellungLoeschen.Enabled = False<\/span>\r\n Me!cmdNeueBestellung.Enabled = False<\/span>\r\n Else<\/span>\r\n If Not<\/span> Me!sfmKunde_Bestellungen.Form.Recordset. _\r\n RecordCount = 0 Then\r\n Me!cmdBestellungAnzeigen.Enabled = True<\/span>\r\n Me!cmdBestellungLoeschen.Enabled = True<\/span>\r\n Else<\/span>\r\n Me!cmdBestellungAnzeigen.Enabled = False<\/span>\r\n Me!cmdBestellungLoeschen.Enabled = False<\/span>\r\n End If<\/span>\r\n Me!cmdNeueBestellung.Enabled = True<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nStandardadresse bei neuen Adressen aktivieren<\/h2>\n
Private Sub <\/span>sfmLieferadressen_Current()\r\n Me!cboLieferadresseAuswaehlen.Requery\r\n If <\/span>Not<\/span> sfmLieferadressen.NewRecord Then<\/span>\r\n Me!cboLieferadresseAuswaehlen = sfmLieferadressen!ID\r\n Else<\/span>\r\n Me!cboLieferadresseAuswaehlen = -1\r\n If <\/span>HoleStandardadresse(\"tblLieferadressen_Kunde\", Me.ID, False<\/span>) = 0 Then<\/span>\r\n sfmLieferadressen!chkStandardadresse.DefaultValue = True<\/span>\r\n Else<\/span>\r\n sfmLieferadressen!chkStandardadresse.DefaultValue = False<\/span>\r\n End If<\/span>\r\n End If<\/span>\r\n SchaltflaechenAdressenAktualisieren\r\nEnd Sub<\/span><\/pre>\n