<\/p>\n
Wenn die Adressdaten Ihrer Kunden in einer expliziten Form mit Liefer- und Rechnungsadresse vorliegen, ist deren Handhabung recht einfach. Sie möchten eine Rechnung verschicken Verwenden Sie die Rechnungsadresse! Der Kunde hat ein Produkt bestellt Senden Sie es an die Lieferadresse! Fehlt nur noch ein Formular, mit dem Sie die vorliegenden Daten komfortabel pflegen und gegebenenfalls abgleichen können. Dieser Beitrag liefert das nötige Rüstzeug für ein solches Formular.<\/b><\/p>\n
Umgang mit expliziten Adressen im Formular<\/b><\/p>\n
Weiter oben haben wir erwähnt, dass die einfachste Variante diejenige ist, bei der Lieferadresse und Rechnungsadresse immer gefüllt sind. Dies sollte sowieso der Fall sein, wenn es sich dabei um verschiedene Adressen handelt, aber auch, wenn die Adressen gleich sind. In diesem Fall wird die eingegebene Adresse einfach in die noch leere Adresse übertragen. <\/p>\n
Das Formular aus soll bei markiertem Kontrollkästchen chkLieferGleichRechnung <\/b>gewährleisten, dass änderungen an der Lieferadresse auf die Rechnungsadresse übertragen werden und dass die Daten der Rechnungsadresse nicht direkt geändert werden können.<\/p>\n
Außerdem soll man für Kunden, für die nur eine Lieferadresse, aber keine Rechnungsadresse vorliegt, die Lieferadresse durch Aktivieren der Option Lieferadresse entspricht Rechnungsadresse <\/b>in die Rechnungsadresse kopieren können.<\/p>\n
Schließlich fehlt noch das Pendant zu dieser Funktion, das die Rechnungsadresse über die Lieferadresse schreibt: Dies erledigt ein Klick auf die Schaltfläche Rechnungsadresse als Lieferadresse übernehmen<\/b>. Das Ergebnis soll wie in Bild 1 aussehen. <\/p>\n
![\"pic002.png\"](\"..\/fileadmin\/_temp_\/2012_01\/Adressformular-web-images\/pic002.png\")
<\/p>\n
Bild 1: Formular zur Bearbeitung von Rechnungs- und Lieferadressen<\/span><\/b><\/p>\n Erstellen des Formulars<\/b><\/p>\n Das Formular soll den Namen frmKunden <\/b>erhalten, daher legen Sie dieses zunächst als Formular in der Entwurfsansicht an und speichern es unter diesem Namen. Fügen Sie dann die Tabelle tblKunden <\/b>als Datenherkunft hinzu (s. Bild 2). Diese Tabelle wird im Detail im Beitrag Liefer-, Rechnungs- und sonstige Adressen <\/b>(www.access-im-unternehmen.de\/813<\/b>) beschrieben.<\/p>\n Bild 3: Das Formular frmKunden in der Entwurfsansicht<\/span><\/b><\/p>\n Die Daten dieser Tabelle ordnen Sie beispielsweise wie in Bild 3 im Formularentwurf an. Dabei landen die Adressen für Lieferung und Rechnung jeweils in einem eigenen Bereich, allein die Kundennummer und das Feld LieferGleichRechnung <\/b>werden außerhalb der in Rahmen-Steuerelementen eingefassten Adressdaten dargestellt.<\/p>\n Bild 2: Datenherkunft des Formulars<\/span><\/b><\/p>\n Damit Sie später unterscheiden können, ob Sie per VBA auf die Steuerelemente oder die als Steuerelementinhalt angegebenen Felder der Datenherkunft zugreifen, versehen wir die Steuerelementnamen mit entsprechenden Präfixen (etwa txtFirma <\/b>statt Firma<\/b>). <\/p>\n Das Kontrollkästchen chkLieferGleichRechnung<\/b>: Es ist an das Feld LieferGleichRechnung <\/b>gebunden und gibt an, ob Liefer- und Rechnungsadresse gleich sind.<\/p>\n Zusätzlich enthält das Formular zwei Schaltflächen, die sich zwischen den beiden Bereichen für Liefer- und Rechnungsadresse befinden. Die Schaltflächen heißen cmdLieferInRechnung <\/b>und cmdRechnungInLiefer <\/b>und dienen dazu, die komplette Lieferadresse als Rechnungsadresse zu übernehmen und umgekehrt.<\/p>\n Aktionen beim Anzeigen eines Kunden<\/b><\/p>\n Wenn das Formular den ersten Kundendatensatz nach dem Öffnen anzeigt oder der Benutzer mithilfe der Navigationsschaltflächen den Datensatz wechselt, muss das Formular prüfen, welchen Wert das Feld LieferGleichRechnung <\/b>enthält, und die Steuerelemente entsprechend aktivieren beziehungsweise deaktivieren. Das Wechseln des Datensatzes löst das Ereignis Beim Anzeigen <\/b>aus, für das wir die folgende Ereignisprozedur hinterlegen:<\/p>\n Diese ruft lediglich eine weitere Prozedur namens RechnungssteuerelementeAktivieren <\/b>auf, die wie in Listing 1<\/a><\/span> aussieht. Die Prozedur speichert den Wert des Feldes LieferGleichRechnung <\/b>in der Variablen bolRechnungsadresseSperren <\/b>und weist den darin enthaltenen Wert der Eigenschaft aller Steuerelemente zu, die sich auf die Rechnungsadresse beziehen.<\/p>\n Listing 1: Formularsteuerelemente aktivieren\/deaktivieren<\/p>\n <\/p>\n Auch die beiden Schaltflächen cmdLieferInRechnung <\/b>und cmdRechnungInLiefer <\/b>werden deaktiviert, sollte bolRechnungsadresseSperren <\/b>den Wert False <\/b>enthalten.<\/p>\n Lieferadresse als Rechnungsadresse und umgekehrt<\/p>\n Die beiden Schaltflächen cmdLieferInRechnung <\/b>und cmdRechnungInLiefer <\/b>sollen es vereinfachen, die Lieferadresse als Rechnungsadresse zu übernehmen und umgekehrt. Ein Klick auf die Schaltfläche cmdLieferInRechnung <\/b>löst so beispielsweise die Prozedur aus Listing 2<\/a><\/span> aus.<\/p>\n Listing 2: Aufruf der Prozedur zum Übertragen der Lieferadresse in die Rechnungsadresse<\/p>\n Diese Prozedur fragt den Benutzer zunächst per Meldungsfenster, ob dieser tatsächlich die Rechnungsadresse mit den Daten der Lieferadresse überschreiben möchte (s. Bild 4). Ist dies der Fall, ruft die Prozedur eine weitere Routine namens LieferadresseInRechnungsadresseSchreiben <\/b>auf. Warum geschieht dies in einer eigenen Routine Ganz einfach: Weil die enthaltene Funktionalität auch noch von einer anderen Stelle aus aufgerufen werden soll.<\/p>\n Bild 4: Rückfrage vor dem Übertragen der Lieferadresse in die Rechnungsadresse<\/span><\/b><\/p>\n Die Prozedur LieferadresseInRechnungsadresseSchreiben <\/b>finden Sie in Listing 3<\/a><\/span>. Diese Prozedur überträgt Feld für Feld die Daten der Lieferadresse in die entsprechenden Felder der Rechnungsadresse.<\/p>\n Listing 3: Eintragen der Rechnungsadresse in die Felder der Lieferadresse<\/p>\n Auf genau die gleiche Weise funktioniert das Übertragen der Rechnungsadresse in die Lieferadresse, sodass wir die entsprechenden Prozeduren hier nicht separat aufführen.<\/p>\n An dieser Stelle sei angemerkt, dass die beiden Schaltflächen ohnehin nur aktiviert sind, wenn die Option chkLieferGleichRechnung <\/b>den Wert False <\/b>anzeigt.<\/p>\n Liefer- und Rechnungsadresse gleichsetzen<\/b><\/p>\n Wenn der Benutzer auf das Kontrollkästchen chkLieferGleichRechnung <\/b>klickt, sollen je nach dem aktuellen Wert des als Steuerelementinhalt angegebenen Feldes LieferGleichRechnung <\/b>verschiedene Aktionen durchgeführt werden. Diese werden in der Prozedur aus Listing 4<\/a><\/span> abgebildet.<\/p>\n Listing 4: Gleichsetzen von Rechnungs- und Lieferadresse<\/p>\n Sie prüft zunächst den aktuellen Wert des Steuerelements chkLieferGleichRechnung<\/b>. Ist dieser False<\/b>, bedeutet dies, dass Rechnungs- und Lieferanschrift unabhängig voneinander eingegeben werden können. In diesem Fall werden die Anweisungen innerhalb der If…Then<\/b>-Anweisung nicht ausgeführt, sondern nur die Steuerelemente mit der Routine RechnungssteuerelementeAktivieren <\/b>aktivert.<\/p>\n Hat der Benutzer die Option chkLieferGleichRechnung <\/b>hingegen aktiviert, fragt die Prozedur zunächst per Meldungsfenster, ob die Lieferadresse als Rechnungsadresse übernommen werden soll. Falls ja, überträgt die Prozedur LieferadresseInRechnungsadresseSchreiben <\/b>die Daten entsprechend.<\/p>\n Auch in diesem Fall wird anschließend die Prozedur RechnungssteuerelementeAktivieren <\/b>aufgerufen, was dazu führt, dass die Steuerelemente auf der rechten Seite des Formulars komplett deaktiviert werden (s. Bild 5).<\/p>\n Bild 5: Deaktivieren der Steuerelemente für die Rechnungsadresse<\/span><\/b><\/p>\n Sollte der Benutzer hingegen auf Nein <\/b>klicken, wird die Aktivierung des Kontrollkästchens chkLieferGleichRechnung <\/b>verworfen. Außerdem sorgt die Anweisung Exit Sub <\/b>für ein sofortiges Verlassen der Prozedur, da der Aufruf der Routine zum Aktivieren\/Deaktivieren der Rechnungssteuerelemente nicht mehr nötig ist.<\/p>\n Nach dem Gleichsetzen von Rechnungs- und Lieferadresse<\/b><\/p>\n Sobald der Benutzer die Option chkLieferGleichRechnung <\/b>aktiviert hat, kann er nicht mehr auf die Steuerelemente zum Einstellen der Rechnungsadresse zugreifen. Auch ein Übertragen der Lieferadresse auf die Rechnungsadresse ist nicht mehr möglich, da ja die entsprechenden Schaltflächen ebenfalls deaktiviert werden. Erst das Deaktivieren der Option chkLieferGleichRechnung <\/b>erlaubt wieder das separate ändern der Rechnungsadresse.<\/p>\n Bis dahin sollen alle änderungen der Lieferadresse automatisch in die entsprechenden Felder der Rechnungsadresse übernommen werden.<\/p>\n![\"pic003.png\"](\"..\/fileadmin\/_temp_\/2012_01\/Adressformular-web-images\/pic003.png\")
<\/p>\n![\"pic001.png\"](\"..\/fileadmin\/_temp_\/2012_01\/Adressformular-web-images\/pic001.png\")
<\/p>\nPrivate Sub Form_Current()\r\n RechnungssteuerelementeAktivieren\r\nEnd Sub<\/pre>\n
Private Sub RechnungssteuerelementeAktivieren()\r\n Dim bolRechnungsadresseSperren As Boolean\r\n bolRechnungsadresseSperren = Not Me!chkLieferGleichRechnung\r\n Me!cboAnredeID_Rechnung.Enabled = bolRechnungsadresseSperren\r\n Me!txtEMail_Rechnung.Enabled = bolRechnungsadresseSperren\r\n Me!txtFirma_Rechnung.Enabled = bolRechnungsadresseSperren\r\n Me!txtLand_Rechnung.Enabled = bolRechnungsadresseSperren\r\n Me!txtNachname_Rechnung.Enabled = bolRechnungsadresseSperren\r\n Me!txtOrt_Rechnung.Enabled = bolRechnungsadresseSperren\r\n Me!txtPLZ_Rechnung.Enabled = bolRechnungsadresseSperren\r\n Me!txtStrasse_Rechnung.Enabled = bolRechnungsadresseSperren\r\n Me!txtVorname_Rechnung.Enabled = bolRechnungsadresseSperren\r\n Me!cmdLieferInRechnung.Enabled = bolRechnungsadresseSperren\r\n Me!cmdRechnungInLiefer.Enabled = bolRechnungsadresseSperren\r\nEnd Sub<\/pre>\n
Private Sub cmdLieferInRechnung_Click()\r\n If MsgBox("Dies überschreibt die Rechnungsadresse mit der Lieferadresse. Fortsetzen", vbYesNo) = vbYes Then\r\n LieferadresseInRechnungsadresseSchreiben\r\n End If\r\nEnd Sub<\/pre>\n![\"pic004.png\"](\"..\/fileadmin\/_temp_\/2012_01\/Adressformular-web-images\/pic004.png\")
<\/p>\nPrivate Sub RechnungsadresseInLieferadresseSchreiben()\r\n Me!cboAnredeID_Lieferung = Me!cboAnredeID_Rechnung\r\n Me!txtEMail_Lieferung = Me!txtEMail_Rechnung\r\n Me!txtFirma_Lieferung = Me!txtFirma_Rechnung\r\n Me!txtLand_Lieferung = Me!txtLand_Rechnung\r\n Me!txtNachname_Lieferung = Me!txtNachname_Rechnung\r\n Me!txtOrt_Lieferung = Me!txtOrt_Rechnung\r\n Me!txtPLZ_Lieferung = Me!txtPLZ_Rechnung\r\n Me!txtStrasse_Lieferung = Me!txtStrasse_Rechnung\r\n Me!txtVorname_Lieferung = Me!txtVorname_Rechnung\r\nEnd Sub<\/pre>\n
Private Sub chkLieferGleichRechnung_BeforeUpdate(Cancel As Integer)\r\n If Me!chkLieferGleichRechnung Then\r\n If MsgBox("Dies überträgt die Lieferadresse auf die Rechnungsadresse. Fortsetzen", vbYesNo) = vbYes Then\r\n LieferadresseInRechnungsadresseSchreiben\r\n Else\r\n Cancel = True\r\n Exit Sub\r\n End If\r\nEnd If\r\nRechnungssteuerelementeAktivieren\r\nEnd Sub<\/pre>\n![\"pic005.png\"](\"..\/fileadmin\/_temp_\/2012_01\/Adressformular-web-images\/pic005.png\")
<\/p>\n