<\/p>\n
In einer Bestellverwaltung verwalten Sie Kunden, Bestellungen und Bestellpositionen mit den jeweiligen Produkten. Gelegentlich werden Produkte aus dem Programm genommen. Das ist für neue Bestellungen kein Problem – die Auswahl des Produkts einer Bestellposition kann auf vorhandene Produkte beschränkt werden. Aber wie gehen wir vor, wenn wir bereits ausgelieferte Bestellungen betrachten wollen, die Bestellpositionen mit Produkten enthalten, die nicht mehr im Programm sind Wie das gelingt, zeigen wir in diesem Beitrag.<\/b><\/p>\n
Datenmodell der Beispielanwendung<\/b><\/p>\n
Die Beispielanwendung zu diesem Beitrag enthält die üblichen Tabellen einer Bestellverwaltung mit den mindestens notwendigen Feldern, deren Datenmodell Sie in Bild 1 sehen.<\/p>\n
![\"Beziehungsfenster](\"..\/fileadmin\/_temp_\/2020_03\/pic_1237_001.png\")
<\/p>\n
Bild 1: Beziehungsfenster des Datenmodells der Beispieldatenbank<\/span><\/b><\/p>\n Interessant ist hier vor allem die Tabelle tblProdukte<\/b>. Die Produkte werden in der Tabelle tblBestellpositionen <\/b>zu einer Bestellung aus der Tabelle tblBestellungen <\/b>hinzugefügt. Hinzu kommen in der Tabelle tblBestellpositionen <\/b>noch andere Felder, um die zum Zeitpunkt der Bestellung gültigen Werte für den Einzelpreis und den Mehrwertsteuersatz festzuhalten.<\/p>\n Beispielformular zur Verwaltung von Bestellungen<\/b><\/p>\n Das Zusammenstellen einer Bestellung erledigen wir im Formular frmBestellungDetail<\/b>, das an die Tabelle tblBestellungen <\/b>gebunden ist und alle Felder dieser Tabelle im Detailbereich anzeigt.<\/p>\n Außerdem enthält es ein Unterformular namens sfmBestellungDetail<\/b>. Dieses ist an die Tabelle tblBestellpositionen <\/b>gebunden und zeigt die Felder ProduktID<\/b>, Einzelpreis<\/b>, Mehrwertsteuersatz <\/b>und Menge <\/b>in der Datenblattansicht an. Damit es immer die Bestellpositionen zu der im Hauptformular angezeigten Bestellung liefert, erhält die Eigenschaft Verknüpfen von <\/b>des Unterformular-Steuerelements den Wert BestellungID <\/b>und die Eigenschaft Verknüpfen nach <\/b>den Wert ID<\/b>. Dies sieht im Entwurf wie in Bild 2 aus.<\/p>\n Bild 2: Entwurf des Formulars frmBestellungDetail<\/span><\/b><\/p>\n Wenn Sie in die Formularansicht wechseln, können Sie nach dem Anlegen eines Datensatzes in der Tabelle tblBestellungen <\/b>über das Hauptformular damit beginnen, die Bestellpositionen hinzuzufügen.<\/p>\n Dazu wählen Sie einfach aus dem Kombinationsfeld ProduktID <\/b>das gewünschte Produkt aus (siehe Bild 3).<\/p>\n Bild 3: Formularansicht des Formulars frmBestellungDetail<\/span><\/b><\/p>\n Damit die Werte für die Felder Mehrwertsteuersatz <\/b>und Einzelpreis <\/b>aus der Tabelle tblProdukte <\/b>beziehungsweise tblMehrwertsteuersaetze <\/b>entnommen und direkt in den neuen Datensatz der Tabelle tblBestellpositionen <\/b>eingetragen werden, legen wir für das Ereignis Nach Aktualisierung <\/b>des Kombinationsfeldes eine Ereignisprozedur an. Diese sieht wie in Listing 1 aus. Die Prozedur ermittelt per DLookup<\/b>-Funktion den Einzelpreis für das hinzugefügte Produkt aus der Tabelle tblProdukte<\/b>. Danach liest sie, ebenfalls per DLookup<\/b>, den Wert des Feldes MehrwertsteuersatzID <\/b>der Tabelle tblProdukte <\/b>ein. Da wir aber den Mehrwertsteuersatz in der Tabelle tblBestellpositionen <\/b>nicht als Fremdschlüsselfeld auf einen Eintrag der Tabelle tblMehrwertsteuersaetze <\/b>anlegen wollen, sondern den Prozentsatz speichern wollen, müssen wir diesen anschließend noch aus der Tabelle tblMehrwertsteuersaetze <\/b>auslesen.<\/p>\n Listing 1: Einfügen von Mehrwertsteuersatz und Einzelpreis nach dem Einfügen einer Bestellposition<\/span><\/b><\/p>\n Angezeigte Produkte einschränken<\/b><\/p>\n Nun wollen wir Produkte, die nicht mehr verfügbar sind, nicht mehr im Kombinationsfeld des Unterformulars sfmBestellungDetail <\/b>auflisten. Deshalb haben wir vorsorglich schon einmal ein Feld namens Aktiv <\/b>in den Entwurf der Tabelle tblProdukte <\/b>eingearbeitet (siehe Bild 4). Dieses stellen standardmäßig auf den Wert Ja <\/b>ein, damit neu angelegte Produkte direkt als aktiviert markiert sind.<\/p>\n Bild 4: Entwurf der Tabelle tblProdukte mit dem Feld Aktiv<\/span><\/b><\/p>\n Für Produkte, die nicht mehr aktiv sein sollen, müssen wir dann manuell den Wert des Feldes Aktiv<\/b> auf Nein <\/b>einstellen (siehe Bild 5).<\/p>\n Bild 5: Einstellen der Werte des Feldes Aktiv<\/span><\/b><\/p>\n Damit können wir nun die Datensatzherkunft des Kombinationsfeldes anpassen. Der bereits vorhandenen Abfrage, die durch die Übernahme der Konfiguration des Nachschlagefeldes der Tabelle tblBestellpositionen <\/b>für das Kombinationsfeld angelegt wurde, fügen wir das Feld Aktiv <\/b>aus der Tabelle tblProdukte <\/b>hinzu und legen dafür als Kriterium den Vergleichswert Wahr<\/b> fest (siehe Bild 6).<\/p>\n Bild 6: Neue Datensatzherkunft für das Kombinationsfeld zur Auswahl des Produkts einer Bestellposition<\/span><\/b><\/p>\n Wenn Sie dann im Formular frmBestellungDetail <\/b>in die Formularansicht wechseln, taucht ein als nicht mehr aktiv markierter Eintrag nicht mehr im Kombinationsfeld auf (siehe Bild 7).<\/p>\n Bild 7: Das als nicht aktiv markierte Produkt taucht nicht mehr in der Liste auf.<\/span><\/b><\/p>\n Wechseln Sie dann allerdings zu einem Datensatz, der das nicht mehr aktive Produkt bereits in einer Bestellposition enthält, wird dieses nicht mehr im Kombinationsfeld im Unterformular angezeigt (siehe Bild 8).<\/p>\n Bild 8: Ist das nicht mehr aktive Produkt bereits in einer Bestellung vorhanden, wird es allerdings nicht mehr im Kombinationsfeld angezeigt.<\/span><\/b><\/p>\n Wir müssen uns also überlegen, wie wir erkennen, ob gerade ein Datensatz im Formular frmBestellungDetail <\/b>angezeigt wird, der bereits versendet ist, und in diesem Fall die Datensatzherkunft des Kombinationsfeldes zur Auswahl der Produkte anpasst.<\/p>\n Das können wir beispielsweise erledigen, indem wir das Lieferdatum abfragen. Ist dieses leer, sollen nicht mehr aktive Produkte noch angezeigt werden.<\/p>\n Anderenfalls ist die Bestellung noch nicht als geliefert markiert und es ist korrekt, wenn das Produkt nicht mehr auswählbar ist. Wir realisieren wir das<\/p>\n Ganz einfach: Wir legen eine Ereignisprozedur an, die beim Wechseln des Datensatzes im Hauptformular ausgelöst wird und die den Wert des Feldes Lieferdatum <\/b>ermittelt. Wenn das Feld Lieferdatum <\/b>den Wert Null <\/b>hat, sollen nur die aktiven Produkte angezeigt werden. Wenn das Feld Lieferdatum <\/b>nicht Null <\/b>ist, soll das Kombinationsfeld alle Produkte liefern (siehe Listing 2).<\/p>\n Listing 2: Ein- und Ausblenden der nicht mehr aktiven Artikel aus der Datensatzherkunft des Kombinationsfeldes zur Auswahl der Produkte<\/span><\/b><\/p>\n Wenn Sie es genau nehmen, müssen Sie auch für das Feld zur Eingabe des Lieferdatums eine Ereignisprozedur vorsehen, die nach der Aktualisierung des enthaltenen Wertes die Datensatzherkunft des Kombinationsfeldes aktualisiert.<\/p>\n Also lagern wir die Anweisungen der Prozedur Form_Current <\/b>in eine eigene Prozedur namens Produkte-EinAusblenden <\/b>aus, die wie in Listing 3 aussieht. Die beiden Prozeduren, die durch das Ereignis Beim Anzeigen <\/b>des Hauptformulars und durch das Ereignis Nach Aktualisierung <\/b>des Textfeldes Lieferdatum <\/b>ausgelöst werden, sehen so aus:<\/p>\n <\/p>\n Listing 3: Ausgelagerte Anweisungen zum Anpassen der Datensatzherkunft des Kombinationsfeldes zum Auswählen der Produkte<\/span><\/b><\/p>\n Zwischenstand<\/b><\/p>\n Damit haben wir nun folgendes erreicht: Wenn der Benutzer einen Bestelldatensatz anzeigt, dessen Lieferdatum bereits gesetzt ist, enthält das Kombinationsfeld Produkt-ID <\/b>noch die nicht aktiven Datensätze, sodass diese noch angezeigt werden können. <\/p>\n Wenn er zu einem Datensatz wechselt, der eine noch nicht gelieferte Bestellung enthält, werden nicht mehr aktive Produkte nicht mehr zur Auswahl im Kombinationsfeld angeboten.<\/p>\n Was aber geschieht, wenn eine Bestellung angelegt wird, die ein Produkt enthält, das vor dem Eintragen des Lieferdatums als inaktiv markiert wird Wenn die Bestellung nicht direkt nach dem Anlegen versendet wird, dann zeigt diese doch eine Bestellposition an, deren Produkte nicht mehr in der Datensatzherkunft des Kombinationsfeldes ProduktID <\/b>enthalten ist.<\/p>\n Prüfen offener Bestellpositionen beim Deaktivieren von Produkten<\/b><\/p>\n Die Annahme ist also, dass es offene Bestellpositionen gibt, die ein Produkt enthalten, dessen Zustand von Aktiv <\/b>in Inaktiv <\/b>gesetzt werden soll – beispielsweise, weil dieses Produkt nicht mehr lieferbar ist.<\/p>\n In diesem Fall müssten wir das Einstellen des inaktiven Zustandes mit einer Prüfung verbinden, ob es noch Bestellungen gibt, die dieses Produkt als Bestellposition enthalten.<\/p>\n Dazu erstellen wir ein neues Formular namens frmProdukte<\/b>, das ein Formular namens sfmProdukte <\/b>als Unterformular verwendet. Dieses Formular nutzt die Tabelle tblProdukte <\/b>als Datensatzquelle und zeigt alle Felder dieser Tabelle außer Bild und Beschreibung an (siehe Bild 9).<\/p>\n Bild 9: Formular mit Unterformular zur Anzeige der Produktliste in der Entwurfsansicht<\/span><\/b><\/p>\n Damit die Datensätze in der Datenblattansicht angezeigt werden, stellen wir die Eigenschaft Standardansicht <\/b>des Unterformulars auf Datenblatt <\/b>ein. Für das Hauptformular stellen wir die Eigenschaften Navigationsschaltflächen<\/b>, Datensatzmarkierer <\/b>und Bildlaufleisten <\/b>auf Nein <\/b>und Automatisch zentrieren <\/b>auf Ja <\/b>ein.<\/p>\n Wechseln Sie in die Formularansicht, sieht das Formular wie in Bild 10 aus. Wenn der Benutzer nun den Wert des Feldes Aktiv <\/b>von Ja <\/b>in Nein <\/b>ändert, soll eine Prüfung erfolgen, ob es noch offene Bestellpositionen gibt, die dieses Produkt enthalten. Diese Bestellpositionen samt Bestellungen sollen dem Benutzer dann angezeigt werden, damit er diese Bestellungen bearbeiten und gegebenenfalls den Kunden informieren kann, dass nicht alle Bestellpositionen geliefert werden können. Wir entwickeln zunächst die Abfrage, um offene Bestellpositionen zu ermitteln, die das betroffene Produkt enthalten.<\/p>\n Bild 10: Liste der Produkte im Unterformular sfmProdukte des Formulars frmProdukte<\/span><\/b><\/p>\n Abfrage, um offene Bestellungen mit einem bestimmten Produkt zu ermitteln<\/b><\/p>\n Die Abfrage, mit der wie alle Bestellungen ermitteln wollen, die offene Positionen mit einem bestimmten Produkt enthalten, benötigt die Tabellen tblBestellungen<\/b> und tblBestellpositionen <\/b>als Datenquelle (siehe Bild 11). Die Tabelle tblBestellungen <\/b>liefert das Feld Lieferdatum<\/b>, das wir mit dem Wert Null <\/b>als Vergleichswert des Kriteriums ausstatten, sowie das Primärschlüsselfeld ID<\/b>. Die Tabelle tblBestellpositionen<\/b> liefert das Feld ProduktID<\/b>, nach dem wir mit dem Parameter prmProduktID <\/b>filtern wollen.<\/p>\n Bild 11: Abfrage, die alle Bestellungen mit offenen Positionen eines bestimmten Produkts liefert<\/span><\/b><\/p>\n Wenn Sie nun zur Datenblattansicht wechseln, erscheint ein Eingabefenster, das den Wert des Parameters prmProduktID<\/b> abfragt. Gegen Sie hier den Wert eines Produkts ein, das noch in einer oder mehreren Bestellungen enthalten ist, die noch nicht ausgeliefert wurden und das in den inaktiven Status geschaltet werden soll, zeigt die Abfrage die entsprechenden Datensätze (siehe Bild 12).<\/p>\n Bild 12: Bestellungen mit offenen Positionen, die das Produkt mit der ID 8 enthalten<\/span><\/b><\/p>\n Diese Abfrage bauen wir nun in die Ereignisprozedur ein, die beim Ändern des Wertes des Kontrollkästchens Aktiv <\/b>im Formular frmProdukte <\/b>ausgelöst wird (siehe Listing 4).<\/p>\n Listing 4: Prüfen, ob offene Bestellpositionen für ein Produkt vorliegen<\/span><\/b><\/p>\n Diese soll zunächst einmal eine Meldung anzeigen, wenn es noch offene Bestellpositionen mit dem zu prüfenden Produkt gibt. <\/p>\n Hier erstellen wir zunächst ein QueryDef<\/b>-Objekt auf Basis der Abfrage qryBestellungenMitOffenenBestellpositionen<\/b>. Diesem weisen wir den Wert des Primärschlüsselfeldes ID <\/b>des zu ändernden Produkt-Datensatzes für den Parameter prmProduktID <\/b>zu.<\/p>\n Anschließend öffnen wir ein Recordset auf Basis des QueryDef<\/b>-Objekts und dem übergebenen Parameterwert. Wenn das Recordset nicht leer ist, bewegen wir den Datensatzzeiger zum letzten Datensatz und geben eine Meldung aus, welche die Anzahl der noch offenen Bestellpositionen mit diesem Datensatz ausgibt (siehe Bild 13).<\/p>\n Bild 13: Meldung über noch offene Bestellungen mit dem zu deaktivierenden Produkt<\/span><\/b><\/p>\n Diese Prozedur wollen wir nun so ausbauen, dass der Benutzer die Möglichkeit erhält, die betroffenen Datensätze einzusehen, die Positionen zu verändern und erst dann den Status des Produkts auf inaktiv zu setzen (siehe Listing 5).<\/p>\n Listing 5: Prüfen, ob offene Bestellpositionen für ein Produkt vorliegen – erweiterte Version<\/span><\/b><\/p>\n Dazu fügen wir zuerst einmal eine wichtige If…Then<\/b>-Bedingung hinzu, mit der wir prüfen, ob der Benutzer den Wert des Felds Aktiv <\/b>auf Wahr <\/b>oder Falsch <\/b>eingestellt hat. Wir wollen nur aktiv werden, wenn der Wert Falsch <\/b>lautet. In diesem Fall führen wir zunächst die Schritte wie in der ersten Version durch. Die Meldung passen wir dann allerdings so an, dass sie den Benutzer darauf hinweist, dass im nun erscheinenden Formular die Bestellungen angezeigt werden, die noch nicht versendet sind und wo der Benutzer die Bestellung noch anpassen und gegebenenfalls den Kunden informieren muss.<\/p>\n Wenn Bestellungen gefunden wurden, die das nicht mehr aktive Produkt enthalten, sorgt eine DoCmd.OpenForm<\/b>-Anweisung dafür, dass das Formular frmBestellungDetail <\/b>geöffnet wird (siehe Bild 14). Dieses soll dann nach den Bestellungen gefiltert werden, die Bestellpositionen mit dem zu deaktivierenden Produkt enthalten. Als Bonbon soll das Unterformular auch noch direkt die betroffene Bestellposition markieren. Für das Filtern des Hauptformulars übergeben wir ein Kriterium mit dem Parameter WhereCondition<\/b>. Um im Unterformular die betroffene Bestellposition zu markieren, übergeben wir die ID des Produkts als Öffnungsargument.<\/p>\n Bild 14: Anzeige der Bestellungen mit dem zu deaktivierenden Produkt<\/span><\/b><\/p>\n Anpassen des Bestellformulars für die Anzeige der deaktivierten Produkte<\/b><\/p>\n Damit das Bestellformular nicht nur die per WhereCondition <\/b>übergebene Bedingung berücksichtigt, sondern auch im Unterformular das zu deaktivierende Produkt markiert, passen wir die Ereignisprozedur Form_Current <\/b>des Formulars wie folgt an:<\/p>\n Hier prüfen wir, ob ein Öffnungsargument übergeben wurde, und markieren den entsprechenden Eintrag im Unterformular mit der FindFirst<\/b>-Methode des Recordset<\/b>-Objekts des Unterformulars.<\/p>\n Der Benutzer kann dann hier das bestellte und nicht mehr aktive Produkt aus der Bestellung entfernen und gegebenenfalls den Kunden informieren, dass das Produkt nicht mehr lieferbar ist. Solche Aktionen könnte man auch noch automatisieren, indem man eine Schaltfläche zum Hauptformular hinzufügt, die eine entsprechende Mail in Outlook erzeugt.<\/p>\n Deaktivieren von Produkten ohne Entfernen aus offenen Bestellungen<\/b><\/p>\n Was passiert, wenn wir ein Produkt deaktivieren, das Formular frmProdukte <\/b>daraufhin das Formular frmBestelldetail <\/b>öffnet, wir aber nicht die noch offenen Bestellpositionen mit diesem Produkt entfernen<\/p>\n Wenn wir dann im Formular frmProdukte <\/b>den noch nicht gespeicherten Datensatz speichern, ist das Produkt in der Tabelle tblProdukte <\/b>mit dem Wert Nein <\/b>im Feld Aktiv <\/b>gekennzeichnet.<\/p>\n Öffnen wir nun das Formular frmBestelldetail <\/b>und zeigen einen der Datensätze an, der in einer Bestellposition das bereits als nicht mehr aktiv gekennzeichnete Produkte enthält, wird der Name des Produkts nicht mehr im Kombinationsfeld zur Auswahl des Produkts angezeigt (siehe Bild 15).<\/p>\n Bild 15: Leeres Produkt-Auswahlfeld<\/span><\/b><\/p>\n Also müssen wir den vorherigen Vorgang doch etwas anpassen, und zwar so, dass der Benutzer den Wert des Feldes Aktiv <\/b>erst auf Nein <\/b>einstellen kann, wenn er alle Bestellpositionen aus noch offenen Bestellungen, welche das zu deaktivierende Produkte enthalten, auch aus den Bestellungen entfernt hat. Das erledigen wir durch eine Erweiterung der Prozedur Aktiv_BeforeUpdate<\/b> (siehe Listing 6).<\/p>\n Listing 6: Erweiterung um Prüfung, ob alle Bestellpositionen offener Bestellungen mit dem zu deaktivierenden Produkt gelöscht sind<\/span><\/b><\/p>\n Das Formular frmBestellungDetail <\/b>öffnen wir in dieser Prozedur als modalen Dialog. Das heißt, dass der aufrufende Code erst nach dem Schließen des Formulars fortgesetzt wird. Das ist perfekt für unsere Zwecke, denn so können wir abwarten, bis der Benutzer das Formular geschlossen hat.<\/p>\n Dann prüfen wir, ob der Benutzer alle Bestellpositionen mit dem nicht mehr aktiven Produkt gelöscht hat. Dazu erstellen wir erneut das bereits weiter oben verwendete Recordset mit den offenen Bestellpositionen und ermitteln mit der RecordCount<\/b>-Eigenschaft die Anzahl der gesuchten Bestellpositionen.<\/p>\n Ist diese größer als 0<\/b>, erscheint die Meldung aus Bild 16. Und noch wichtiger: Die Prozedur stellt dann den Rückgabeparameter Cancel <\/b>auf den Wert True <\/b>ein, was dazu führt, dass die Aktualisierung des Datensatzes abgebrochen wird. Der Benutzer kann dann erneut das Feld Aktiv <\/b>auf Nein <\/b>einstellen und nochmal die noch offenen Bestellpositionen mit diesem Produkt entfernen. Erst wenn die Anzahl der offenen Bestellpositionen mit diesen Produkten gleich 0 <\/b>ist, wird die Änderung im Datensatz auch gespeichert. Damit ist sichergestellt, dass es keine offenen Bestellungen mehr gibt, in denen nicht aktive Produkte angezeigt werden. Neu auswählen kann der Benutzer diese auch nicht, da nicht aktive Produkte nicht mehr im Auswahlfeld angeboten werden.<\/p>\n![\"Entwurf](\"..\/fileadmin\/_temp_\/2020_03\/pic_1237_002.png\")
<\/p>\n![\"Formularansicht](\"..\/fileadmin\/_temp_\/2020_03\/pic_1237_003.png\")
<\/p>\nPrivate Sub <\/span>ProduktID_AfterUpdate()\r\n Dim <\/span>lngMehrwertsteuersatzID As Long<\/span>\r\n Me!Einzelpreis = DLookup(\"Einzelpreis\", \"tblProdukte\", \"ID = \" & Me!ProduktID)\r\n lngMehrwertsteuersatzID = DLookup(\"MehrwertsteuersatzID\", \"tblProdukte\", \"ID = \" & Me!ProduktID)\r\n Me!Mehrwertsteuersatz = DLookup(\"Mehrwertsteuersatz\", \"tblMehrwertsteuersaetze\", \"ID = \" & lngMehrwertsteuersatzID)\r\nEnd Sub<\/span><\/pre>\n![\"Entwurf](\"..\/fileadmin\/_temp_\/2020_03\/pic_1237_004.png\")
<\/p>\n![\"Einstellen](\"..\/fileadmin\/_temp_\/2020_03\/pic_1237_005.png\")
<\/p>\n![\"Neue](\"..\/fileadmin\/_temp_\/2020_03\/pic_1237_006.png\")
<\/p>\n![\"Das](\"..\/fileadmin\/_temp_\/2020_03\/pic_1237_007.png\")
<\/p>\n![\"Ist](\"..\/fileadmin\/_temp_\/2020_03\/pic_1237_008.png\")
<\/p>\nPrivate Sub <\/span>Form_Current()\r\n Dim <\/span>strSQL As String<\/span>\r\n If <\/span>IsNull(Me!Lieferdatum) Then<\/span>\r\n strSQL = \"SELECT ID, Bezeichnung, Aktiv FROM tblProdukte WHERE Aktiv=True\"\r\n Else<\/span>\r\n strSQL = \"SELECT ID, Bezeichnung, Aktiv FROM tblProdukte\"\r\n End If<\/span>\r\n Me!sfmBestellDetail.Form.ProduktID.RowSource = strSQL\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>ProdukteEinAusblenden()\r\n Dim <\/span>strSQL As String<\/span>\r\n If <\/span>IsNull(Me!Lieferdatum) Then<\/span>\r\n strSQL = \"SELECT ID, Bezeichnung, Aktiv FROM tblProdukte WHERE Aktiv=True\"\r\n Else<\/span>\r\n strSQL = \"SELECT ID, Bezeichnung, Aktiv FROM tblProdukte\"\r\n End If<\/span>\r\n Me!sfmBestellDetail.Form.ProduktID.RowSource = strSQL\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>Form_Current()\r\n ProdukteEinAusblenden\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>Lieferdatum_AfterUpdate()\r\n ProdukteEinAusblenden\r\nEnd Sub<\/span><\/pre>\n![\"Formular](\"..\/fileadmin\/_temp_\/2020_03\/pic_1237_009.png\")
<\/p>\n![\"Liste](\"..\/fileadmin\/_temp_\/2020_03\/pic_1237_010.png\")
<\/p>\n![\"Abfrage,](\"..\/fileadmin\/_temp_\/2020_03\/pic_1237_011.png\")
<\/p>\n![\"Bestellungen](\"..\/fileadmin\/_temp_\/2020_03\/pic_1237_012.png\")
<\/p>\nPrivate Sub <\/span>Aktiv_BeforeUpdate(Cancel As Integer<\/span>)\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>qdf As <\/span>DAO.QueryDef\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Dim <\/span>prm As <\/span>DAO.Parameter\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> qdf = db.QueryDefs(\"qryBestellungenMitOffenenBestellpositionen\")\r\n qdf.Parameters(\"prmProduktID\") = Me!ID\r\n Set<\/span> rst = qdf.OpenRecordset(dbOpenSnapshot)\r\n If <\/span>Not<\/span> rst.EOF Then<\/span>\r\n rst.MoveLast\r\n MsgBox<\/span> rst.RecordCount & \" offene Bestellpositionen mit diesem Produkt!\"\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Meldung](\"..\/fileadmin\/_temp_\/2020_03\/pic_1237_013.png\")
<\/p>\nPrivate Sub <\/span>Aktiv_BeforeUpdate(Cancel As Integer<\/span>)\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>qdf As <\/span>DAO.QueryDef\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Dim <\/span>prm As <\/span>DAO.Parameter\r\n Dim <\/span>strBestellIDs As String<\/span>\r\n If <\/span>Me!Aktiv = False<\/span> Then<\/span>\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> qdf = db.QueryDefs(\"qryBestellungenMitOffenenBestellpositionen\")\r\n qdf.Parameters(\"prmProduktID\") = Me!ID\r\n Set<\/span> rst = qdf.OpenRecordset(dbOpenSnapshot)\r\n If <\/span>Not<\/span> rst.EOF Then<\/span>\r\n rst.MoveLast\r\n MsgBox<\/span> rst.RecordCount & \" offene Bestellpositionen mit diesem Produkt!\" & vbCrLf<\/span> & vbCrLf<\/span> _\r\n & \"Im folgenden Dialog finden Sie die Bestellungen mit offenen Bestellpositionen mit diesem Produkt.\"\r\n rst.MoveFirst\r\n Do While<\/span> Not<\/span> rst.EOF\r\n strBestellIDs = strBestellIDs & \", \" & rst!ID\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\n If <\/span>Len<\/span>(strBestellIDs) > 0 Then<\/span>\r\n strBestellIDs = Mid<\/span>(strBestellIDs, 3)\r\n DoCmd.OpenForm \"frmBestellungDetail\", WindowMode:=acDialog, WhereCondition:=\"ID IN(\" & strBestellIDs _\r\n & \")\", OpenArgs:=Me!ID\r\n End If<\/span>\r\n End If<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Anzeige](\"..\/fileadmin\/_temp_\/2020_03\/pic_1237_014.png\")
<\/p>\nPrivate Sub <\/span>Form_Current()\r\n Dim <\/span>lngProduktID As Long<\/span>\r\n ProdukteEinAusblenden\r\n If <\/span>Not<\/span> Len<\/span>(Nz(Me.OpenArgs, \"\")) = 0 Then<\/span>\r\n lngProduktID = Me.OpenArgs\r\n Me!sfmBestellDetail.Form.Recordset.FindFirst \"ProduktID = \" & lngProduktID\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Leeres](\"..\/fileadmin\/_temp_\/2020_03\/pic_1237_015.png\")
<\/p>\nPrivate Sub <\/span>Aktiv_BeforeUpdate(Cancel As Integer<\/span>)\r\n ...\r\n If <\/span>Me!Aktiv = False<\/span> Then<\/span>\r\n ...\r\n If <\/span>Not<\/span> rst.EOF Then<\/span>\r\n ...\r\n If <\/span>Len<\/span>(strBestellIDs) > 0 Then<\/span>\r\n strBestellIDs = Mid<\/span>(strBestellIDs, 3)\r\n DoCmd.OpenForm \"frmBestellungDetail\", WindowMode:=acDialog, WhereCondition:=\"ID IN(\" & strBestellIDs _\r\n & \")\", OpenArgs:=Me!ID\r\n Set<\/span> rst = qdf.OpenRecordset(dbOpenSnapshot)\r\n rst.MoveLast\r\n If <\/span>rst.RecordCount > 0 Then<\/span>\r\n MsgBox<\/span> \"Es sind noch offene Bestellungen vorhanden, welche dieses Produkt als Bestellposition \" _\r\n & \"enthalten.\" & vbCrLf<\/span> & vbCrLf<\/span> & \"Das Produkt wird nicht als nicht aktiv markiert.\", _\r\n vbCr<\/span>itical + vbOKOnly\r\n Cancel = True<\/span>\r\n End If<\/span>\r\n End If<\/span>\r\n End If<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Meldung](\"..\/fileadmin\/_temp_\/2020_03\/pic_1237_016.png\")
<\/p>\n