![\"So](\"..\/tl_files\/images\/frmShop_Filtered.png\")
<\/a><\/p>\nBild 1: So präsentiert sich der Webshop nach dem Start des Formulars frmShop mit eingestellten Kategorien und einem Produkt<\/p>\n
Listing 1 zeigt, wie sie bei Auslösen des Ereignisses Nach Aktualisierung<\/b> des Listenfelds lstKategorien<\/b> über einen neuen SQL-Select-Ausdruck<\/b> festgelegt wird. Die RowSource<\/b> des Steuerelements ist im Prinzip an die Tabelle tblHersteller<\/b> gebunden. Damit aus dieser aber nur jene Datensätze ausgewählt werden, die in ihrem Feld ID<\/b> den gleichen Wert aufweisen, der auch in der Kategorienliste markiert ist (lstKategorien.Value<\/b>), benötigen wir eine Zwischenabfrage, denn die Herstellertabelle kennt selbst keine Kategorien. Das ist ein schönes Beispiel für den Einsatz der IN<\/b>-Klausel. Aus tblArtikel<\/b> ermittelt die Select<\/b>-Abfrage innerhalb der Klammer alle Datensätze, deren Kategorien (IDKategorie<\/b>) mit dem markierten Eintrag des Listenfelds übereinstimmen und gibt aus ihren nur jeweils die IDHersteller<\/b> zurück. Befindet sich wiederum eine ID<\/b> der Herstellertabelle IN<\/b> diesem Pool, so ist die Bedingung positiv und der Datensatz mitsamt der Herstellerbezeichnung wird ausgegeben, so dass er im Kombinationsfeld erscheinen kann.<\/p>\n Listing 1: Setzen der Datenherkunft der Hersteller-Combobox cbHersteller<\/p>\n Sie interessieren sich für den Deskjet T730<\/b> und haben ihn in der Produktliste markiert. Seine Details gibt nun das Unterformular rechts im Bild wieder. Den Preis finden Sie OK und Sie klicken auf den Button In den Warenkorb<\/b>. Damit erscheint sogleich in einer Msgbox<\/b> die Info aus Bild 2. Klicken Sie erneut auf den Button, so zeigt sich eine abweichende Meldung (Bild 3).<\/p>\n Bild 2: Info zum Warenkorb<\/p>\n Bild 3: Info zum Warenkorb bei wiederholtem Hinzufügen<\/p>\n Die beim Klicken auf den Button cmdAdd<\/b> ausgelöste Prozedur finden Sie in Listing 2.<\/p>\n Listing 2: Das Legen eines Produkts in den Warenkorb über den Button cmdAdd<\/p>\n In der ersten Zeile ermittelt eine DLookup<\/b>-Funktion zunächst die Anzahl jener Artikel, die sich bereits in der Bestellung befinden, wobei nach dem aktuell ausgewählten Produkt (ArtikelID = Me!ID<\/b>) und nach der momentanen Bestellung (BestellID<\/b>) gefiltert wird. Im ersten Betrag wurde erläutert, dass schon beim öffnen des Shop-Formulars ein temporärer Bestelldatensatz in der Tabelle tblBestellDetails<\/b> angelegt und ein Verweis auf dessen ID<\/b> in der globalen Variablen BestellID<\/b> abgespeichert wird. Hier nun kommt diese ID<\/b> zum Tragen. Ist der Artikel bereits in der Bestellung vorhanden, so gibt DLookup<\/b> einen von 0<\/b> abweichenden Wert zurück und weist diesen der Variablen n<\/b> zu. Die Prozedur verzweigt jetzt in Abhängigkeit von diesem Wert.<\/p>\n Ist der Artikel neu, was den einfacheren Fall darstellt so findet das Einfügen eines Datensatzes über die INSERT INTO<\/b>-Anweisung statt. Ihr werden als Feldparameter die aktuelle BestellID<\/b>, der Preis (Me!Netto<\/b>) und der Umsatzsteuersatz (Me!Ust<\/b>) verabreicht. Diese letzten beiden Werte können nicht aus der Artikeltabelle entnommen werden! Denn bald könnte sich der Preis ja ändern, was bei Bearbeitung der Bestellung zu einer erhöhten Summe führen würde.<\/p>\n Hier muss der aktuelle Preis gelten, weshalb er fest in den Bestelldatensatz gespeichert werden muss. Die anschließende MsgBox<\/b> zeigt nun lediglich das Produkt (Me!Produkt<\/b>) in einem entsprechenden Text an.<\/p>\n Ist der Artikel in der Bestellung bereits vorhanden, also der Wert von n<\/b> ungleich 0<\/b>, so führt sich der nächste Zweig der Prozedur aus. Hier muss erst ermittelt werden, welche ID<\/b> der betreffende Bestelldatensatz hat, wobei abermals eine DLookup<\/b>-Funktion verwendet wird. Anschließend erhöht eine SQL-UPDATE<\/b>-Anweisung den Wert des Felds Anzahl im gefundenen Datensatz. Die Meldung sieht nun geringfügig anders aus.<\/p>\n Auf die Bedeutung der letzten Zeile, die ein Requery auf das Kombinationsfeld cbWarenkorb<\/b> auslöst, kommen wir gleich zu sprechen.<\/p>\n Die SQL-Anweisungen geschehen übrigens über die Objektvariable CurDB<\/b>. Das ist tatsächlich eine Funktion, die nur die Access-Eigenschaft CurrentDb<\/b> ersetzt. Sie befindet sich im Modul mdlShop<\/b> der Datenbank (Listing 3). Die im Kopf des Moduls deklarierte Objektvariable thisdb<\/b> bekommt beim ersten Aufruf der Funktion den Inhalt von CurrentDb<\/b> verpasst. Forthin gibt sie deren Wert zurück. Der Vorteil der Funktion ist, neben kürzerer Schreibweise, eine bessere Performance.<\/p>\n Listing 3: CurDB gibt die aus CurrentDb erhaltene Objektvariable thisdb zurück<\/p>\n Für den Warenkorb ist dieselbe Tabelle verantwortlich, wie für die Bestellungen: tblBestelldetails<\/b>. Ohne das Formular für den Warenkorb zu öffnen können bereits im Shop-Formular die hinzugefügten Artikel inspiziert werden. Dazu klicken Sie mit der Maus auf den Button Warenkorb rechts. Sogleich klappt eine Combobox mit der Liste der bestellten Produkte auf (Bild 4). Der Vorgang mag ungewöhnlich sein. In Webshops passiert dies häufig beim überfahren der Maus auf ein Warenkorbsymbol. Dies nachzustellen wäre hier des Aufwands etwas zu viel gewesen. Die Combobox soll genügen. Ihre Datenherkunft ist an eine Abfrage gebunden, die folgenden Text hat:<\/p>\n Bild 4: Der Inhalt des Warenkorbs kann über eine Combobox eingesehen werden, die sich hinter dem Button befindet<\/p>\n Die Datensätze bilden sich über den JOIN<\/b> aus der Verknüpfung zwischen tblBestellDetails<\/b> mit tblArtikel<\/b>. Da nur die aktuelle Bestellung berücksichtigt werden soll, filtert die WHERE<\/b>-Bedingung nach der BestellID<\/b>. Und die kommt direkt aus dem Formular frmShop<\/b>, in dem das unsichtbare Textfeld txtBestellID<\/b> vorhanden ist. Superelegant ist derlei nicht, aber als Datenherkunft für ein Kombinationsfeld innerhalb des Formulars ist so ein fester Bezug durchaus akzeptabel. Die Requery<\/b>-Anweisung auf cbWarenkorb<\/b> führt zur Neuauswertung der SQL-Abfrage, so dass ihr Datenbestand immer aktuell ist.<\/p>\n Das Ausklappen der Combobox erledigt die Routine in Listing 4. Bei Rechtsklick auf die Schaltfläche Warenkorb<\/b> (cmdWarenkorb<\/b>) ereignet sich das MouseDown<\/b>-Event. Steht der Parameter Button<\/b> auf 2<\/b>, so handelt es sich um die rechte Maustaste. Dann stellt die Prozedur den Fokus auf die Combobox cbWarenkorb<\/b> und bewirkt über die Methode Dropdown<\/b> deren Ausklappen. Sie gerät dadurch in den Vordergrund, obwohl sie im Formularentwurf in den Hintergrund verfrachtet wurde. Bei Verlassen des Steuerelements wird automatisch wieder der Ausgangszustand hergestellt.<\/p>\n Listing 4: Ausklappen der Combobox beim Maustaste Ab-Ereignis des Buttons<\/p>\n Beim normalen Linksklick auf den Button Warenkorb<\/b> ruft dieser die Click<\/b>-Prozedur auf und öffnet das Formular frmWarenkorb<\/b> (Bild 5).<\/p>\n Allerdings auch nur dann, wenn sich im Warenkorb Artikel befinden. Ansonsten erfolgt eine Meldung, dass der Warenkorb leer sei. Die erste Zeile in Listing 5 wertet über COUNT(*)<\/b> aus, wie viele Datensätze die Tabelle tblBestellDetails<\/b> zur aktuellen BestellID<\/b> aufweist. Ist die Anzahl 0<\/b>, so kommt es zur Meldung und andernfalls zum öffnen des Formulars.<\/p>\n Listing 5: Das Starten des Warenkorbformulars hängt von der Anzahl der aktuell bestellten Artikel in tblBestellDetails ab<\/p>\n Das gestartete Warenkorbformular frmWarenkorb<\/b> (Bild 5) weist die folgenden Grundeinstellungen auf. Die Eigenschaft Popup<\/b> steht auf Ja<\/b> und die Eigenschaft Gebunden<\/b> ebenfalls. Dadurch steht es im Vordergrund vor dem Shop-Formular, auf welches nun kein Zugriff mehr möglich ist. Als Ansichtsmodus ist Endlosformular<\/b> vorgesehen. Im Detailbereich finden sich die Felder für die Bestelldetails, also die Produkte mit deren Artikelnummer, der Bezeichnung, der gewünschten Anzahl, dem Preis und der Verfügbarkeit. Bis auf das Steuerelement für die Anzahl<\/b> sind alle weiteren gesperrt (Eigenschaftenblatt für das Steuerelement | Daten | Gesperrt<\/b> = Ja<\/b>). Die Anzahl kann der Kunde im Warenkorb noch ändern.<\/p>\n Bild 5: So etwa zeigt sich das Formular frmWarenkorb mit zwei bestellten Produkten<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>Private Sub <\/span>lstKategorien_AfterUpdate()\r\n ...\r\n Me!cbHerstellerFilter.RowSource = \"SELECT * FROM tblHersteller \" & _\r\n \"WHERE ID IN(SELECT IDHersteller FROM tblArtikel WHERE IDKategorie=\" & _\r\n Me!lstKategorien.Value & \")\"\r\n ...\r\nEnd Sub<\/span><\/pre>\n<\/a><\/p>\n<\/a><\/p>\nPrivate Sub <\/span>cmdAdd_Click()\r\n Dim <\/span>n As Long<\/span>\r\n Dim <\/span>ID As Long<\/span>\r\n \r\n n = Nz(DLookup(\"Anzahl\", \"tblBestellDetails\", \"ArtikelID=\" & Me!ID.Value & _\r\n \" AND BestellID=\" & BestellID))\r\n If <\/span>n = 0 Then<\/span>\r\n CurDB.Execute \"INSERT INTO tblBestellDetails\" & _\r\n \" (BestellID,ArtikelID,Anzahl,Netto,Ust)\" & _\r\n \" VALUES (\" & BestellID & \",\" & Me!ID.Value & \",1,\" & _\r\n Str(Me!Netto.Value) & \",\" & Str(Me!USt.Value) & \")\"\r\n MsgBox<\/span> \"Sie haben '\" & Me!Produkt & \"' in den Warenkorb gelegt.\", vbInformation\r\n Else<\/span>\r\n ID = DLookup(\"ID\", \"tblBestellDetails\", \"ArtikelID=\" & Me!ID.Value & _\r\n \" AND BestellID=\" & BestellID)\r\n CurDB.Execute \"UPDATE tblBestellDetails SET Anzahl=\" & (n + 1) & _\r\n \" WHERE ID=\" & ID\r\n MsgBox<\/span> \"Sie haben die Anzahl von '\" & Me!Produkt & \"' im Warenkorb erhöht.\"\r\n End If<\/span>\r\n Me!cbWarenkorb.Requery\r\nEnd Sub<\/span><\/pre>\nPrivate <\/span>thisdb As <\/span>Database \r\nFunction <\/span>CurDB() As <\/span>Database\r\n If <\/span>thisdb Is Nothing Then<\/span> Set<\/span> thisdb = CurrentDb\r\n Set<\/span> CurDB = thisdb\r\nEnd Function<\/span><\/pre>\nArtikel im Warenkorb<\/h2>\n
<\/a><\/p>\nSELECT \r\n \"- \" & [tblArtikel].[Produkt] AS P,\r\n tblArtikel.ID,\r\n tblArtikel.IDKategorie,\r\n tblBestellDetails.BestellID\r\nFROM tblArtikel\r\nINNER JOIN\r\ntblBestellDetails ON tblArtikel.ID =\r\n tblBestellDetails.ArtikelID\r\nWHERE tblBestellDetails.BestellID = \r\n [Forms]![frmShop]![txtBestellID]<\/pre>\n
Private Sub <\/span>cmdWarenkorb_MouseDown(Button As Integer<\/span>, Shift As Integer<\/span>, _\r\n X As Single<\/span>, Y As Single<\/span>)\r\n If <\/span>Button = 2 Then<\/span>\r\n Me!cbWarenkorb.SetFocus\r\n Me!cbWarenkorb.Dropdown\r\n End If<\/span>\r\nEnd SUb<\/pre>\nPrivate Sub <\/span>cmdWarenkorb_Click()\r\n Dim <\/span>n As Long<\/span>\r\n \r\n n = CurDB.OpenRecordset(\"SELECT COUNT(*) FROM tblBestellDetails\" & _\r\n \" WHERE BestellID=\" & BestellID)(0)\r\n If <\/span>n = 0 Then<\/span>\r\n MsgBox<\/span> \"Ihr Warenkorb ist leer!\", vbExclamation, sLogo\r\n Else<\/span>\r\n DoCmd.OpenForm \"frmWarenkorb\", , , , , , BestellID\r\n End If<\/span>\r\nEnd SUb<\/pre>\nWarenkorbformular<\/h2>\n
<\/a><\/p>\n
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t