![\"Das](\"..\/fileadmin\/_temp_\/2022_04\/pic_1384_001.png\")
<\/p>\nIm Beitrag „Rechnungsverwaltung: Bestellformular“ (www.access-im-unternehmen.de\/1382) aus der kommenden Ausgabe 5\/2022 stellen wir ein Formular zur Eingabe neuer Bestellungen inklusive Bestellpositionen vor. Damit der Benutzer komfortabel auf bereits angelegte Bestellungen zugreifen und neue Bestellungen anlegen kann, stellen wir ihm ein Übersichtsformular für die Bestellungen zur Seite. Wie Sie dieses erstellen, zeigen wir im vorliegenden Beitrag. Dabei wollen wir nicht nur die Bestellungen in der Übersicht anzeigen, sondern auch Möglichkeiten zum Durchsuchen der Rechnungen sowie für die Anzeige der zuletzt verwendeten Rechnungen anbieten.<\/b><\/p>\nListenfeld oder Unterformular in der Datenblattansicht?<\/h2>\n
Wenn man eine Übersicht wie die hier geplante darstellen möchte, stellt sich immer die Frage, ob man ein Listenfeld oder ein Datenblatt zur Auflistung der Einträge verwenden soll. Wenn der Benutzer in der Lage sein soll, auf einfache Weise selbst die Datensätze zu sortieren oder nach verschiedenen Kriterien zu filtern, bietet sich ein Unterformular in der Datenblattansicht an.<\/p>\n
Im Gegensatz zum Listenfeld kann der Benutzer hier jedoch standardmäßig die Daten bearbeiten, was Sie gegebenenfalls unterbinden müssen. Wie das gelingt, zeigen wir ebenfalls in diesem Beitrag. Die Datenblattansicht bietet noch weitere Vorteile: Der Benutzer kann die Anordnung der Spalten variieren und auch Spalten ein- und ausblenden.<\/p>\n
Im Gegensatz zu üblichen Gepflogenheiten starten wir in diesem Beitrag einmal nicht mit dem Hauptformular, sondern legen direkt das Unterformular zur Anzeige der Bestellungen an. Dieses soll sfmBestellungenUebersicht <\/b>heißen und die Tabelle tbl-Be-stel-lungen <\/b>als Datensatzquelle verwenden. Wir ziehen alle Felder aus dieser Tabelle mit Ausnahme des Feldes ID <\/b>in den Detailbereich der Entwurfsansicht. Außerdem stellen wir die Eigenschaft Standardansicht <\/b>auf Datenblatt <\/b>ein und schließen das Formular (siehe Bild 1).<\/p>\n
<\/p>\n
Bild 1: Das Unterformular sfmBestellungenUebersicht<\/span><\/b><\/p>\n Das Hauptformular für die Bestellübersicht soll frmBe-stel-lun-gen-Uebersicht<\/b> heißen. Wir fügen ihm als Erstes das Unterformular sfmBestellungenUebersicht <\/b>hinzu, indem wir dieses aus dem Navigationsbereich in den Detailbereich des Formularentwurfs ziehen.<\/p>\n Damit erhalten wir die Anzeige der Bestellungen in der Datenblattansicht und können gleichzeitig im Hauptformular noch weitere Steuerelemente hinzufügen, was in einem Formular in der Datenblattansicht allein nicht möglich gewesen wäre.<\/p>\n Für das Unterformular-Steuerelement stellen wir die Eigenschaften Horizontaler Anker <\/b>und Vertikaler Anker <\/b>jeweils auf den Wert Beide <\/b>ein. So wird das Unterformular gemeinsam mit dem Hauptformular vergrößert. Außerdem löschen wir das Bezeichnungsfeld des Unterformulars.<\/p>\n Und wir wissen bereits, dass wir im Hauptformular selbst keine Daten anzeigen wollen. Daher können wir die Eigenschaften Datensatzmarkierer<\/b>, Navigationsschaltflächen<\/b>, Bildlaufleisten <\/b>und Trennlinien <\/b>hier direkt auf den Wert Nein <\/b>einstellen.<\/p>\n Außerdem soll das Formular, wenn es nicht ohnehin maximiert erscheint, zumindest mittig im Access-Fenster landen. Daher stellen wir Automatisch zentrieren <\/b>auf Ja <\/b>ein.<\/p>\n Ausgehend von hier können wir uns nun überlegen, welche Funktionen wir dem Formular hinzufügen wollen. Hier sind die Ideen, die wir in den folgenden Abschnitten umsetzen:<\/p>\n Das Hinzufügen einer neuen Bestellung erfolgt über eine Schaltfläche namens cmdNeueBestellung<\/b>. Diese soll das Formular frmBestellungDetails <\/b>zum Eingeben eines neuen Datensatzes öffnen. Nach dem Hinzufügen soll der neue Datensatz direkt mit den übrigen Bestellungen im Unterformular angezeigt und auch markiert werden. Der notwendige Code lautet wie in Listing 1.<\/p>\n Listing 1: Code zum Öffnen einer neuen Bestellung<\/span><\/b><\/p>\n Wir öffnen das Formular frmBestellungDetails <\/b>als modalen Dialog und im Modus zum Hinzufügen eines Datensatzes (siehe Bild 2). In diesem Formular gibt der Benutzer nun einen neuen Datensatz ein. Mit einem Klick auf die OK<\/b>-Schaltfläche schließt er die Eingabe ab und macht das Formular unsichtbar, was den aufrufenden Code fortsetzt.<\/p>\n Bild 2: Anlegen einer neuen Bestellung vom Formular frmBestellungenUebersicht aus<\/span><\/b><\/p>\n Hier prüfen wir mit der Hilfsfunktion IstFormularGeoeffnet<\/b>, ob das Formular frmBestellungDetails <\/b>noch geöffnet ist. Ist das der Fall, liest die Prozedur den Wert des dortigen Feldes ID <\/b>in die Variable lngNeueBestellungID <\/b>ein und schließt das Formular endgültig. Danach aktualisiert die Prozedur den Inhalt des Unterformulars sfmBestellungenUebersicht <\/b>und stellt dieses auf den neu angelegten Datensatz ein.<\/p>\n Hier kommt es noch zu einem Problem, wenn die durch den Benutzer eingegebenen Daten nicht erfolgreich validiert werden können. Bisher blendet die Schaltfläche cmdOK <\/b>im Formular frmBestellungDetails <\/b>das Formular nur aus, aber die Validierung erfolgt ja nur, wenn der Datensatz gespeichert wird – und das geschieht erst, wenn die aufrufende Prozedur das Formular mit DoCmd.Close acForm, „frmBestellungDetails“ <\/b>schließt. Damit die Validierung auch beim Ausblenden mit der Schaltfläche cmdOK <\/b>durchgeführt wird, rufen wir die Prozedur Form_BeforeUpdate <\/b>explizit auf und werten den darin gesetzten Rückgabeparameter Cancel <\/b>wie folgt aus:<\/p>\n Im ersten Teil prüfen wir außerdem noch, ob der Benutzer den angezeigten Datensatz überhaupt geändert hat und ob somit überhaupt eine Validierung nötig ist. Ist das nicht der Fall und die Eigenschaft Me.Dirty <\/b>liefert den Wert False <\/b>zurück, schließt cmdOK_Click<\/b> das Formular direkt und beendet die Prozedur.<\/p>\n Wenn der Benutzer einen der Datensätze im Unterformular markiert hat und auf die Schaltfläche cmdBestellungAnzeigen <\/b>klickt, soll das Formular frmBestellungDetails <\/b>geöffnet werden und den aktuell markierten Datensatz anzeigen.<\/p>\n Das realisieren wir mit der Prozedur cmdBestellungAnzeigen_Click<\/b> aus Listing 2. Hier rufen wir das Formular frmBestellungDetails <\/b>wieder mit der DoCmd.OpenForm<\/b>-Methode auf, allerdings übergeben wir für den Parameter DataMode <\/b>diesmal den Wert acFormEdit<\/b>. Außerdem legen wir mit WhereCondition <\/b>fest, welchen Datensatz das Formular anzeigen soll.<\/p>\n Listing 2: Code zum Anzeigen einer vorhandenen Bestellung<\/span><\/b><\/p>\n Die Vorgehensweise, wenn der Benutzer das Formular mit der OK<\/b>-Schaltfläche unsichtbar macht, sieht etwas anders aus. Wir prüfen nur noch, ob es bereits geschlossen ist und holen dies gegebenenfalls nach. Außerdem erneuern wir in diesem Fall die angezeigten Daten im Unterformular-Steuerelement mit der Refresh<\/b>-Methode.<\/p>\n Refresh <\/b>reicht in diesem Fall aus, da kein neuer Datensatz hinzugefügt wurde, sondern maximal eine Änderung an einem Datensatz durchgeführt wurde, die auch direkt in der Übersicht angezeigt werden soll.<\/p>\n Praktisch wäre es auch, wenn der Benutzer eine Bestellung direkt per Doppelklick anzeigen könnte. Wir wollen nur die Spalte mit der Bestellnummer für diese Funktion vorsehen.<\/p>\n Deshalb markieren wir in der Entwurfsansicht des Formulars das Feld Bestellnummer <\/b>und legen für dessen Ereignis Beim Doppelklicken <\/b>eine Ereignisprozedur an (siehe Bild 3).<\/p>\n Bild 3: Anlegen einer Ereignisprozedur für den Doppelklick auf die Bestellnummer<\/span><\/b><\/p>\n Die dadurch ausgelöste Ereignisprozedur finden Sie in Listing 3. Sie arbeitet wie die zuvor beschriebene Ereignisprozedur, aber da sie für das Unterformular definiert wurde und nicht aus der Perspektive des Hauptformulars, kann sie leichter auf die ID des doppelt angeklickten Datensatzes zugreifen – und auch der Aufruf der Refresh-Methode erfolgt wesentlich einfacher.<\/p>\n Listing 3: Code zum Anzeigen einer vorhandenen Bestellung per Doppelklick auf die Bestellnummer im Unterformular<\/span><\/b><\/p>\n Natürlich könnte man diese Funktion auch in einem Formular mit einer Kundenübersicht unterbringen, aber warum nicht auch direkt in der Übersicht der Bestellungen? Vielleicht möchten Sie nicht nur eine Bestellung betrachten, sondern gleich den Kundendatensatz mit allen Bestellungen, die der Kunde bis dato aufgegeben hat.<\/p>\n Also fügen wir dem Formular noch zwei Möglichkeiten hinzu, den Kundendatensatz zur aktuell markierten Bestellung zu öffnen. Die erste ist eine Schaltfläche, die wir diesmal cmdKundeAnzeigen <\/b>nennen. Diese Schaltfläche soll ein Formular namens frmKundeDetails <\/b>öffnen, das wir in einem weiteren Beitrag mit dem Titel Rechnungsverwaltung: Kundenübersicht <\/b>(www.access-im-unternehmen.de\/****<\/b>) beschreiben.<\/p>\n Die Schaltfläche cmdKundeAnzeigen<\/b> löst die Prozedur aus Listing 4 aus. Die Prozedur liest die ID <\/b>des Kunden aus dem Fremdschlüsselfeld KundeID <\/b>der markierten Bestellung ein und verwendet diese als Vergleichswert des Parameters WhereCondition <\/b>beim Öffnen des Formulars frmKundeDetails<\/b>. Dort kann der Benutzer die gewünschten Änderungen durchführen und die Bearbeitung mit der Schaltfläche OK <\/b>abschließen. Eventuelle Änderungen werden dann mit der Refresh<\/b>-Methode in das Feld cboKundeID <\/b>des Unterformulars sfmBestellungenUebersicht <\/b>übernommen.<\/p>\n Listing 4: Öffnen des Kunden der aktuell ausgewählten Bestellung per Klick auf cmdKundeAnzeigen<\/span><\/b><\/p>\n Die gleiche Funktion möchten wir für einen Doppelklick auf das Steuerelement cboKundeID <\/b>im Unterformular sfmBestellungenUebersicht <\/b>abbilden. Dazu hinterlegen wir die Prozedur aus Listing 5 für das Ereignis Beim Doppelklicken <\/b>dieses Steuerelements.<\/p>\n <\/p>\n Listing 5: Öffnen des Kunden der aktuell ausgewählten Bestellung per Doppelklick auf den Kundennamen im Unterformular<\/span><\/b><\/p>\n Die Schaltfläche cmdBestellungLoeschen <\/b>soll das Löschen einer Bestellung ermöglichen. Hier wird es spannend: Wir haben im Datenmodell angegeben, dass nur Bestellungen gelöscht werden können sollen, für die noch keine Datensätze in der verknüpften Tabelle tblBestellpositionen<\/b> angelegt wurden.<\/p>\n Ein einfaches Löschen mit einer DELETE<\/b>-Aktionsabfrage würde daher zu der Fehlermeldung aus Bild 4 führen.<\/p>\n Bild 4: Fehler beim Versuch, eine Bestellung zu löschen, die bereits Bestellpositionen enthält<\/span><\/b><\/p>\n Daher führen wir die Prozedur, die durch die Schaltfläche cmdBestellungLoeschen<\/b> ausgeführt wird, wie in Listing 6 aus. Diese ermittelt zunächst die ID <\/b>der zu löschenden Bestellung und verwendet diese als Vergleichswert der nachfolgend ausgeführten DELETE<\/b>-Aktionsabfrage. Vorher deaktivieren wir jedoch die eingebaute Fehlerbehandlung, um auf den oben erwähnten Fehler mit einer eigenen Meldung reagieren zu können.<\/p>\n Listing 6: Code zum Löschen einer Bestellung<\/span><\/b><\/p>\n Diese fordert den Benutzer auf, die Bestellpositionen zu sichten und gegebenenfalls manuell zu entfernen, bevor er einen neuen Anlauf zum Löschen des Bestelldatensatzes startet. Dazu öffnen wir direkt das Formular frmBe-stel-lung-Details <\/b>und zeigen den zu löschenden Datensatz an. Nachdem der Benutzer dieses Formular mit OK <\/b>ausgeblendet hat, schließt die Prozedur das Formular und aktualisiert die Bestellübersicht. Dann markiert sie den zu löschenden Datensatz erneut.<\/p>\n Falls beim Löschen des Bestelldatensatzes kein Fehler aufgetreten ist, aktualisiert die Prozedur einfach noch die Bestellübersicht im Unterformular.<\/p>\n Wir wollen außerdem sicherstellen, dass der Benutzer direkt im Unterformular mit den Bestellungen keine Datensätze ändern kann. Das soll dem Formular frmBestellungDetails <\/b>vorbehalten sein. Dazu ist nicht viel zu tun: Wir müssen einfach nur in der Entwurfsansicht das Unterformular sfmBestellungenUebersicht <\/b>markieren und für dieses die Eigenschaften Anfügen zulassen<\/b>, Löschen zulassen<\/b> und Bearbeitungen zulassen <\/b>auf Nein<\/b> einstellen (siehe Bild 5).<\/p>\n Bild 5: Sperren der Bearbeitung der Daten im Unterformular<\/span><\/b><\/p>\n Bevor wir eine Suchfunktion für die Bestellungen hinzufügen, machen wir uns Gedanken über die Anordnung der Steuerelemente. Wenn wir die bisher angelegten vier Schaltfläche sowie die noch anzulegenden Steuerelemente zur Eingabe von Suchkriterien über dem Unterformular platzieren, wird es dort etwas unübersichtlich.<\/p>\n Also platzieren wir die Schaltflächen unter dem Unterformular und legen die Steuerelemente für die Suchfunktion am aktuellen Ort der Schaltflächen an. Vergessen Sie nicht, die Eigenschaft Vertikaler Anker <\/b>für die Schaltflächen auf Unten <\/b>einzustellen, damit diese nach unten verschoben werden, wenn der Benutzer die Höhe des Formulars vergrößert.<\/p>\n Nun kümmern wir uns um eines der wichtigsten Features: der Suchfunktion. Egal, ob man im Callcenter arbeitet und sich schnell den Datensatz des anrufenden Kunden holen oder ob man den Kunden zu einer Anfrage per E-Mail finden möchte – eine Suchfunktion, welche die wichtigsten Kriterien abdeckt, ist unverzichtbar.<\/p>\n Wir werden in den folgenden Abschnitten verschiedene Suchkriterien zur Suche hinzufügen. Wichtig ist dabei, dass wir vorher festlegen, wie die Suche funktionieren soll. Soll diese nach der Eingabe eines jeden Zeichens aktualisiert werden? Oder soll der Benutzer zum Anzeigen des Suchergebnisses eine Suchen<\/b>-Schaltfläche betätigen müssen? Werden alle Suchen per AND <\/b>oder per OR <\/b>verknüpft? Wie sieht es mit Platzhaltern aus – sollen Suchbegriffe für Textfelder immer mit dem kompletten Inhalt vergleichen werden oder reicht es, wenn der Suchbegriff sich irgendwo im Textfeld befindet? Oder wenn der Inhalt des Textfeldes mit diesem Suchbegriff beginnt?<\/p>\n Wir wählen hier folgende Optionen:<\/p>\n Das erste Textfeld zur Eingabe eines Suchkriteriums wollen wir für die Suche nach der Bestellnummer nutzen. Das Textfeld nennen wir txtSucheBestellnummer<\/b>. Damit wir gleich damit arbeiten können, fügen wir direkt daneben die Schaltfläche cmdSuchen <\/b>ein.<\/p>\n Um die Suche zu starten, soll der Benutzer entweder die Suchen<\/b>-Schaltfläche oder die Eingabetaste betätigen. Damit Letzteres die gleiche Prozedur wie die Suchen<\/b>-Schaltfläche auslöst, stellen wir die Eigenschaft Standard <\/b>der Schaltfläche cmdSuchen <\/b>auf den Wert Ja <\/b>ein (siehe Bild 6).<\/p>\n Bild 6: Die Suchen-Schaltfläche samt Betätigung per Eingabetaste<\/span><\/b><\/p>\n Die noch sehr einfache Suchfunktion finden Sie in Listing 7. Die Prozedur deklariert eine Variable, in der wir den Filter aus den verschiedenen Kriterien zusammenstellen. Dann prüft sie, ob das Feld txtSucheBestellnummer <\/b>einen Wert enthält.<\/p>\n Listing 7: Suchen nach der Bestellnummer<\/span><\/b><\/p>\n Ist das der Fall, schreibt sie einen Ausdruck wie Bestellnummer LIKE “12345*“ <\/b>in die Variable strFilter<\/b>. Diese verwendet die Prozedur dann als Wert für die Eigenschaft Filter <\/b>des Unterformulars. Das Einstellen der Eigenschaft FilterOn <\/b>auf den Wert True <\/b>aktiviert den Filter schließlich.<\/p>\n Damit erhalten wir das Ergebnis aus Bild 7.<\/p>\n Bild 7: Testen der Suche nach der Bestellnummer<\/span><\/b><\/p>\n Diese Prozedur sollte auch direkt dafür ausgelegt sein, das Leeren des Suchformulars und erneutes Betätigen der Suchen<\/b>-Schaltfläche mit der Anzeige der ungefilterten Liste aller Bestellungen zu quittieren. Da das Textfeld txtSucheBestellnummer <\/b>dann leer ist, wird strFilter <\/b>anschließend ebenfalls nicht gefüllt und die Eigenschaft Filter <\/b>erhält eine leere Zeichenkette als Wert. Das ist jedoch nicht der Fall: Fragen wir den Wert der Eigenschaft Filter <\/b>direkt nach dem Zuweisen der leeren Zeichenkette ab, enthält diese immer noch den zuvor gesetzten Filterausdruck.<\/p>\n Da wir aktuell nicht ergründen können, warum dies nicht wie gewünscht funktioniert, erweitern wir die Prozedur noch um eine If…Then<\/b>-Bedingung, die prüft, ob überhaupt ein Filterkriterium in strFilter <\/b>enthalten ist, und gegebenenfalls der Eigenschaft Filter <\/b>eine leere Zeichenkette zuweist:<\/p>\n Interessanterweise funktioniert es mit der direkten Zuweisung einer leeren Zeichenkette wie gewünscht und das Unterformular zeigt nach Ausführen der Suche mit leerem Feld txtSucheBestellnummer <\/b>wieder alle Datensätze an.<\/p>\n Darauf bauen wir nun auf und ergänzen die Suche um ein Feld zur Eingabe einer Kundennummer. Das Textfeld heißt txtSucheKundennummer <\/b>und wir fügen es direkt unter dem anderen Suchtextfeld ein. Wenn wir nach der Kundennummer suchen wollen, gelingt das allerdings nicht durch Zusammensetzen eines Ausdrucks wie dem folgenden:<\/p>\n Das wird deutlich, wenn wir uns ansehen, aus welchen Tabellen die Daten dieser beiden Felder stammen (siehe Bild 8). Es wäre ein wenig einfacher, wenn wir keine eigene Kundennummer in der Tabelle tblKunden <\/b>pflegen würden, sondern das Primärschlüsselfeld als Kundennummer verwenden würden – aber wir haben uns aus bestimmten Gründen für die Variante mit einem eigenen Feld für die Kundennummer entschieden, wie Sie dem Beitrag Rechnungsverwaltung: Datenmodell <\/b>(www.access-im-unternehmen.de\/****<\/b>) entnehmen können.<\/p>\n Bild 8: Die an der Suche beteiligten Tabellen<\/span><\/b><\/p>\n Hier müssen wir also nun die Suche nach dem Feld Kundenummer <\/b>auf eine weitere Tabelle neben tblBestellungen <\/b>erstrecken. Das ist aber kein Problem, wenn man ein wenig mit SQL jongliert. In unserem Fall fügen wir ein Kriterium wie das folgende zusammen:<\/p>\n Wir ermitteln einfach in einer Unterabfrage die ID<\/b> des Datensatzes der Tabelle tblKunden<\/b>, der die angegebene Kundennummer enthält, und ermitteln in der Hauptabfrage alle Datensätze, deren Feld KundeID <\/b>den mit der Unterabfrage entsprechenden Werten im Feld ID <\/b>der Tabelle tblKunden <\/b>entspricht.<\/p>\n In der Prozedur cmdSuchen_Click <\/b>ergeben sich damit die Änderungen aus Listing 8. Die erste Änderung ist, dass wir nun mehrere Kriterien zusammensetzen, die in Abhängigkeit davon vorhanden sind, ob der Benutzer einen Vergleichswert für das jeweilige Suchfeld, also txtSucheBestellnummer <\/b>oder txtSucheKundennummer<\/b>, eingegeben hat. Da diese Kriterien alle mit AND <\/b>verknüpft werden sollen, fügen wir allen dieses Schlüsselwort voran – auch dem ersten, selbst wenn das jetzt noch keinen Sinn ergibt. Wozu das dient, sehen wir in der ersten Anweisung innerhalb der If…Then<\/b>-Bedingung, wo wir von der Zeichenkette aus strFilter <\/b>einfach mit der Mid<\/b>-Funktion die ersten fünf Zeichen abschneiden. Wir sparen uns also die Notwendigkeit der Prüfung, ob der Filterausdruck vorn das Schlüsselwort AND <\/b>enthält.<\/p>\n Listing 8: Suche nach Bestellnummer und Kundennummer<\/span><\/b><\/p>\n Die zweite Änderung ist die Verarbeitung des neuen Kriteriums für die Kundennummer. Diese ist genauso aufgebaut wie das für die Bestellnummer, nur das wir wegen der Daten aus einer weiteren Tabelle einen etwas aufwendigeren Filterausdruck verwenden. Zur Kontrolle haben wir auch noch eine Debug.Print<\/b>-Anweisung zur Ausgabe des Inhalts von strFilter <\/b>eingefügt, die Sie später entfernen können.<\/p>\n Danach fügen wir noch weitere Suchkriterien hinzu. Dabei handelt es sich um die Felder Firma<\/b>, Vorname<\/b>, Nachname <\/b>und EMail <\/b>der Tabelle tblKunden <\/b>sowie das Feld BestelltAm <\/b>der Tabelle tblBestellungen<\/b> (siehe Bild 9). Für letzteres sehen wir gleich zwei Steuerelemente für Vergleichskriterien vor, nämlich txtBestelltVom <\/b>und txtBestelltBis<\/b>.<\/p>\n Bild 9: Erweiterung der Suchkriterien<\/span><\/b><\/p>\n Während die Vergleichskriterien für die erstgenannten Felder genauso aussehen wie die für das Feld Kundennummer<\/b>, gibt es für das Filtern von Bestellungen nach dem Bestelldatum ein paar Neuerungen. Die erste ist, dass wir dem Benutzer die Eingabe des Datums soweit wie möglich vereinfachen wollen – allein, um Fehleingaben zu vermeiden. Dazu sind für die beiden Textfelder txtBe-stellt-Vom <\/b>und txtBestelltBis <\/b>zwei Einstellungen nötig:<\/p>\nHauptformular erstellen<\/h2>\n
Verwalten von Bestellungen<\/h2>\n
\n
Hinzufügen einer neuen Bestellung<\/h2>\n
Private Sub <\/span>cmdNeueBestellung_Click()\r\n Dim <\/span>lngNeueBestellungID As Long<\/span>\r\n DoCmd.OpenForm \"frmBestellungDetails\", WindowMode:=acDialog, DataMode:=acFormAdd\r\n If <\/span>IstFormularGeoeffnet(\"frmBestellungDetails\") Then<\/span>\r\n lngNeueBestellungID = Forms!frmBestellungDetails!ID\r\n DoCmd.Close acForm, \"frmBestellungDetails\"\r\n Me!sfmBestellungenUebersicht.Form.Requery\r\n Me!sfmBestellungenUebersicht.Form.Recordset.FindFirst \"ID = \" & lngNeueBestellungID\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Anlegen](\"..\/fileadmin\/_temp_\/2022_04\/pic_1384_002.png\")
<\/p>\nPrivate Sub <\/span>cmdOK_Click()\r\n Dim <\/span>intCancel As Integer<\/span>\r\n If <\/span>Me.Dirty = False<\/span> Then<\/span>\r\n DoCmd.Close acForm, Me.Name\r\n Exit Sub<\/span>\r\n End If<\/span>\r\n Form_BeforeUpdate intCancel\r\n If <\/span>intCancel = 0 Then<\/span>\r\n Me.Visible = False<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nAnzeigen der Details einer Bestellung<\/h2>\n
Private Sub <\/span>cmdBestellungAnzeigen_Click()\r\n Dim <\/span>lngAktuelleBestellungID As Long<\/span>\r\n lngAktuelleBestellungID = Me!sfmBestellungenUebersicht.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!sfmBestellungenUebersicht.Form.Refresh\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nAnzeigen der Details einer Bestellung per Doppelklick<\/h2>\n
![\"Anlegen](\"..\/fileadmin\/_temp_\/2022_04\/pic_1384_003.png\")
<\/p>\nPrivate Sub <\/span>Bestellnummer_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>\nAnzeigen der Details eines Kunden<\/h2>\n
Private Sub <\/span>cmdKundeAnzeigen_Click()\r\n Dim <\/span>lngAktuellerKundeID As Long<\/span>\r\n lngAktuellerKundeID = Me!sfmBestellungenUebersicht.Form!cboKundeID\r\n DoCmd.OpenForm \"frmKundeDetails\", WindowMode:=acDialog, DataMode:=acFormEdit, WhereCondition:=\"ID = \" _\r\n & lngAktuellerKundeID\r\n If <\/span>IstFormularGeoeffnet(\"frmKundeDetails\") Then<\/span>\r\n DoCmd.Close acForm, \"frmKundeDetails\"\r\n Me!sfmBestellungenUebersicht.Form.Refresh\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cboKundeID_DblClick(Cancel As Integer<\/span>)\r\n Dim <\/span>lngAktuellerKundeID As Long<\/span>\r\n lngAktuellerKundeID = Me!cboKundeID\r\n DoCmd.OpenForm \"frmKundeDetails\", WindowMode:=acDialog, DataMode:=acFormEdit, WhereCondition:=\"ID = \" _\r\n & lngAktuellerKundeID\r\n If <\/span>IstFormularGeoeffnet(\"frmKundeDetails\") Then<\/span>\r\n DoCmd.Close acForm, \"frmKundeDetails\"\r\n Me.Refresh\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nLöschen einer Bestellung<\/h2>\n
![\"Fehler](\"..\/fileadmin\/_temp_\/2022_04\/pic_1384_004.png\")
<\/p>\nPrivate 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!sfmBestellungenUebersicht.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!sfmBestellungenUebersicht.Form.Requery\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nÄnderungen im Unterformular verhindern<\/h2>\n
![\"Sperren](\"..\/fileadmin\/_temp_\/2022_04\/pic_1384_005.png\")
<\/p>\nSteuerelemente anordnen<\/h2>\n
In Bestellungen suchen<\/h2>\n
\n
Suche nach der Bestellnummer<\/h2>\n
![\"Die](\"..\/fileadmin\/_temp_\/2022_04\/pic_1384_006.png\")
<\/p>\nPrivate Sub <\/span>cmdSuchen_Click()\r\n Dim <\/span>strFilter As String<\/span>\r\n If <\/span>Not<\/span> Len<\/span>(Me!txtSucheBestellnummer) Then<\/span>\r\n strFilter = \"Bestellnummer LIKE ''\" & Me!txtSucheBestellnummer & \"*''\"\r\n End If<\/span>\r\n With<\/span> Me!sfmBestellungenUebersicht.Form\r\n .Filter = strFilter\r\n .FilterOn = True<\/span>\r\n End With<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Testen](\"..\/fileadmin\/_temp_\/2022_04\/pic_1384_007.png\")
<\/p>\nIf <\/span>Not<\/span> Len<\/span>(strFilter) = 0 Then<\/span>\r\n With<\/span> Me!sfmBestellungenUebersicht.Form\r\n Debug.Print<\/span> strFilter\r\n .Filter = strFilter\r\n .FilterOn = True<\/span>\r\n End With<\/span>\r\nElse<\/span>\r\n With<\/span> Me!sfmBestellungenUebersicht.Form\r\n .Filter = \"\"\r\n End With<\/span>\r\nEnd If<\/span><\/pre>\nSuche nach der Kundennummer<\/h2>\n
Bestellnummer LIKE ''1100000*'' AND Kundennummer LIKE ''99000013*''<\/pre>\n
![\"Die](\"..\/fileadmin\/_temp_\/2022_04\/pic_1384_008.png\")
<\/p>\nKundeID IN (SELECT ID FROM tblKunden WHERE Kundennummer LIKE ''99000013*'')<\/pre>\n
Private Sub <\/span>cmdSuchen_Click()\r\n Dim <\/span>strFilter As String<\/span>\r\n If <\/span>Not<\/span> Len<\/span>(Me!txtSucheBestellnummer) Then<\/span>\r\n strFilter = \" AND Bestellnummer LIKE ''\" & Me!txtSucheBestellnummer & \"*''\"\r\n End If<\/span>\r\n If <\/span>Not<\/span> Len<\/span>(Me!txtSucheKundennummer) Then<\/span>\r\n strFilter = strFilter & \" AND KundeID IN (SELECT ID FROM tblKunden WHERE Kundennummer LIKE ''\" _\r\n & Me!txtSucheKundennummer & \"*'')\"\r\n End If<\/span>\r\n If <\/span>Not<\/span> Len<\/span>(strFilter) = 0 Then<\/span>\r\n strFilter = Mid<\/span>(strFilter, 5)\r\n Debug.Print<\/span> strFilter\r\n With<\/span> Me!sfmBestellungenUebersicht.Form\r\n .Filter = strFilter\r\n .FilterOn = True<\/span>\r\n End With<\/span>\r\n Else<\/span>\r\n With<\/span> Me!sfmBestellungenUebersicht.Form\r\n .Filter = \"\"\r\n End With<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nWeitere Suchkriterien hinzufügen<\/h2>\n
![\"Erweiterung](\"..\/fileadmin\/_temp_\/2022_04\/pic_1384_009.png\")
<\/p>\n\n