{"id":55000851,"date":"2012-08-01T00:00:00","date_gmt":"2020-05-22T21:48:12","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=851"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"1nDaten_mit_HTML","status":"publish","type":"post","link":"https:\/\/access-im-unternehmen.de\/1nDaten_mit_HTML\/","title":{"rendered":"1:n-Daten mit HTML"},"content":{"rendered":"

\"\"<\/p>\n

Es gibt einige Darstellungen, die sich mit Access-Bordmitteln nicht oder nur mit sehr hohem Aufwand realisieren lassen. Dazu gehören beispielsweise alle Konstellationen aus 1:n-Beziehungen mit Unterformularen, bei denen man gern mehr als einen Datensatz im Hauptformular anzeigen würde. Zum Glück erlaubt Access einen Blick über den Tellerrand, und mit dem Webbrowser-Steuerelement und HTML erreichen Sie wohl alle denkbaren Darstellungen – in diesem Fall die Endlosanzeige von 1:n-Beziehungen.<\/b><\/p>\n

Im vorliegenden Fall sollen alle Abteilungen einer Firma samt den dazugehörigen Mitarbeitern dargestellt werden, und zwar inklusive eines Kontrollkästchens je Abteilung und Mitarbeiter, mit dem man komplette Abteilungen oder einzelne Mitarbeiter aus- und abwählen kann. Das Beispielformular aus Bild 1 gehört zu der Lösung aus dem Beitrag Fehlzeiten verwalten <\/b>(www.access-im-unternehmen.de\/850<\/b>).<\/p>\n

\"pic001.png\"<\/p>\n

Bild 1: 1:n-Beziehung im Webbrowser-Steuerelement<\/span><\/b><\/p>\n

Das Formular soll die Daten der beiden Tabellen tblAbteilungen <\/b>und tblMitarbeiter <\/b>anzeigen, die per 1:n-Beziehung über das Fremdschlüsselfeld AbteilungID <\/b>der Tabelle tblMitarbeiter <\/b>miteinander verknüpft sind (s. Bild 3 aussieht. Das Webbrowser-Steuerelement erhält den Namen ctlWebbrowser<\/b>.<\/p>\n

\"pic237.png\"<\/p>\n

Bild 2: Tabellen der Beispielanwendung<\/span><\/b><\/p>\n

\"pic002.png\"<\/p>\n

Bild 3: Das Beispielformular in der Entwurfsansicht<\/span><\/b><\/p>\n

Um ein HTML-Dokument mit den Methoden der MSHTML-Bibliothek zu bestücken, benötigen Sie zunächst einen Verweis auf diese Bibliothek. Diesen legen Sie im Verweise<\/b>-Dialog (Menüeintrag Optionen|Verweise <\/b>im VBA-Editor) fest (s. Bild 4). Danach können Sie bereits loslegen. Die Prozedur, die durch das Ereignis Beim Laden <\/b>des Formulars ausgelöst wird, ruft wiederum die Prozedur MitarbeiterAnzeigen <\/b>auf:<\/p>\n

\"pic003.png\"<\/p>\n

Bild 4: Verweis auf die MSHTML-Bibliothek<\/span><\/b><\/p>\n

Private Sub Form_Load()\r\n    MitarbeiterAnzeigen\r\nEnd Sub<\/pre>\n
Der weitere Aufbau wird von der Prozedur MitarbeiterAnzeigen <\/b>gesteuert (s. Listing 1<\/a><\/span>). Die Prozedur legt zunächst mit der Funktion DokumentAnlegen<\/b> (s. Listing 2<\/a><\/span>) ein Dokument im Webbrowser-Steuerelement an und speichert einen Verweis darauf in der Variablen objDocument<\/b>.<\/p>\n
Listing 1: Mitarbeiter im Webbrowser-Steuerelement anzeigen<\/p>\n
Private Sub MitarbeiterAnzeigen()\r\n    Dim db As DAO.Database\r\n    Dim rstAbteilungen As DAO.Recordset\r\n    Dim rstMitarbeiter As DAO.Recordset\r\n    Dim objDocument As MSHTML.HTMLDocument\r\n    Dim objTable As MSHTML.HTMLTable\r\n    Dim objInnerRow As MSHTML.HTMLTableRow\r\n    Dim objInnerCell As MSHTML.HTMLTableCell\r\n    Dim objCheckbox As MSHTML.HTMLInputElement\r\n    Set colCheckboxes_Mitarbeiter = New Collection\r\n    Set colCheckboxes_Abteilungen = New Collection\r\n    Set objDocument = DokumentHolen\r\n    Set objTable = objDocument.createElement("Table")\r\n    objDocument.Body.appendChild objTable\r\n    objDocument.Body.Style.fontFamily = "calibri"\r\n    objDocument.Body.Style.FontSize = "8px"\r\n    objTable.Style.borderCollapse = "collapse"\r\n    Set db = CurrentDb\r\n    Set rstAbteilungen = db.OpenRecordset("SELECT * FROM qryAbteilungenMitMitarbeitern", dbOpenDynaset)\r\n    Do While Not rstAbteilungen.EOF\r\n        Set objInnerRow = ZeileZelleTabelleAnlegen(objDocument, objTable)\r\n        Set objInnerCell = objInnerRow.insertCell\r\n        objInnerCell.appendChild CheckboxAbteilungErstellen(objDocument, rstAbteilungen!AbteilungID)\r\n        Set objInnerCell = objInnerRow.insertCell\r\n        objInnerCell.innerText = rstAbteilungen!Abteilung\r\n        Set rstMitarbeiter = db.OpenRecordset("SELECT * FROM qryMitarbeiterauswahl " _\r\n            & "WHERE AbteilungID " & rstAbteilungen!AbteilungID, dbOpenDynaset)\r\n        Do While Not rstMitarbeiter.EOF\r\n            Set objInnerRow = ZeileZelleTabelleAnlegen(objDocument, objTable)\r\n            Set objInnerCell = objInnerRow.insertCell\r\n            objInnerCell.Width = "30px"\r\n            Set objInnerCell = objInnerRow.insertCell\r\n            Set objCheckbox = CheckboxMitarbeiterErstellen(objDocument, _\r\n                rstMitarbeiter!MitarbeiterID)\r\n            objInnerCell.appendChild objCheckbox\r\n            objCheckbox.Checked = Not IsNull(rstMitarbeiter!MitarbeiterAnzeigenID)\r\n            Set objInnerCell = objInnerRow.insertCell\r\n            With objInnerCell\r\n                .innerText = rstMitarbeiter!Bezeichnung\r\n                .Style.fontFamily = "calibri"\r\n                .Style.FontSize = "12px"\r\n            End With\r\n            rstMitarbeiter.MoveNext\r\n        Loop\r\n        rstAbteilungen.MoveNext\r\n    Loop\r\n    Set db = Nothing\r\nEnd Sub<\/pre>\n
Listing 2: Browser mit leerem Dokument füllen<\/p>\n
Private Function DokumentHolen() As MSHTML.HTMLDocument\r\n    Dim objWebbrowser As SHDocVw.WebBrowser\r\n    Dim objDocument As MSHTML.HTMLDocument\r\n    Set objWebbrowser = GetWebbrowser\r\n    DoEvents\r\n    objWebbrowser.Navigate "about:blank"\r\n    Do\r\n        DoEvents\r\n    Loop Until objWebbrowser.ReadyState = READYSTATE_COMPLETE\r\n    Set objDocument = objWebbrowser.Document\r\n    Set DokumentHolen = objDocument\r\nEnd Function<\/pre>\n
Außerdem erstellt die Prozedur zwei Collection<\/b>-Objekte, welche später Verweise auf Wrapper-Klassen für die Checkbox-Steuerelemente zum Auswählen der Abteilungen und der Mitarbeiter aufnehmen – dazu später mehr. Wichtig ist erstmal, dass die Collection<\/b>-Elemente wie folgt im Kopf des Klassenmoduls des Formulars deklariert werden:<\/p>\n
Dim colCheckboxes_Mitarbeiter As Collection\r\nDim colCheckboxes_Abteilungen As Collection<\/pre>\n
Auch die Wrapper-Klassen werden im Kopf des Moduls deklariert:<\/p>\n
Dim objCheckboxWrapper_Mitarbeiter As clsCheckboxWrapper_Mitarbeiter\r\nDim objCheckboxWrapper_Abteilung As clsCheckboxWrapper_Abteilung<\/pre>\n
Nun geht erstmal der Aufbau der Tabellenstruktur im HTML-Dokument weiter. Die Prozedur erstellt ein HTMLTable<\/b>-Objekt und hängt es als Kind-Element an das HTMLDocument<\/b>-Element an. Einige Einstellungen bezüglich der Schriftart sorgen später für ein einheitliches Bild.<\/p>\n
Danach kommt auch schon die Datenbank mit ihren Tabellen tblAbteilungen <\/b>und tblMitarbeiter<\/b> ins Spiel. Genau genommen öffnet die Prozedur zunächst eine Datensatzgruppe auf Basis der Abfrage qryAbteilungenMitMitarbeitern<\/b> (s. Bild 5<\/a><\/span>). Diese liefert alle Datensätze der Tabelle tblAbteilungen<\/b>, denen mindestens ein Mitarbeiter angehört. Diese Abteilungen werden in einer Do While<\/b>-Schleife durchlaufen. Dabei erstellt die Prozedur MitarbeiterAnzeigen <\/b>zunächst innerhalb einer Funktion namens ZeileZelleTabelleAnlegen <\/b>einige Elemente im HTMLTable<\/b>-Objekt, und zwar zunächst ein HTMLRow<\/b>-Element, darin ein HTMLCell<\/b>-Element, darin ein HTMLTable<\/b>-Element und schließlich noch ein HTMLRow<\/b>-Element (s. Listing 3).<\/p>\n
Listing 3: Unabhängige Zeilen anlegen<\/p>\n
Public Function ZeileZelleTabelleAnlegen(objDocument As MSHTML.HTMLDocument, _\r\n        objTable As MSHTML.HTMLTable) As MSHTML.HTMLTableRow\r\n    Dim objRow As MSHTML.HTMLTableRow\r\n    Dim objCell As MSHTML.HTMLTableCell\r\n    Dim objInnerTable As MSHTML.HTMLTable\r\n    Dim objInnerRow As MSHTML.HTMLTableRow\r\n    Set objRow = objTable.insertRow\r\n    objRow.Style.verticalAlign = "top"\r\n    Set objCell = objRow.insertCell\r\n    Set objInnerTable = objDocument.createElement("Table")\r\n    objInnerTable.Style.borderCollapse = "collapse"\r\n    objCell.appendChild objInnerTable\r\n    Set objInnerRow = objInnerTable.insertRow\r\n    Set ZeileZelleTabelleAnlegen = objInnerRow\r\nEnd Function<\/pre>\n
\"pic005.png\"<\/p>\n
Bild 5: Datenherkunft für die äußere Schleife<\/span><\/b><\/p>\n
<\/p>\n
Wozu das Ganze – würde denn nicht eine einfache Zeile reichen Eigentlich ja, wenn wir alle Zellen-Elemente später genau untereinander anordnen wollten. Die Mitarbeiter-Elemente sollen jedoch etwas eingerückt sein, weshalb wir in einer in einer Zelle eingebetteten Tabelle eine weitere Zeile anlegen. Und da wir später das Gleiche für die Mitarbeiter-Zeilen erledigen, können wir darin nach Lust und Laune Tabellenzellen unterbringen, ohne dass deren Positionen vom Raster anderer Zeilen abhängen.<\/p>\n
Checkbox für Abteilung einfügen<\/b><\/p>\n
In diese neue Zeile, die mit objInnerRow <\/b>referenziert wird, fügt die Prozedur nun zwei Zellen ein: eine für die Checkbox und eine für die Bezeichnung der Abteilung. Die erste Zelle wird durch die Funktion CheckboxAbteilungErstellen <\/b>gefüllt (s. Listing 4<\/a><\/span>). Diese Prozedur erwartet das HTMLDocument<\/b>-Element und den Wert des Feldes AbteilungID <\/b>der Abteilung als Parameter. Damit ausgestattet legt sie zunächst ein neues Checkbox-Element an. Danach folgt direkt die Erstellung einer Instanz der Klasse clsCheckboxWrapper_Abteilung<\/b>, welche die Funktionen enthält, die beim Anklicken der Checkbox ausgelöst werden. Die Eigenschaft Checkbox <\/b>der Wrapper-Klasse wird mit einem Verweis auf das Checkbox-Steuerelement gefüllt. Außerdem erhält die Eigenschaft AbteilungID <\/b>den entsprechenden Wert der aktuell durchlaufenen Abteilung. Schließlich fügt die Prozedur der Eigenschaft Mitarbeiter <\/b>einen Verweis auf die Collection colCheckboxes_Mitarbeiter <\/b>hinzu. Dieser wird später benötigt, um beim Aktivieren oder Deaktivieren der kompletten Abteilung alle enthaltenen Mitarbeiter aus- oder abzuwählen.<\/p>\n
Listing 4: Hinzufügen einer Checkbox zum Aktivieren einer Abteilung<\/p>\n
Public Function CheckboxAbteilungErstellen(objDocument As MSHTML.HTMLDocument, _\r\n        lngAbteilungID As Long) As MSHTML.HTMLInputElement\r\n    Dim objCheckbox As MSHTML.HTMLInputElement\r\n    Set objCheckbox = objDocument.createElement("input")\r\n    objCheckbox.Type = "Checkbox"\r\n    Set objCheckboxWrapper_Abteilung = New clsCheckboxWrapper_Abteilung\r\n    With objCheckboxWrapper_Abteilung\r\n        Set .Checkbox = objCheckbox\r\n        .AbteilungID = lngAbteilungID\r\n        Set .Mitarbeiter = colCheckboxes_Mitarbeiter\r\n    End With\r\n    colCheckboxes_Abteilungen.Add objCheckboxWrapper_Abteilung, "a" & lngAbteilungID\r\n    Set CheckboxAbteilungErstellen = objCheckbox\r\nEnd Function<\/pre>\n
Schließlich wird die Wrapper-Klasse der Collection zum Aufbewahren der Abteilungs-Wrapper-Klassen hinzugefügt, damit diese auch nach dem Beenden dieser Prozedur noch existiert.<\/p>\n
Mitarbeiter-Checkboxen hinzufügen<\/b><\/p>\n
Zurück zur Prozedur MitarbeiterAnzeigen<\/b>. Diese legt nach der Checkbox für die Abteilungen auch noch eine weitere Zelle an, die den Namen der jeweiligen Abteilung aufnimmt. Danach folgen die Mitarbeiter: Ein weiteres Recordset namens rstMitarbeiter <\/b>wird mit allen Datensätzen der Abfrage qryMitarbeiterauswahl <\/b>gefüllt, deren AbteilungID <\/b>mit der aktuellen AbteilungID <\/b>der äußeren Do While<\/b>-Schleife übereinstimmt (s. Bild 7). Hier tritt erstmals die Tabelle tblMitarbeiterAusgewaehlt <\/b>in Aktion: Diese enthält zwei Felder, nämlich ein Primärschlüsselfeld namens MitarbeiterAusgewaehltID <\/b>und ein Feld zur Aufnahme der MitarbeiterID <\/b>aller aktuell ausgewählten Mitarbeiter. Wird ein Mitarbeiter im Formular per Checkbox ausgewählt, wird seine MitarbeiterID <\/b>zu einem neuen Datensatz der Tabelle tblMitarbeiterAusgewaehlt <\/b>hinzugefügt, wird er abgewählt, wird der Datensatz mit seiner MitarbeiterID <\/b>gelöscht. Somit kann die Auswahl erfolgen, ohne dass dazu ein zusätzliches Feld in der Tabelle tblMitarbeiter <\/b>angelegt werden muss.<\/p>\n
\"pic004.png\"<\/p>\n
Bild 6: Datenherkunft für die innere Schleife<\/span><\/b><\/p>\n
\"pic006.png\"<\/p>\n
Bild 7: Ausgewählte und nicht ausgewählte Mitarbeiter<\/span><\/b><\/p>\n
Die Abfrage ermittelt alle Datensätze der Tabelle tblMitarbeiter <\/b>und der Tabelle tblMitarbeiterAusgewaehlt<\/b>, wobei auch die Datensätze der Tabelle tblMitarbeiter <\/b>zum Abfrageergebnis gehören, deren MitarbeiterID <\/b>nicht in der Tabelle tblMitarbeiterAusgewaehlt<\/b> erscheint. Später können Sie den Wert des Feldes MitarbeiterAnzeigenID<\/b> dieser Abfrage auf Null <\/b>prüfen, um herauszufinden, ob dieser aktuell ausgewählt ist.<\/p>\n
In der Do While<\/b>-Schleife über alle Mitarbeiter der aktuellen Abteilung wird zunächst wieder die Funktion ZeileZelleTabelleAnlegen <\/b>aufgerufen, um ein Konstrukt aus den entsprechenden Elementen zu erzeugen – auf diese Weise können wir die Elemente der Mitarbeiter-Zeile unabhängig von den Elementen der Abteilungs-Zeile platzieren.<\/p>\n
In die Zeile, welche die Funktion zurückgeliefert hat und die nun mit objInnerCell <\/b>referenziert wird, schreibt die folgende Anweisung eine neue Zelle, die allein die Aufgabe hat, einen Einschub von 30 Pixeln zu gewährleisten.<\/p>\n
Die nächste Zelle in dieser Zeile soll die Checkbox für den aktuellen Mitarbeiter aufnehmen. Die Checkbox beziehen wir über die Funktion CheckboxMitarbeiterErstellen <\/b>(s. Listing 5<\/a><\/span>), die ähnlich aufgebaut ist wie die zuvor verwendete Funktion CheckboxAbteilungErstellen<\/b>. Die damit erstellte Checkbox wird allerdings im Anschluss noch aktiviert oder deaktiviert – je nachdem, ob der Mitarbeiter in der Tabelle tblMitarbeiterAusgewaehlt <\/b>enthalten ist oder nicht.<\/p>\n
Listing 5: Hinzufügen einer Checkbox zum Aktivieren eines Mitarbeiters<\/p>\n
Public Function CheckboxMitarbeiterErstellen(objDocument As MSHTML.HTMLDocument, _\r\n        lngMitarbeiterID As Long) As MSHTML.HTMLInputElement\r\n    Dim objCheckbox As MSHTML.HTMLInputElement\r\n    Set objCheckbox = objDocument.createElement("input")\r\n    objCheckbox.Type = "Checkbox"\r\n    Set objCheckboxWrapper_Mitarbeiter = New clsCheckboxWrapper_Mitarbeiter\r\n    Set objCheckboxWrapper_Mitarbeiter.Checkbox = objCheckbox\r\n    objCheckboxWrapper_Mitarbeiter.MitarbeiterID = lngMitarbeiterID\r\n    colCheckboxes_Mitarbeiter.Add objCheckboxWrapper_Mitarbeiter, "m" & lngMitarbeiterID\r\n    Set CheckboxMitarbeiterErstellen = objCheckbox\r\nEnd Function<\/pre>\n
Schließlich fügt die innere Do While<\/b>-Schleife noch eine Zelle zur Mitarbeiter-Zeile hinzu, die den Namen des Mitarbeiters aufnimmt.<\/p>\n
Auf diese Weise werden alle Datensätze des Abteilungen-Recordsets und des Mitarbeiter-Recordsets abgearbeitet.<\/p>\n
Ereignisse für Checkboxen programmieren<\/b><\/p>\n
Fehlt noch die interessanteste Aufgabe: Die per MSHTML erstellten Checkboxen sollen mit Funktionen versehen werden. Dazu haben wir pro Abteilungs-Checkbox eine Instanz der Klasse clsCheckboxWrapper_Abteilung <\/b>erstellt und dieser einen Verweis auf das Checkbox-Steuerelement zugewiesen. Dazu benötigt die Wrapper-Klasse eine Objektvariable – genauso wie zum Speichern der AbteilungID <\/b>des Mitarbeiters und des Collection<\/b>-Objekts, das die Verweise auf die Instanzen der Klasse clsCheckboxWrapper_Mitarbeiter<\/b> aufnimmt:<\/p>\n
Private WithEvents m_Checkbox As MSHTML.HTMLInputElement\r\nPrivate m_AbteilungID As Long\r\nPrivate m_Mitarbeiter As Collection<\/pre>\n
Die folgende Prozedur nimmt über die Eigenschaft Checkbox <\/b>einen Verweis auf das Checkbox-Steuerelement entgegen:<\/p>\n
Public Property Set Checkbox(objCheckbox As MSHTML.HTMLInputElement)\r\n    Set m_Checkbox = objCheckbox\r\n    m_Checkbox.OnClick = "[Event Procedure]"\r\nEnd Property<\/pre>\n
Außerdem stellt sie die Eigenschaft OnClick <\/b>auf den Wert [Event Procedure] <\/b>ein, damit die Klasse mit einer noch zu definierenden Prozedur auf dieses Ereignis reagieren kann. Die beiden folgenden Property Let<\/b>\/Get<\/b>-Prozeduren nehmen die AbteilungID<\/b> und die Mitarbeiter-Collection entgegen:<\/p>\n
Public Property Let AbteilungID(lngAbteilungID As Long)\r\n    m_AbteilungID = lngAbteilungID\r\nEnd Property\r\nPublic Property Set Mitarbeiter(colMitarbeiter As Collection)\r\n    Set m_Mitarbeiter = colMitarbeiter\r\nEnd Property<\/pre>\n
Fehlt noch die wichtigste Prozedur – die Ereignisprozedur m_Checkbox_Click<\/b>, die beim Anklicken der mit m_Checkbox <\/b>referenzierten Checkbox ausgelöst wird (s. Listing 6<\/a><\/span>). Die Prozedur durchläuft alle Datensätze der Tabelle tblMitarbeiter<\/b>, die zur angeklickten Abteilung gehören. Hat der Benutzer die Checkbox für die Abteilung aktiviert, werden alle Mitarbeiter dieser Abteilung zur Tabelle tblMitarbeiterAusgewaehlt <\/b>hinzugefügt und die entsprechenden Checkboxen aktiviert. Die Referenz auf die Checkboxen erhält die Prozedur dabei über die in m_Mitarbeiter <\/b>gespeicherte Collection. Sollte der Benutzer die Abteilung hingegen abgewählt haben, löscht die Prozedur alle entsprechenden Datensätze aus der Tabelle tblMitarbeiterAusgewaehlt<\/b> und deaktiviert die Checkboxen der Mitarbeiter der betroffenen Abteilung.<\/p>\n
Listing 6: Ereignisprozedur beim Betätigen der Abteilungen-Checkbox<\/p>\n
Private Function m_Checkbox_onclick() As Boolean\r\n    Dim bolChecked As Boolean\r\n    Dim db As DAO.Database\r\n    Dim rstMitarbeiter As DAO.Recordset\r\n    bolChecked = m_Checkbox.Checked\r\n    Set db = CurrentDb\r\n    Set rstMitarbeiter = db.OpenRecordset("SELECT * FROM tblMitarbeiter WHERE AbteilungID = " _\r\n        & m_AbteilungID, dbOpenDynaset)\r\n    If bolChecked Then\r\n        Do While Not rstMitarbeiter.EOF\r\n            On Error Resume Next\r\n            db.Execute "INSERT INTO tblMitarbeiterAnzeigen(MitarbeiterID) VALUES(" _\r\n                & rstMitarbeiter!MitarbeiterID & ")", dbFailOnError\r\n            On Error GoTo 0\r\n            m_Mitarbeiter.Item("m" & rstMitarbeiter!MitarbeiterID).Checked = True\r\n            rstMitarbeiter.MoveNext\r\n        Loop\r\n    Else\r\n        Do While Not rstMitarbeiter.EOF\r\n            db.Execute "DELETE FROM tblMitarbeiterAnzeigen WHERE MitarbeiterID = " _\r\n                & rstMitarbeiter!MitarbeiterID, dbFailOnError\r\n            m_Mitarbeiter.Item("m" & rstMitarbeiter!MitarbeiterID).Checked = False\r\n            rstMitarbeiter.MoveNext\r\n        Loop\r\n    End If\r\n    m_Checkbox_onclick = True\r\n    Set db = Nothing\r\nEnd Function<\/pre>\n
Einzelne Mitarbeiter aus- und abwählen <\/b><\/p>\n
Für die Checkboxen der einzelnen Mitarbeiter geschieht dies ähnlich. Dazu definiert auch die Wrapper-Klasse clsCheckboxWrapper_Mitarbeiter<\/b> zunächst zwei entsprechende Variablen:<\/p>\n
Private WithEvents m_Checkbox As MSHTML.HTMLInputElement\r\nPrivate m_MitarbeiterID As Long<\/pre>\n
Die Variablen werden mit diesen Property Set<\/b>\/Let<\/b>-Prozeduren gefüllt, wobei auch m_Checkbox <\/b>mit einem OnClick<\/b>-Ereignis versehen wird:<\/p>\n
Public Property Set Checkbox(objCheckbox As MSHTML.HTMLInputElement)\r\n    Set m_Checkbox = objCheckbox\r\n    m_Checkbox.OnClick = "[Event Procedure]"\r\nEnd Property\r\nPublic Property Let MitarbeiterID(lngMitarbeiterID As Long)\r\n    m_MitarbeiterID = lngMitarbeiterID\r\nEnd Property<\/pre>\n
Außerdem hält die Klasse zwei Methoden bereit, um den Checked<\/b>-Zustand von außen zu ermitteln und zu ändern:<\/p>\n
Public Property Let Checked(bolChecked As Boolean)\r\n    m_Checkbox.Checked = bolChecked\r\nEnd Property\r\nPublic Property Get Checked() As Boolean\r\n    Checked = m_Checkbox.Checked\r\nEnd Property<\/pre>\n
Schließlich aktiviert und deaktiviert das durch das Anklicken ausgelöste Ereignis m_Checkbox_onclick<\/b> die Mitarbeiter über die entsprechenden änderungen in der Tabelle tblMitarbeiterAusgewaehlt <\/b>(s. Listing 7<\/a><\/span>).<\/p>\n
Listing 7: Ereignisprozedur beim Betätigen der Mitarbeiter-Checkbox<\/p>\n
Private Function m_Checkbox_onclick() As Boolean\r\n    Dim bolChecked As Boolean\r\n    Dim db As DAO.Database\r\n    bolChecked = m_Checkbox.Checked\r\n    Set db = CurrentDb\r\n    If bolChecked Then\r\n        db.Execute "INSERT INTO tblMitarbeiterAnzeigen(MitarbeiterID) VALUES(" & m_MitarbeiterID _\r\n            & ")", dbFailOnError\r\n    Else\r\n        db.Execute "DELETE FROM tblMitarbeiterAnzeigen WHERE MitarbeiterID = " _\r\n            & m_MitarbeiterID, dbFailOnError\r\n    End If\r\n    m_Checkbox_onclick = True\r\n    Set db = Nothing\r\nEnd Function<\/pre>\n
Zusammenfassung und Ausblick<\/b><\/p>\n
Wer sich einmal mit der Erstellung von Formularen mit dem Webbrowser-Steuerelement und MSHTML beschäftigt hat, wird diese Kenntnisse schätzen, um Formulare zu erstellen, die sich mit Access-Bordmitteln nicht erstellen lassen.<\/p>\n
MSHTML bietet eine Unmenge an Ereignissen für die verschiedenen Elemente – experimentieren Sie einfach ein wenig damit herum!<\/p>\n
Downloads zu diesem Beitrag<\/h3>\n
Enthaltene Beispieldateien:<\/p>\n
FehlzeitenVerwalten.mdb<\/p>\n
Download<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"
Es gibt einige Darstellungen, die sich mit Access-Bordmitteln nicht oder nur mit sehr hohem Aufwand realisieren lassen. Dazu gehören beispielsweise alle Konstellationen aus 1:n-Beziehungen mit Unterformularen, bei denen man gern mehr als einen Datensatz im Hauptformular anzeigen würde. Zum Glück erlaubt Access einen Blick über den Tellerrand, und mit dem Webbrowser-Steuerelement und HTML erreichen Sie wohl alle denkbaren Darstellungen – in diesem Fall die Endlosanzeige von 1:n-Beziehungen.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"om_disable_all_campaigns":false,"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_uf_show_specific_survey":0,"_uf_disable_surveys":false,"footnotes":""},"categories":[662012,66042012,44000026],"tags":[],"class_list":["post-55000851","post","type-post","status-publish","format-standard","hentry","category-662012","category-66042012","category-Interaktiv"],"yoast_head":"\n1:n-Daten mit HTML - Access im Unternehmen<\/title>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/access-im-unternehmen.de\/1nDaten_mit_HTML\/\" \/>\n<meta property=\"og:locale\" content=\"de_DE\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"1:n-Daten mit HTML\" \/>\n<meta property=\"og:description\" content=\"Es gibt einige Darstellungen, die sich mit Access-Bordmitteln nicht oder nur mit sehr hohem Aufwand realisieren lassen. Dazu gehören beispielsweise alle Konstellationen aus 1:n-Beziehungen mit Unterformularen, bei denen man gern mehr als einen Datensatz im Hauptformular anzeigen würde. Zum Glück erlaubt Access einen Blick über den Tellerrand, und mit dem Webbrowser-Steuerelement und HTML erreichen Sie wohl alle denkbaren Darstellungen - in diesem Fall die Endlosanzeige von 1:n-Beziehungen.\" \/>\n<meta property=\"og:url\" content=\"https:\/\/access-im-unternehmen.de\/1nDaten_mit_HTML\/\" \/>\n<meta property=\"og:site_name\" content=\"Access im Unternehmen\" \/>\n<meta property=\"article:published_time\" content=\"2020-05-22T21:48:12+00:00\" \/>\n<meta property=\"og:image\" content=\"http:\/\/vg05.met.vgwort.de\/na\/019b20d3a04945a991a3c075b0dca83d\" \/>\n<meta name=\"author\" content=\"Andr\u00e9 Minhorst\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Verfasst von\" \/>\n\t<meta name=\"twitter:data1\" content=\"Andr\u00e9 Minhorst\" \/>\n\t<meta name=\"twitter:label2\" content=\"Gesch\u00e4tzte Lesezeit\" \/>\n\t<meta name=\"twitter:data2\" content=\"13\u00a0Minuten\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\\\/\\\/schema.org\",\"@graph\":[{\"@type\":\"Article\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/1nDaten_mit_HTML\\\/#article\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/1nDaten_mit_HTML\\\/\"},\"author\":{\"name\":\"Andr\u00e9 Minhorst\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/person\\\/13395c4bcd7d7963efe33be9c584d93f\"},\"headline\":\"1:n-Daten mit HTML\",\"datePublished\":\"2020-05-22T21:48:12+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/1nDaten_mit_HTML\\\/\"},\"wordCount\":1717,\"commentCount\":0,\"publisher\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/1nDaten_mit_HTML\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg05.met.vgwort.de\\\/na\\\/019b20d3a04945a991a3c075b0dca83d\",\"articleSection\":[\"2012\",\"4\\\/2012\",\"Interaktiv\"],\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"CommentAction\",\"name\":\"Comment\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/1nDaten_mit_HTML\\\/#respond\"]}]},{\"@type\":\"WebPage\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/1nDaten_mit_HTML\\\/\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/1nDaten_mit_HTML\\\/\",\"name\":\"1:n-Daten mit HTML - Access im Unternehmen\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#website\"},\"primaryImageOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/1nDaten_mit_HTML\\\/#primaryimage\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/1nDaten_mit_HTML\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg05.met.vgwort.de\\\/na\\\/019b20d3a04945a991a3c075b0dca83d\",\"datePublished\":\"2020-05-22T21:48:12+00:00\",\"breadcrumb\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/1nDaten_mit_HTML\\\/#breadcrumb\"},\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/1nDaten_mit_HTML\\\/\"]}]},{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/1nDaten_mit_HTML\\\/#primaryimage\",\"url\":\"http:\\\/\\\/vg05.met.vgwort.de\\\/na\\\/019b20d3a04945a991a3c075b0dca83d\",\"contentUrl\":\"http:\\\/\\\/vg05.met.vgwort.de\\\/na\\\/019b20d3a04945a991a3c075b0dca83d\"},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/1nDaten_mit_HTML\\\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"1:n-Daten mit HTML\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#website\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\",\"name\":\"Access im Unternehmen\",\"description\":\"Das Magazin f\u00fcr Datenbankentwickler auf Basis von Microsoft Access\",\"publisher\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\"},\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\\\/\\\/access-im-unternehmen.de\\\/?s={search_term_string}\"},\"query-input\":{\"@type\":\"PropertyValueSpecification\",\"valueRequired\":true,\"valueName\":\"search_term_string\"}}],\"inLanguage\":\"de\"},{\"@type\":\"Organization\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\",\"name\":\"Andr\u00e9 Minhorst Verlag\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\",\"logo\":{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/logo\\\/image\\\/\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/wp-content\\\/uploads\\\/2019\\\/09\\\/aiu_wp.png\",\"contentUrl\":\"https:\\\/\\\/access-im-unternehmen.de\\\/wp-content\\\/uploads\\\/2019\\\/09\\\/aiu_wp.png\",\"width\":370,\"height\":111,\"caption\":\"Andr\u00e9 Minhorst Verlag\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/logo\\\/image\\\/\"}},{\"@type\":\"Person\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/person\\\/13395c4bcd7d7963efe33be9c584d93f\",\"name\":\"Andr\u00e9 Minhorst\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"url\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"contentUrl\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g\",\"caption\":\"Andr\u00e9 Minhorst\"}}]}<\/script>\n<!-- \/ Yoast SEO Premium plugin. -->","yoast_head_json":{"title":"1:n-Daten mit HTML - Access im Unternehmen","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/access-im-unternehmen.de\/1nDaten_mit_HTML\/","og_locale":"de_DE","og_type":"article","og_title":"1:n-Daten mit HTML","og_description":"Es gibt einige Darstellungen, die sich mit Access-Bordmitteln nicht oder nur mit sehr hohem Aufwand realisieren lassen. Dazu gehören beispielsweise alle Konstellationen aus 1:n-Beziehungen mit Unterformularen, bei denen man gern mehr als einen Datensatz im Hauptformular anzeigen würde. Zum Glück erlaubt Access einen Blick über den Tellerrand, und mit dem Webbrowser-Steuerelement und HTML erreichen Sie wohl alle denkbaren Darstellungen - in diesem Fall die Endlosanzeige von 1:n-Beziehungen.","og_url":"https:\/\/access-im-unternehmen.de\/1nDaten_mit_HTML\/","og_site_name":"Access im Unternehmen","article_published_time":"2020-05-22T21:48:12+00:00","og_image":[{"url":"http:\/\/vg05.met.vgwort.de\/na\/019b20d3a04945a991a3c075b0dca83d","type":"","width":"","height":""}],"author":"Andr\u00e9 Minhorst","twitter_card":"summary_large_image","twitter_misc":{"Verfasst von":"Andr\u00e9 Minhorst","Gesch\u00e4tzte Lesezeit":"13\u00a0Minuten"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/access-im-unternehmen.de\/1nDaten_mit_HTML\/#article","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/1nDaten_mit_HTML\/"},"author":{"name":"Andr\u00e9 Minhorst","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/person\/13395c4bcd7d7963efe33be9c584d93f"},"headline":"1:n-Daten mit HTML","datePublished":"2020-05-22T21:48:12+00:00","mainEntityOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/1nDaten_mit_HTML\/"},"wordCount":1717,"commentCount":0,"publisher":{"@id":"https:\/\/access-im-unternehmen.de\/#organization"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/1nDaten_mit_HTML\/#primaryimage"},"thumbnailUrl":"http:\/\/vg05.met.vgwort.de\/na\/019b20d3a04945a991a3c075b0dca83d","articleSection":["2012","4\/2012","Interaktiv"],"inLanguage":"de","potentialAction":[{"@type":"CommentAction","name":"Comment","target":["https:\/\/access-im-unternehmen.de\/1nDaten_mit_HTML\/#respond"]}]},{"@type":"WebPage","@id":"https:\/\/access-im-unternehmen.de\/1nDaten_mit_HTML\/","url":"https:\/\/access-im-unternehmen.de\/1nDaten_mit_HTML\/","name":"1:n-Daten mit HTML - Access im Unternehmen","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/#website"},"primaryImageOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/1nDaten_mit_HTML\/#primaryimage"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/1nDaten_mit_HTML\/#primaryimage"},"thumbnailUrl":"http:\/\/vg05.met.vgwort.de\/na\/019b20d3a04945a991a3c075b0dca83d","datePublished":"2020-05-22T21:48:12+00:00","breadcrumb":{"@id":"https:\/\/access-im-unternehmen.de\/1nDaten_mit_HTML\/#breadcrumb"},"inLanguage":"de","potentialAction":[{"@type":"ReadAction","target":["https:\/\/access-im-unternehmen.de\/1nDaten_mit_HTML\/"]}]},{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/access-im-unternehmen.de\/1nDaten_mit_HTML\/#primaryimage","url":"http:\/\/vg05.met.vgwort.de\/na\/019b20d3a04945a991a3c075b0dca83d","contentUrl":"http:\/\/vg05.met.vgwort.de\/na\/019b20d3a04945a991a3c075b0dca83d"},{"@type":"BreadcrumbList","@id":"https:\/\/access-im-unternehmen.de\/1nDaten_mit_HTML\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/access-im-unternehmen.de\/"},{"@type":"ListItem","position":2,"name":"1:n-Daten mit HTML"}]},{"@type":"WebSite","@id":"https:\/\/access-im-unternehmen.de\/#website","url":"https:\/\/access-im-unternehmen.de\/","name":"Access im Unternehmen","description":"Das Magazin f\u00fcr Datenbankentwickler auf Basis von Microsoft Access","publisher":{"@id":"https:\/\/access-im-unternehmen.de\/#organization"},"potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/access-im-unternehmen.de\/?s={search_term_string}"},"query-input":{"@type":"PropertyValueSpecification","valueRequired":true,"valueName":"search_term_string"}}],"inLanguage":"de"},{"@type":"Organization","@id":"https:\/\/access-im-unternehmen.de\/#organization","name":"Andr\u00e9 Minhorst Verlag","url":"https:\/\/access-im-unternehmen.de\/","logo":{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/logo\/image\/","url":"https:\/\/access-im-unternehmen.de\/wp-content\/uploads\/2019\/09\/aiu_wp.png","contentUrl":"https:\/\/access-im-unternehmen.de\/wp-content\/uploads\/2019\/09\/aiu_wp.png","width":370,"height":111,"caption":"Andr\u00e9 Minhorst Verlag"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/logo\/image\/"}},{"@type":"Person","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/person\/13395c4bcd7d7963efe33be9c584d93f","name":"Andr\u00e9 Minhorst","image":{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","url":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","contentUrl":"https:\/\/secure.gravatar.com\/avatar\/1b9d010cf1716692cb9c34f21554e07d17d461acaea5b61b8cb21cbec678d48a?s=96&d=mm&r=g","caption":"Andr\u00e9 Minhorst"}}]}},"_links":{"self":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts\/55000851","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/comments?post=55000851"}],"version-history":[{"count":0,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts\/55000851\/revisions"}],"wp:attachment":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/media?parent=55000851"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/categories?post=55000851"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/tags?post=55000851"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}