![\"Entwurf](\"..\/fileadmin\/_temp_\/2022_05\/pic_1383_001.png\")
<\/p>\nEine Rechnungsverwaltung, mit der Rechnungen an verschiedene Kunden geschickt werden sollen, benötigt eine Tabelle zum Speichern diese Kunden. Logisch, dass wir dieser Tabelle auch ein Formular zum komfortablen Bearbeiten der Kunden an die Seite stellen. Dieses enthält allerdings nicht nur die reinen Kundendaten, sondern wir wollen damit auch noch die Bestellungen des jeweiligen Kunden in einem Unterformular anzeigen – und darüber die Anzeige der Bestelldetails zu ermöglichen.<\/b><\/p>\nUnterformular sfmKundeDetails für die Bestellungen<\/h2>\n
Wir beginnen direkt mit dem Entwurf des Unterformulars zur Anzeige der Bestellungen des Kunden. Dieses wollen wir sfmKundeDetails <\/b>nennen. Diesem fügen wir über die Eigenschaft Datensatzquelle <\/b>gleich die Tabelle tblBestellungen <\/b>hinzu.<\/p>\n
Im Gegensatz zum Unterformular aus dem Beitrag Rechnungsverwaltung: Bestellübersicht <\/b>(www.access-im-unternehmen.de\/****<\/b>), wo wir alle Bestellungen inklusive der Angabe des jeweiligen Kunden in einem Unterformular darstellen, benötigen wir hier nicht mehr die Anzeige des Kunden – dieser wird ja schon im Hauptformular angezeigt, das wir gleich noch erstellen werden. Also fügen wir nun die Felder Bestellnummer<\/b>, RechnungAm<\/b>, Zahlungsziel<\/b>, BezahltAm <\/b>und StorniertAm <\/b>zum Detailbereich des Formularentwurfs hinzu.<\/p>\n
Dieser sieht anschließend wie in Bild 1 aus. Damit die Daten in der Datenblattansicht angezeigt werden, legen wir die Eigenschaft Standardansicht <\/b>dort auf den Wert Datenblatt <\/b>fest. Außerdem wollen wir, dass der Kunde die Daten in diesem Unterformular nicht direkt bearbeiten kann. Daher legen wir die Eigenschaften Anfügen zulassen<\/b>, Löschen zulassen <\/b>und Bearbeitungen zulassen <\/b>jeweils auf den Wert Nein <\/b>ein. Damit können wir die Arbeiten an diesem Formular vorerst beenden und dieses schließen.<\/p>\n
<\/p>\n
Bild 1: Entwurf des Unterformulars sfmKundeDetails<\/span><\/b><\/p>\n Danach legen wir ein weiteres Formular namens frmKundeDetails <\/b>an. Bevor wir diesem das Unterformular sfmKundeDetails <\/b>hinzufügen, müssen wir die Datensatzquelle für das Hauptformular festlegen. So kann Access direkt erkennen, dass es zwischen den Datensatzquellen von Haupt- und Unterformular eine Beziehung gibt und dies entsprechend in den Eigenschaften Verknüpfen von <\/b>und Verknüpfen nach <\/b>des Unterformular-Steuerelements vermerken.<\/p>\n Wenn wir schon die Datensatzquelle definiert haben, können wir auch direkt die gewünschten Felder aus der Feldliste in den Detailbereich des Formulars ziehen. Dabei berücksichtigen wir alle Felder mit Ausnahme des Feldes ID<\/b>, das nur zu Verknüpfungszwecken gepflegt wird und für den Benutzer unsichtbar bleiben soll (siehe Bild 2).<\/p>\n Bild 2: Entwurf des Hauptformulars frmKundeDetails<\/span><\/b><\/p>\n Falls Sie sich wundern, dass in unserem Formular beispielsweise für das Feld AnredeID <\/b>ein Beschriftungsfeld mit dem Text Anrede <\/b>angelegt wurde: Wir haben direkt im Tabellenentwurf die für die Bezeichnungsfelder gewünschten Texte für die Eigenschaft Beschriftung <\/b>der jeweiligen Felder hinterlegt. Mehr dazu erfahren Sie im Beitrag Bezeichnungsfelder im Griff <\/b>(www.access-im-unternehmen.de\/****<\/b>).<\/p>\n Danach teilen wir die Felder auf zwei Spalten auf, sodass wir unten das Unterformular sfmKundeDetails <\/b>platzieren können. Dieses ziehen wir aus dem Navigationsbereich in den Formularentwurf und erhalten nach wenigen Anpassungen das Ergebnis aus Bild 3. Zu diesen Anpassungen gehört neben der Ausrichtung und der Einstellung der Größe das Festlegen der Eigenschaften Horizontaler Anker <\/b>und Vertikaler Anker <\/b>jeweils auf den Wert Beide<\/b>. Damit wird das Unterformular mit dem Hauptformular vergrößert.<\/p>\n Bild 3: Das Hauptformular frmKundeDetails mit dem Unterformular<\/span><\/b><\/p>\n Gegebenenfalls können Sie sich nun noch davon überzeugen, dass Access automatisch das Primärschlüsselfeld ID <\/b>der Tabelle tblKunden <\/b>für die Eigenschaft Verknüpfen nach <\/b>und das Fremdschlüsselfeld KundeID <\/b>der Tabelle tblBestellungen <\/b>für die Eigenschaft Verknüpfen von <\/b>eingetragen hat. Dies stellt sicher, dass das Unterformular immer nur die Datensätze der Tabelle tblBestellungen <\/b>anzeigt, die mit dem Datensatz der Tabelle tblKunden <\/b>aus dem Hauptformlar verknüpft sind.<\/p>\n Da wir bereits einige Beispieldatensätze angelegt haben, wie im Beitrag Rechnungsverwaltung: Beispieldaten <\/b>(www.access-im-unternehmen.de\/****<\/b>) beschrieben, finden wir beim Wechsel in die Formularansicht bereits einige Beispieldaten vor (siehe Bild 4).<\/p>\n Bild 4: Ein Kunde und seine Bestellungen<\/span><\/b><\/p>\n Damit können wir uns nun um die Validierung der Eingabefelder im Hauptformular kümmern. Hier sind Einschränkungen bei folgenden Feldern nötig:<\/p>\n Da Pflichtfelder nur beim Speichern des kompletten Datensatzes geprüft werden können und dies für die abhängigen Felder ohnehin der Fall ist, können wir uns hier auf das Ereignis Vor Aktualisierung <\/b>des Formulars konzentrieren.<\/p>\n Für dieses hinterlegen wir die Prozedur aus Listing 1. Das Ereignis wird nur beim Versuch ausgelöst, den Datensatz nach vorherigen Änderungen zu speichern – also etwa beim Wechsel zu einem anderen Datensatz oder beim Speichern mit der Tastenkombination Strg + S<\/b>.<\/p>\n Listing 1: Validieren beim Speichern des Datensatzes<\/span><\/b><\/p>\n Vorab die Information, dass wir alle gebundenen Steuerelemente mit Präfixen versehen haben, in diesem Fall die Textfelder mit txt <\/b>und die Kombinationsfelder mit cbo<\/b>. Auf diese Weise kann man sauber zwischen den Feldnamen der Datensatzquelle und den daran gebundenen Steuerelementen unterscheiden.<\/p>\n Diese Prozedur enthält einige If…Then<\/b>-Bedingungen, die jeweils eine Überprüfung für ein Feld vornehmen. Die erste untersucht beispielsweise, ob das Feld txtFirma <\/b>leer ist. Ist das der Fall, erscheint eine entsprechende Meldung, der Fokus wird auf das Textfeld eingestellt und der Rückgabeparameter Cancel <\/b>auf den Wert True<\/b>.<\/p>\n Außerdem verlassen wir an dieser Stelle mit Exit Sub <\/b>die Prozedur. Das Einstellen des Parameters Cancel <\/b>auf True <\/b>sorgt dafür, dass der Speichern<\/b>-Vorgang, der das Ereignis Vor Aktualisierung <\/b>ausgelöst hat, abgebrochen wird.<\/p>\n Die E-Mail-Adresse können wir direkt nach der Eingabe validieren und den Benutzer darauf hinweisen, falls die E-Mail-Adresse nicht gültig ist. Deshalb reicht es auch aus, dass wir in der Prozedur Form_BeforeUpdate nur auf eine leere Zeichenkette prüfen. Sobald der Benutzer einmal ein Zeichen für die E-Mail eingegeben hat, kann er dieses nur nach Eingabe einer gültigen E-Mail-Adresse verlassen.<\/p>\n Wie Sie die Gültigkeit einer E-Mail-Adresse überprüfen, haben wir im Beitrag E-Mail-Adressen validieren per VBA <\/b>(www.access-im-unternehmen.de\/****<\/b>) beschrieben. Die dortige Funktion CheckEMailSyntax <\/b>verwenden wir auch in diesem Formular, um die E-Mails nach der Eingabe zu prüfen. Dazu hinterlegen wir für das Ereignis Vor Aktualisierung <\/b>des Textfelds txtEMail<\/b> die Prozedur aus Listing 2.<\/p>\n Listing 2: Prozedur zum Prüfen von E-Mails direkt nach der Eingabe<\/span><\/b><\/p>\n <\/p>\n Die Prozedur liest den Inhalt des Textfeldes txtEMail <\/b>in die Variable strEMail <\/b>ein. Falls das Feld den Inhalt Null <\/b>hat, landet eine leere Zeichenkette in strEMail<\/b>. Danach ruft die Prozedur die Funktion CheckEMailSyntax <\/b>auf und übergibt dieser die E-Mail-Adresse zur Prüfung. Ist das Ergebnis nicht True<\/b>, zeigt die Prozedur eine Meldung an. Außerdem sorgt das Einstellen des Parameters Cancel <\/b>auf den Wert True <\/b>dafür, dass das Feld nicht verlassen werden kann. Das Ergebnis sieht beispielsweise wie in Bild 5 aus.<\/p>\n Bild 5: Die E-Mail-Adresse konnte nicht validiert werden.<\/span><\/b><\/p>\n Das Feld PLZ <\/b>ist ohnehin schon im Datenmodell auf fünf Zeichen begrenzt. Das reicht aus, wenn der Benutzer – wie vorgegeben – nur die Postleitzahl eingibt und nicht, wie hier und da noch zu sehen, die Postleitzahl mit führendem Länderkennzeichen, also beispielsweise D-47137<\/b>. Es sollen also nur Zahlen eingegeben werden. Das Feld PLZ <\/b>ist allerdings mit dem Felddatentyp Kurzer Text <\/b>versehen. Warum das, wenn doch nur Zahlen eingegeben werden können sollen? Weil es auch Postleitzahlen mit führender Null gibt (01234<\/b>) und diese gern wegfällt, wenn man das Text als Zahlenfeld definiert. Um dennoch dafür zu sorgen, dass nur Zahlen eingegeben werden können, haben wir zwei Möglichkeiten. Die erste ist, nach der Eingabe zu prüfen, ob der Benutzer nur Zahlen eingegeben hat. Das erledigen wir mit der Ereignisprozedur Vor Aktualisierung <\/b>für das Feld txtPLZ<\/b>:<\/p>\n Dadurch erscheint eine Meldung, wenn der Benutzer andere Zeichen als Zahlen eingibt.<\/p>\n Die Alternative ist, direkt die Eingabe von Zahlen zu unterbinden. Wie das gelingt, zeigen wir im Beitrag Textfeld nur mit bestimmten Zeichen füllen <\/b>(www.access-im-unternehmen.de\/****<\/b>).<\/p>\n Wir könnten hier noch einen Schritt weitergehen und die Validierung der Postleitzahl vom angegebenen Land abhängig machen. Darauf verzichten wir an dieser Stelle jedoch.<\/p>\n Das Feld Kundennummer <\/b>nimmt eine besondere Stellung ein. Es soll in unserem Beispiel eine Kundennummer angeben, die mit 99 <\/b>beginnt und danach sechs Ziffern, bestehend aus Nullen und dem Wert des Primärschlüsselfeldes besteht. Für den Primärschlüsselwert 123 <\/b>also beispielsweise 99000123<\/b>. Dieser Wert soll möglichst automatisch erzeugt werden, wenn der Benutzer die ersten Daten in den Kundendatensatz einträgt. Wie man dies realisieren kann, lernen Sie im Beitrag Nummern für Bestellungen et cetera generieren <\/b>(www.access-im-unternehmen.de\/****<\/b>).<\/p>\n Dort entnehmen wir die folgenden beiden Prozeduren, von denen die erste ausgelöst wird, wenn der Benutzer irgendein Feld bearbeitet. Dieses prüft, ob es sich um einen neuen, leeren Datensatz handelt und stellt die Eigenschaft TimerInterval <\/b>auf 100 <\/b>ein:<\/p>\n Dadurch wird das Ereignis Bei Zeitgeber <\/b>100 Millisekunden später ausgelöst. Dieses stellt die Kundennummer auf einen Wert ein, welche aus 99000000 <\/b>und dem Primärschlüsselwert zusammengesetzt ist. Danach stellt sie die Eigenschaft TimerInterval <\/b>wieder auf 0 <\/b>ein, was dazu führt, dass die Prozedur Form_Timer <\/b>vorerst nicht erneut ausgelöst wird:<\/p>\n Der Hintergrund ist, dass der Autowert für das Primärschlüsselfeld erst einen Augenblick nach dem Auslösen von Bei Geändert <\/b>gesetzt wird und wir erst dann auf diesen zugreifen können, um ihn als Grundlage für die Kundennummer zu verwenden.<\/p>\n Wenn wir die Kundennummer wie in diesem Fall beim Anlegen eines neuen Kunden per Code festlegen, sollten wir das irgendwie für den Benutzer kenntlich machen. Anderenfalls denkt er vielleicht, er müsse die Kundennummer selbst anlegen.<\/p>\n Die einfachste Möglichkeit ist, das Feld einfach zu deaktivieren und vor seinem Zugriff zu schützen. Dazu stellen wir die Eigenschaft Aktiviert <\/b>des Textfeldes txtKundennummer <\/b>auf Nein <\/b>ein. Wir können das Feld auch so formatieren, dass der Kunde es gar nicht als editierbar wahrnimmt. Dazu stellen Sie auch noch die Eigenschaft Gesperrt <\/b>auf Ja <\/b>ein.<\/p>\n Damit der Rahmen verschwindet, legen Sie für die Eigenschaft Rahmenart <\/b>den Wert Transparent <\/b>fest. Und schließlich richten wir den Inhalt über den Wert Linksbündig <\/b>für die Eigenschaft Textausrichtung <\/b>noch links aus.<\/p>\n Die Kundennummer wird nun automatisch angelegt, sobald der Benutzer irgendein Feld bearbeitet, und erscheint wie in Bild 6.<\/p>\n Bild 6: Automatisches Anlegen der Kundennummer<\/span><\/b><\/p>\n Damit sind die Steuerelemente im Hauptformular vollständig und wir können uns dem Unterformular und den damit verbundenen Funktionen zuwenden.<\/p>\n Hier wollen wir die folgenden Funktionen umsetzen:<\/p>\n Die Schaltfläche cmdBestellungAnzeigen <\/b>soll die aktuell im Unterformular markierte Bestellung im Formular frmBestellungDetails <\/b>öffnen. Dazu hinterlegen wir die Prozedur aus Listing 3. Diese liest die ID <\/b>der aktuell markierten Bestellung aus dem Unterformular in die Variable lngAktuelleBestellungID <\/b>ein. Dann öffnet sie das Formular frmBestellungDetails <\/b>als modalen Dialog zum Bearbeiten des Datensatzes, den wir mit dem Parameter WhereCondition <\/b>übergeben.<\/p>\n Listing 3: Prozedur zum Anzeigen der aktuell markierten Bestellung per Schaltfläche<\/span><\/b><\/p>\n Im Formular frmBestellungDetails <\/b>klickt der Benutzer dann nach dem Betrachten oder Bearbeiten des Datensatzes auf die OK<\/b>-Schaltfläche, was das Formular unsichtbar macht. Dadurch läuft der aufrufende Code weiter und schließt das Formular frmBestellungDetails, bevor es mit der Refresh<\/b>-Methode die angezeigten Daten im Unterformular aktualisiert, sodass zwischenzeitlich durchgeführte Änderungen direkt dort angezeigt werden.<\/p>\n Die zweite Schaltfläche heißt cmdBestellungLoeschen <\/b>und soll die aktuell im Unterformular markierte Bestellung löschen. Dazu ruft es die Prozedur aus Listing 4 auf. Die Prozedur ermittelt ebenfalls die ID <\/b>des aktuell markierten Eintrags. Dann versucht sie, den betroffenen Datensatz mit der DELETE<\/b>-Anweisung zu löschen – allerdings bei zuvor deaktivierter eingebauter Fehlerbehandlung. Eventuell tritt bei Löschen ein Fehler auf, weil es für die Bestellung bereits Bestellpositionen gibt. Dieser Fehler tritt auf, weil wir für die Beziehung zwischen den Tabellen tblBestellungen <\/b>und tblBestellpositionen <\/b>festgelegt haben, dass keine Löschweitergabe erfolgen darf. <\/p>\n Listing 4: Prozedur zum Löschen der aktuell markierten Bestellung per Schaltfläche<\/span><\/b><\/p>\n Den gegebenenfalls auftretenden Fehler fangen wir ab, indem wir eine Meldung anzeigen, die den Benutzer darauf hinweist, dass er zuvor die Bestellpositionen manuell löschen muss. Dazu öffnen wir direkt das Formular frmBestellungDetails <\/b>und zeigen die betroffene Bestellung an. Nachdem der Benutzer die notwendigen Arbeiten durchgeführt hat, schließen wir das Formular und aktualisieren die Anzeige im Unterformular sfmBestellungenUebersicht <\/b>des aufrufenden Formulars.<\/p>\n Hat der Benutzer alle Bestellpositionen gelöscht, kann er anschließend auch die Bestellung löschen, indem er nochmals auf die Schaltfläche cmdBestellungLoeschen <\/b>klickt.<\/p>\n Zum Anlegen einer neuen Bestellung soll ebenfalls das Formular frmBestellungDetails <\/b>geöffnet werden. Das erledigt die dazu aufgerufene Prozedur cmdNeueBestellung_Click<\/b>, welche das Formular im Modus zum Anlegen eines neuen Datensatzes öffnet. Eine ähnliche Funktion haben schon im Beitrag Rechnungsverwaltung: Bestellübersicht <\/b>(www.access-im-unternehmen.de\/****<\/b>) zum Formular frmBestellungenUebersicht <\/b>hinzugefügt.<\/p>\n Im Gegensatz zur dortigen Prozedur wissen wir hier allerdings schon, für welchen Kunden die Bestellung angelegt werden soll. Das heißt, wir könnten diese Information schon an das Formular frmBestellungDetails <\/b>übergeben und dort so auswerten, dass der betroffene Kunde bereits im Kombinationsfeld selektiert ist.<\/p>\n Deshalb fragen wir in der Prozedur aus Listing 5 zuvor den Wert des Primärschlüsselfeldes ID <\/b>für den angezeigten Kunden ab und speichern diesen in der Variablen lngKundeID<\/b>. Diesen Wert übergeben wir dann als Wert des Parameters OpenArgs<\/b>.<\/p>\n Listing 5: Prozedur zum Öffnen des Formulars zum Anlegen einer neuen Bestellung<\/span><\/b><\/p>\n Diesen Wert müssen wir noch im aufgerufenen Formular frmBestellungDetails <\/b>auswerten. Dazu fügen wir diesem eine Ereignisprozedur für das Ereignis Beim Öffnen <\/b>hinzu, das wie folgt aussieht:<\/p>\n Hier prüfen wir, ob ein Wert mit dem Parameter OpenArgs <\/b>übergeben wurde. Falls ja, können wir diesen mit der Eigenschaft OpenArgs <\/b>des Formulars auslesen. Ist das der Fall, stellen wir den Standardwert des Kombinationsfeldes cboKundeID <\/b>auf den übergebenen Wert ein. Dies führt dazu, dass der Kunde, für den die Bestellung angelegt werden soll direkt beim Öffnen der leeren Bestellung ausgewählt ist (siehe Bild 7).<\/p>\n Bild 7: Auswahl eines Kunden<\/span><\/b><\/p>\n Nachdem der Benutzer den neuen Datensatz angelegt und das Formular mit einem Klick auf OK <\/b>unsichtbar gemacht hat, ruft die aufrufende Prozedur den Primärschlüsselwert des neuen Datenatzes ab. Dann schließt es das zwar unsichtbare, aber noch geöffnete Formular. Anschließend aktualisiert es das Unterformular und markiert den soeben neu hinzugefügten Datensatz mit der FindFirst<\/b>-Methode des Recordset<\/b>-Objekts des Unterformulars.<\/p>\n Zum schnelleren Anzeigen der Details zu einer Bestellung fügen wir dem Textfeld txtBestellnummer <\/b>des Unterformulars sfmKundeDetails <\/b>das Ereignis Beim Doppelklicken <\/b>hinzu. Dieses ruft das Formular frmBestellungDetails <\/b>auf und übergibt die ID <\/b>des anzuzeigenden Datensatzes mit dem Parameter WhereCondition<\/b>. Nachdem der Benutzer das Formular frmBestellungDetails <\/b>mit einem Klick auf OK <\/b>unsichtbar gemacht hat, schließt die Prozedur das Formular und aktualisiert die Daten im Unterformular (siehe Listing 6).<\/p>\n Listing 6: Prozedur zum Anzeigen der Bestelldetails per Doppelklick auf die Bestellnummer<\/span><\/b><\/p>\n Nun wollen wir noch sicherstellen, dass der Benutzer nur auf die Schaltflächen cmdBestellungAnzeigen <\/b>und Hauptformular frmKundeDetails anlegen<\/h2>\n
![\"Entwurf](\"..\/fileadmin\/_temp_\/2022_05\/pic_1383_002.png\")
<\/p>\nUnterformular zum Hauptformular hinzufügen<\/h2>\n
![\"Das](\"..\/fileadmin\/_temp_\/2022_05\/pic_1383_003.png\")
<\/p>\n![\"Ein](\"..\/fileadmin\/_temp_\/2022_05\/pic_1383_004.png\")
<\/p>\nValidierung im Hauptformular<\/h2>\n
\n
Private Sub <\/span>Form_BeforeUpdate(Cancel As Integer<\/span>)\r\n If <\/span>Len<\/span>(Nz(Me!txtKundennummer, \"\")) = 0 Then<\/span>\r\n MsgBox<\/span> \"Bitte geben Sie eine Kundennummer ein.\", vbOKOnly + vbExclamation, \"Kundennummer fehlt\"\r\n Me!txtKundennummer.SetFocus\r\n Cancel = True<\/span>\r\n Exit Sub<\/span>\r\n End If<\/span>\r\n If <\/span>Nz(Me!cboAnredeID, 0) = 0 Then<\/span>\r\n MsgBox<\/span> \"Bitte wählen Sie eine Anrede aus.\", vbOKOnly + vbExclamation, \"Anredefehlt\"\r\n Me!cboAnredeID.SetFocus\r\n Cancel = True<\/span>\r\n Exit Sub<\/span>\r\n End If<\/span>\r\n If <\/span>Len<\/span>(Nz(Me!txtVorname, \"\")) = 0 Then<\/span>\r\n MsgBox<\/span> \"Bitte geben Sie einen Vornamen ein.\", vbOKOnly + vbExclamation, \"Vorname fehlt\"\r\n Me!txtVorname.SetFocus\r\n Cancel = True<\/span>\r\n Exit Sub<\/span>\r\n End If<\/span>\r\n If <\/span>Len<\/span>(Nz(Me!txtStrasse, \"\")) = 0 Then<\/span>\r\n MsgBox<\/span> \"Bitte geben Sie eine Straße ein.\", vbOKOnly + vbExclamation, \"Straße fehlt\"\r\n Me!txtStrasse.SetFocus\r\n Cancel = True<\/span>\r\n Exit Sub<\/span>\r\n End If<\/span>\r\n If <\/span>Len<\/span>(Nz(Me!txtPLZ, \"\")) = 0 Then<\/span>\r\n MsgBox<\/span> \"Bitte geben Sie eine PLZ ein.\", vbOKOnly + vbExclamation, \"PLZ fehlt\"\r\n Me!txtPLZ.SetFocus\r\n Cancel = True<\/span>\r\n Exit Sub<\/span>\r\n End If<\/span>\r\n If <\/span>Len<\/span>(Nz(Me!txtOrt, \"\")) = 0 Then<\/span>\r\n MsgBox<\/span> \"Bitte geben Sie einen Ort ein.\", vbOKOnly + vbExclamation, \"Ort fehlt\"\r\n Me!txtOrt.SetFocus\r\n Cancel = True<\/span>\r\n Exit Sub<\/span>\r\n End If<\/span>\r\n If <\/span>Len<\/span>(Nz(Me!cboLand, 0)) = 0 Then<\/span>\r\n MsgBox<\/span> \"WählenSie ein Land aus.\", vbOKOnly + vbExclamation, \"Land fehlt\"\r\n Me!cboLand.SetFocus\r\n Cancel = True<\/span>\r\n Exit Sub<\/span>\r\n End If<\/span>\r\n If <\/span>Len<\/span>(Nz(Me!txtEMail, \"\")) = 0 Then<\/span>\r\n MsgBox<\/span> \"Bitte geben Sie eine E-Mail-Adresse ein.\", vbOKOnly + vbExclamation, \"E-Mail-Adresse fehlt\"\r\n Me!txtEMail.SetFocus\r\n Cancel = True<\/span>\r\n Exit Sub<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nValidieren der E-Mail-Adresse<\/h2>\n
Private Sub <\/span>txtEMail_BeforeUpdate(Cancel As Integer<\/span>)\r\n Dim <\/span>strEMail As String<\/span>\r\n strEMail = Nz(Me!txtEMail, \"\")\r\n If <\/span>Not<\/span> CheckEMailSyntax(strEMail) Then<\/span>\r\n MsgBox<\/span> \"Die E-Mail-Adresse ''\" & strEMail & \"'' ist nicht gültig.\", vbOKOnly + vbExclamation, \"Ungültige E-Mail\"\r\n Cancel = True<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Die](\"..\/fileadmin\/_temp_\/2022_05\/pic_1383_005.png\")
<\/p>\nPostleitzahl validieren<\/h2>\n
Private Sub <\/span>txtPLZ_BeforeUpdate(Cancel As Integer<\/span>)\r\n If <\/span>Not<\/span> IsNumeric(Me!txtPLZ) Then<\/span>\r\n MsgBox<\/span> \"Die PLZ darf nur aus Zahlen bestehen.\", vbOKCancel + vbExclamation, \"Ungültige Postleitzahl\"\r\n Cancel = True<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nDas Feld Kundennummer<\/h2>\n
Private Sub <\/span>Form_Dirty(Cancel As Integer<\/span>)\r\n If <\/span>Me.NewRecord Then<\/span>\r\n Me.TimerInterval = 100\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>Form_Timer()\r\n Me!txtKundennummer = Format(Me!ID, \"99000000\")\r\n Me.TimerInterval = 0\r\nEnd Sub<\/span><\/pre>\nKundennummer vor Zugriff schützen<\/h2>\n
![\"Automatisches](\"..\/fileadmin\/_temp_\/2022_05\/pic_1383_006.png\")
<\/p>\nUnterformular für die Bestellungen mit Funktion füllen<\/h2>\n
\n
Anzeigen der aktuell markierten Bestellung per Schaltfläche<\/h2>\n
Private Sub <\/span>cmdBestellungAnzeigen_Click()\r\n Dim <\/span>lngAktuelleBestellungID As Long<\/span>\r\n lngAktuelleBestellungID = Me!sfmKundeDetails.Form!ID\r\n DoCmd.OpenForm \"frmBestellungDetails\", WindowMode:=acDialog, DataMode:=acFormEdit, WhereCondition:=\"ID = \" _\r\n & lngAktuelleBestellungID\r\n If <\/span>IstFormularGeoeffnet(\"frmBestellungDetails\") Then<\/span>\r\n DoCmd.Close acForm, \"frmBestellungDetails\"\r\n Me!sfmKundeDetails.Form.Refresh\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nLöschen der aktuell markierten Bestellung<\/h2>\n
Private Sub <\/span>cmdBestellungLoeschen_Click()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>lngZuLoeschendeBestellungID As Long<\/span>\r\n Set<\/span> db = CurrentDb\r\n lngZuLoeschendeBestellungID = Me!sfmKundeDetails.Form!ID\r\n On Error Resume Next<\/span>\r\n db.Execute \"DELETE FROM tblBestellungen WHERE ID = \" & lngZuLoeschendeBestellungID, dbFailOnError\r\n If <\/span>Err.Number = 3200 Then<\/span>\r\n MsgBox<\/span> \"Die Bestellung enthält bereits Bestellpositionen. Bitte entfernen Sie diese nach Prüfung und \" _\r\n & \"löschen Sie erst dann die Bestellung.\", vbOKOnly + vbInformation, \"Löschen nicht möglich\"\r\n DoCmd.OpenForm \"frmBestellungDetails\", WindowMode:=acDialog, DataMode:=acFormEdit, WhereCondition:=\"ID = \" _\r\n & lngZuLoeschendeBestellungID\r\n If <\/span>IstFormularGeoeffnet(\"frmBestellungDetails\") Then<\/span>\r\n DoCmd.Close acForm, \"frmBestellungDetails\"\r\n Me!sfmBestellungenUebersicht.Form.Refresh\r\n Me!sfmBestellungenUebersicht.Form.Recordset.FindFirst \"ID = \" & lngZuLoeschendeBestellungID\r\n End If<\/span>\r\n Else<\/span>\r\n Me!sfmKundeDetails.Form.Requery\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nAnlegen einer neuen Bestellung<\/h2>\n
Private Sub <\/span>cmdNeueBestellung_Click()\r\n Dim <\/span>lngNeueBestellungID As Long<\/span>\r\n Dim <\/span>lngKundeID As Long<\/span>\r\n lngKundeID = Me!ID\r\n DoCmd.OpenForm \"frmBestellungDetails\", WindowMode:=acDialog, DataMode:=acFormAdd, OpenArgs:=lngKundeID\r\n If <\/span>IstFormularGeoeffnet(\"frmBestellungDetails\") Then<\/span>\r\n lngNeueBestellungID = Forms!frmBestellungDetails!ID\r\n DoCmd.Close acForm, \"frmBestellungDetails\"\r\n End If<\/span>\r\n Me!sfmKundeDetails.Form.Requery\r\n Me!sfmKundeDetails.Form.Recordset.FindFirst \"ID = \" & lngNeueBestellungID\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>Form_Open(Cancel As Integer<\/span>)\r\n If <\/span>Not<\/span> Nz(Me.OpenArgs, 0) = 0 Then<\/span>\r\n Me!cboKundeID.DefaultValue = Me.OpenArgs\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Auswahl](\"..\/fileadmin\/_temp_\/2022_05\/pic_1383_007.png\")
<\/p>\nAnzeigen der aktuell markierten Bestellung per Doppelklick<\/h2>\n
Private Sub <\/span>txtBestellnummer_DblClick(Cancel As Integer<\/span>)\r\n Dim <\/span>lngAktuelleBestellungID As Long<\/span>\r\n lngAktuelleBestellungID = Me!ID\r\n DoCmd.OpenForm \"frmBestellungDetails\", WindowMode:=acDialog, DataMode:=acFormEdit, WhereCondition:=\"ID = \" _\r\n & lngAktuelleBestellungID\r\n If <\/span>IstFormularGeoeffnet(\"frmBestellungDetails\") Then<\/span>\r\n DoCmd.Close acForm, \"frmBestellungDetails\"\r\n Me.Refresh\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nSchaltflächen zum Bearbeiten und Löschen nur aktivieren, wenn ein Datensatz im Unterformular markiert ist<\/h2>\n