<\/p>\n
Die Tabelle MSysResources ist relativ unbekannt. Kein Wunder, denn als Systemtabelle bleibt sie dem Benutzer in der Standardeinstellung verborgen, obwohl sie bereits seit Access 2010 in allen Datenbanken mit der Dateiendung .accdb sofort angelegt wird, wenn der Benutzer Objekte in der Datenbank anlegt. Dennoch ist sie sehr wichtig, denn sie speichert zum Beispiel die Bilddateien, die Sie Formularen in Bildsteuerelementen oder Schaltflächen zugewiesen haben. Genau um diese wollen wir uns in diesem Beitrag auch kümmern und eine Möglichkeit vorstellen, sich schnell einen Überblick über die enthaltenen Bilder zu verschaffen und schnell Bilder zu dieser Tabelle hinzuzufügen. Diese stehen dann zum Einfügen in Bildsteuerelemente und Schaltflächen bereit.<\/b><\/p>\n
Systemtabellen einblenden<\/b><\/p>\n
Wenn Sie Access öffnen, sehen Sie im Navigationsbereich erst einmal nur die Tabellen, die Sie selbst angelegt haben. Systemtabellen wie die Tabelle MSysObjects <\/b>können Sie allerdings leicht sichtbar machen. Dazu klicken Sie mit der rechten Maustaste auf die Titelleiste des Navigationsbereichs und wählen den Eintrag Navigationsoptionen… <\/b>aus.<\/p>\n
Im nun erscheinenden Dialog Navigationsoptionen <\/b>finden Sie im Bereich Anzeigeoptionen <\/b>die beiden Optionen Ausgeblendete Objekte anzeigen <\/b>und Systemobjekte <\/b>anzeigen (siehe Bild 1).<\/p>\n
![\"Einblenden](\"..\/fileadmin\/_temp_\/2020_03\/pic_1233_001.png\")
<\/p>\n
Bild 1: Einblenden von Systemtabellen<\/span><\/b><\/p>\n Diese aktivieren Sie beide, denn einige Systemtabellen sind gleichzeitig auch noch als ausgeblendete Objekte gekennzeichnet. Direkt nach dem Schließen erscheinen die Systemtabellen dann in hellgrauer Schrift im Navigationsbereich. Allerdings finden wir hier noch nicht die Tabelle MSysResources <\/b>vor (siehe Bild 2).<\/p>\n Bild 2: Systemtabellen einer neuen, leeren Access-Datenbank<\/span><\/b><\/p>\n MSysResources erzeugen<\/b><\/p>\n Erst wenn Sie der Datenbank eine Tabelle hinzufügen – dazu reicht das Anlegen eines neuen Formulars im Entwurf -, und dann die F5<\/b>-Schaltfläche zum Aktualisieren des Navigationsbereichs betätigen, zeigt dieser eine weitere Tabelle an, nämlich die bereits erwähnte Tabelle MSysObjects<\/b>. Wenn Sie gleich ein Formular anlegen, erscheinen sogar gleich zwei neue Tabellen in der Liste – MSysResources <\/b>und MSysNameMap <\/b>(siehe Bild 3).<\/p>\n Bild 3: Systemtabellen nach dem Anlegen eines Formulars<\/span><\/b><\/p>\n MSysResources im Detail<\/b><\/p>\n Uns interessiert aber nur die Tabelle MSysResources<\/b>. Diese sieht im Entwurf wie in Bild 4 aus. Das Anlage-Feld Data <\/b>nimmt die Bild-Dateien und andere Inhalte auf. Extension <\/b>gibt die Dateinamenerweiterung an. ID <\/b>ist der Primärschlüsselindex. Name <\/b>enthält den Namen der Datei ohne Dateiendung und Type <\/b>den Typ, im Falle von Bilddateien immer img<\/b>. Interessanterweise ist keines der Textfelder mit einem eindeutigen Index versehen, und es gibt auch keinen zusammengesetzten Index über die beiden Felder Name <\/b>und Extension<\/b>. Das bedeutet, dass Sie darauf achten müssen, nicht mehrere Bilddateien mit gleichem Namen zu speichern. Sonst kann es sein, dass Sie zwar die zuletzt angelegte Bilddatei in einem Steuer-element anzeigen wollen, Access Ihnen aber eine zuvor angelegte Bilddatei präsentiert.<\/p>\n Bild 4: Entwurf der Tabelle MSysResources<\/span><\/b><\/p>\n Wechseln wir in die Datenblattansicht dieser Tabelle, finden wir dort bereits einen Datensatz vor (siehe Bild 5).<\/p>\n Bild 5: Die Tabelle MSysResources in der Datenblattansicht<\/span><\/b><\/p>\n Dabei handelt es sich um eine Theme-Datei, in der Informationen zur Formatierung von Formularen und Steuerelementen befinden.<\/p>\n Bild hinzufügen per Ribbon<\/b><\/p>\n Es gibt verschiedene Möglichkeiten, Bilder in dieser Tabelle zu speichern. Der Weg über die Benutzeroberfläche gelingt wie folgt:<\/p>\n Bild 6: Hinzufügen eines Bildes<\/span><\/b><\/p>\n Bild 7: Auswählen der gewünschten Bilddatei<\/span><\/b><\/p>\n Bild 8: Das gewählte Bild erscheint nun in der Bildergalerie.<\/span><\/b><\/p>\n Wenn Sie nun die Tabelle MSysResources <\/b>erneut öffnen beziehungsweise den Inhalt der noch offenen Tabelle mit F5<\/b> aktualisieren, finden Sie einen neuen Eintrag vor (siehe Bild 9).<\/p>\n Bild 9: Das neue Bild in der Tabelle MSysResources<\/span><\/b><\/p>\n Bilder per MSysResources hinzufügen<\/b><\/p>\n Schauen wir uns den zweiten Weg an, Bilder zur Tabelle MSysResources <\/b>hinzuzufügen. Dazu legen Sie direkt in der Tabelle einen neuen Datensatz an, indem Sie das Feld Extension <\/b>mit dem Wert png<\/b>, Name <\/b>mit baseball <\/b>und Type <\/b>mit img <\/b>füllen. Dann klicken Sie doppelt auf das Feld mit dem Büroklammer-Symbol und finden den Dialog aus Bild 10 vor.<\/p>\n Bild 10: Hinzufügen einer Bilddatei über den Anlagen-Dialog<\/span><\/b><\/p>\n Hier klicken Sie auf die Schaltfläche Hinzufügen… <\/b>und wählen im nun erscheinenden Dialog die dazu passende Bilddatei aus. Der Name der Bilddatei taucht dann in der Liste der Anlagen im Dialog Anlegen<\/b> auf (siehe Bild 11). Nach dem Schließen des Dialogs erscheint im Feld mit dem Büroklammer-Symbol die Büroklammer mit dem Wert 1 <\/b>in Klammern für die Anzahl der enthaltenen Anlagen.<\/p>\n Bild 11: Die hinzugefügte Bilddatei im Anlagen-Dialog<\/span><\/b><\/p>\n Machen wir die Probe, ob wir das neue Bild genauso wie das über die Bild hinzufügen<\/b>-Funktion des Formularentwurfs hinzugefügt haben und öffnen die Bildergalerie unter dem Befehl Entwurf|Steuerelemente|Bild einfügen<\/b>. Überraschend erscheint dort nach wie vor nur unser zuerst eingefügtes Bild!<\/p>\n <\/p>\n Wenn wir allerdings die Datenbank schließen und wieder öffnen, finden wir in der Bildergalerie die beiden hinzugefügten Bilder vor (siehe Bild 12).<\/p>\n Bild 12: Das neue Bild erscheint nach dem erneuten Öffnen der Anwendung auch in der Bildergalerie.<\/span><\/b><\/p>\n Wir können die Bilddateien also auch direkt zur Tabelle MSysResources <\/b>hinzufügen. Allein die Vorgehensweise ist etwas umständlich – zumindest, wenn Sie mehr als ein Bild auf einmal hinzufügen wollen.<\/p>\n Und auch das manuelle Eintragen in die Felder Name<\/b>, Extension <\/b>und Type <\/b>ist aufwendig. Deshalb bauen wir nun eine Prozedur, mit der Sie auch mehr als ein Bild gleichzeitig auswählen und zur Tabelle hinzufügen können – wobei die Felder automatisch auf Basis der Informationen aus dem Dateinamen gefüllt werden.<\/p>\n Funktion zum Hinzufügen von Bildern zur Tabelle MSysResources<\/b><\/p>\n Die Funktion aus Listing 1 erlaubt das Hinzufügen einer Bilddatei zu einem neuen Datensatz der Tabelle MSysResources<\/b>.<\/p>\n Listing 1: Funktion zum Hinzufügen von Bildern zu Resourcen<\/span><\/b><\/p>\n Die Funktion erwartet zwei Parameter:<\/p>\n Die Funktion deklariert gleich zwei Recordset<\/b>– beziehungsweise Recordset2<\/b>-Objekte:<\/p>\n Außerdem benötigen wir ein Field2<\/b>-Objekt:<\/p>\n Das Recordset2<\/b>– und das Field2<\/b>-Objekt sind neuere Versionen der alten Recordset<\/b>– und Field<\/b>-Objekte, die den Umgang mit Anlagefeldern erlauben.<\/p>\n Die Prozedur ermittelt aus dem übermittelten Pfad den Dateinamen, den Namen ohne Endung und die Erweiterung des Dateinamens:<\/p>\n Dann öffnet sie ein Recordset auf Basis der Tabelle MSysResources<\/b>, wobei hier direkt nach Einträgen gefiltert wird, deren Felder Name <\/b>und Extension<\/b> den Werten aus strName <\/b>und strExtension <\/b>entsprechen. Das heißt, dass wir entweder eine leere Datensatzgruppe erhalten (dann können wir die Datei direkt in einem neuen Datensatz anlegen) oder wir erhalten eine Datensatzgruppe mit einem Datensatz, in dem sich bereits ein Bild mit dem Namen des hinzuzufügenden Bildes befindet:<\/p>\n Der erste Teil der folgenden If…Then<\/b>-Bedingung geht davon aus, dass es noch keine Anlage gleichen Namens in MSysResources <\/b>gibt. Deshalb legen wir dort zunächst ein neues Recordset in der Datensatzgruppe an und stellen die Felder Name<\/b>, Type <\/b>und Extension <\/b>auf die ermittelten Werte ein:<\/p>\n Dann folgt eine Besonderheit, weshalb wir das neue Recordset2<\/b>-Objekt brauchen. Dieses kann man nämlich mit dem Wert des Anlagefeldes Data <\/b>der Tabelle MSysResources <\/b>füllen, das eigentlich eine eigene Tabelle enthält.<\/p>\n Zu beachten ist, dass Sie nicht das Feld Data <\/b>referenzieren müssen, sondern den Inhalt mit der Eigenschaft Value<\/b>:<\/p>\n Hier, also in der im Anlagefeld enthaltenen Tabelle, fügen wir dann einen neuen Datensatz ein:<\/p>\n Das Feld FileData <\/b>dieser Untertabelle referenzieren wir dann einer Variablen auf Basis der neuen Version des Field<\/b>-Objekts, also Field2<\/b>:<\/p>\n Dieses bietet gegenüber dem herkömmlichen Field<\/b>-Objekt die Methode LoadFromFile<\/b>, mit der Sie eine Datei zum Anlagefeld hinzufügen können:<\/p>\n Danach speichern wir erst das im Feld Data<\/b> steckende Recordset in die Tabelle und dann das Recordset der Tabelle MSysResources<\/b>:<\/p>\n Im Else<\/b>-Teil gehen wir davon aus, dass es bereits einen Eintrag mit einer Datei gleichen Namens gibt. Hier fragen wir per MsgBox<\/b>-Anweisung, ob der Benutzer die vorhandene Datei überschreiben möchte:<\/p>\n Falls ja, legen wir keinen neuen Eintrag in MSysResources <\/b>an, sondern starten die Bearbeitung des vorhandenen Recordsets mit der Edit<\/b>-Methode:<\/p>\n Auch hier greifen wir per Recordset auf die im Feld Data <\/b>enthaltene Tabelle zu. Hier löschen wir den aktuellen Datensatz (immer ausgehend davon, dass in der Tabelle MSysResources <\/b>immer nur ein Bild je Anlagefeld gespeichert wird):<\/p>\n Dann fügen wir das neue Bild hinzu, speichern das Anlagefeld-Recordset und dann auch das Recordset auf Basis der Tabelle MSysResources<\/b>:<\/p>\n Diese Funktion rufen Sie beispielsweise wie folgt auf, wenn das Bild pic001.png <\/b>aus dem Verzeichnis der aktuellen Datenbank hinzugefügt werden soll:<\/p>\n Dies fügt das Bild direkt in einen neuen Datensatz der Tabelle MSysResources <\/b>ein, wenn noch kein Datensatz mit diesem Bild vorhanden ist. Anderenfalls kann der Benutzer es nach dem Anklicken der Schaltfläche OK <\/b>im MsgBox<\/b>-Fenster aus Bild 13 überschreiben.<\/p>\n Bild 13: Rückfrage vor dem Überschreiben eines bereits vorhandenen Bildes<\/span><\/b><\/p>\n Mehrere Bilder auswählen und hinzufügen<\/b><\/p>\n Wenn Sie die Bilder bequem per Dateiauswahl-Dialog hinzufügen wollen, benötigen Sie eine zusätzliche Prozedur für den Aufruf.<\/p>\n Diese sieht wie folgt aus und deklariert zunächst unter anderem ein String<\/b>-Array namens arrPfade <\/b>als Variable:<\/p>\n Dann ruft sie die Funktion OpenFileNameMultiple <\/b>auf, der sie das Verzeichnis der aktuellen Datenbank als Startverzeichnis, einen Titeltext und einen Filterausdruck für die Dateiendungen als Parameter übergibt:<\/p>\n Dies zeigt einen Dialog wie in Bild 14 <\/b>an, mit dem Sie keine, eine oder mehrere Dateien auswählen können.<\/p>\n Bild 14: Auswahl einer Bilddatei<\/span><\/b><\/p>\n Bei Schließen des Dialogs mit der Schaltfläche Öffnen <\/b>wird der Inhalt des Textfeldes Dateinamen <\/b>als Funktionswert zurückgegeben – allerdings gemeinsam mit den jeweiligen Verzeichnisangaben. Die einzelnen Einträge sind dann getrennt durch das Tabulatorzeichen.<\/p>\n Das macht sich die folgende Zeile zunutze, welche die durch das Tabulator-Zeichen getrennten Pfade mit der Split<\/b>-Funktion in ein Array einträgt. Dieses durchläuft die Prozedur dann in einer For…Next<\/b>-Schleife über alle Elemente und ruft dabei jeweils die Funktion BildZuMSysResourcesHinzufuegen <\/b>auf:<\/p>\n Grenzen der Funktion<\/b><\/p>\n Als wir versucht haben, sehr viele Bilddateien einzulesen, sind wie an eine Grenze der Funktion zum Einlesen des Dateiauswahl-Dialogs gestoßen: dieser liefert nämlich nur eine Zeichenkette mit einer bestimmten maximalen Länge zurück, in diesem Fall ca. 4.096 Zeichen. Je nach Länge der einzelnen Pfade ist die Anzahl der auswählbaren Dateien begrenzt.<\/p>\n Bilder aus MSysResources nutzen<\/b><\/p>\n Die so eingelesenen Bilder können Sie an verschiedenen Stellen nutzen. Die erste kennen Sie ja bereits – dabei handelt es sich um die Ribbon-Schaltfläche Entwurf|Steuerelemente|Bild einfügen <\/b>des Formularentwurfs. Hier können Sie eine sehr große Menge Bilder zur Auswahl anbieten. Wir haben nicht ermittelt, wo hier die Grenze liegt.<\/p>\n Die zweite Möglichkeit ist die Auswahl eines der Bilder über die Eigenschaft Bild <\/b>für Schaltflächen. Diese Eigenschaft finden Sie in Bild 15.<\/p>\n![\"Systemtabellen](\"..\/fileadmin\/_temp_\/2020_03\/pic_1233_002.png\")
<\/p>\n![\"Systemtabellen](\"..\/fileadmin\/_temp_\/2020_03\/pic_1233_003.png\")
<\/p>\n![\"Entwurf](\"..\/fileadmin\/_temp_\/2020_03\/pic_1233_004.png\")
<\/p>\n![\"Die](\"..\/fileadmin\/_temp_\/2020_03\/pic_1233_005.png\")
<\/p>\n\n
![\"Hinzufügen](\"..\/fileadmin\/_temp_\/2020_03\/pic_1233_006.png\")
<\/p>\n![\"Auswählen](\"..\/fileadmin\/_temp_\/2020_03\/pic_1233_007.png\")
<\/p>\n![\"Das](\"..\/fileadmin\/_temp_\/2020_03\/pic_1233_008.png\")
<\/p>\n![\"Das](\"..\/fileadmin\/_temp_\/2020_03\/pic_1233_009.png\")
<\/p>\n![\"Hinzufügen](\"..\/fileadmin\/_temp_\/2020_03\/pic_1233_010.png\")
<\/p>\n![\"Die](\"..\/fileadmin\/_temp_\/2020_03\/pic_1233_011.png\")
<\/p>\n![\"Das](\"..\/fileadmin\/_temp_\/2020_03\/pic_1233_012.png\")
<\/p>\nPublic Function <\/span>BildZuMSysResourcesHinzufuegen(db As <\/span>DAO.Database, strPfad As String<\/span>) As Boolean<\/span>\r\n Dim <\/span>strName As String<\/span>\r\n Dim <\/span>strExtension As String<\/span>\r\n Dim <\/span>strType As String<\/span>\r\n Dim <\/span>strDatei As String<\/span>\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Dim <\/span>rst2 As <\/span>DAO.Recordset2\r\n Dim <\/span>bolHinzufuegen As Boolean<\/span>\r\n Dim <\/span>fld2 As <\/span>DAO.Field2\r\n strType = \"img\"\r\n strDatei = Mid<\/span>(strPfad, InStrRev<\/span>(strPfad, \"\") + 1)\r\n strName = Left<\/span>(strDatei, InStrRev<\/span>(strDatei, \".\") - 1)\r\n strExtension = Mid<\/span>(strDatei, InStrRev<\/span>(strDatei, \".\") + 1)\r\n BildZuMSysResourcesHinzufuegen = True<\/span>\r\n Set<\/span> rst = db.OpenRecordset(\"SELECT * FROM MSysResources WHERE Name = '\" & strName & \"' AND Extension = '\" _\r\n & strExtension & \"'\", dbOpenDynaset)\r\n If <\/span>rst.EOF Then<\/span>\r\n rst.AddNew<\/span>\r\n rst!Name = strName\r\n rst!Type = strType\r\n rst!Extension = strExtension\r\n Set<\/span> rst2 = rst.Fields(\"Data\").Value\r\n rst2.AddNew<\/span>\r\n Set<\/span> fld2 = rst2.Fields(\"FileData\")\r\n fld2.LoadFromFile strPfad\r\n rst2.Update\r\n rst.Update\r\n Else<\/span>\r\n If MsgBox<\/span>(\"Gleichnamiges Bild ist bereits vorhanden. Überschreiben\", vbOKCancel + vbExclamation, _\r\n \"Bild vorhanden\") = vbOK Then\r\n rst.Edit\r\n Set<\/span> rst2 = rst.Fields(\"Data\").Value\r\n rst2.Delete\r\n rst2.AddNew<\/span>\r\n Set<\/span> fld2 = rst2.Fields(\"FileData\")\r\n fld2.LoadFromFile strPfad\r\n rst2.Update\r\n rst.Update\r\n Else<\/span>\r\n BildZuMSysResourcesHinzufuegen = False<\/span>\r\n End If<\/span>\r\n End If<\/span>\r\nEnd Function<\/span><\/pre>\n\n
Dim <\/span>rst As <\/span>DAO.Recordset\r\n Dim <\/span>rst2 As <\/span>DAO.Recordset2<\/pre>\nDim <\/span>fld2 As <\/span>DAO.Field2<\/pre>\nstrDatei = Mid<\/span>(strPfad, InStrRev<\/span>(strPfad, \"\") + 1)\r\nstrName = Left<\/span>(strDatei, InStrRev<\/span>(strDatei, \".\") - 1)\r\nstrExtension = Mid<\/span>(strDatei, InStrRev<\/span>(strDatei, \".\") + 1)<\/pre>\nSet<\/span> rst = db.OpenRecordset(\"SELECT * FROM MSysResources WHERE Name = '\" & strName & \"' AND Extension = '\" & strExtension & \"'\", dbOpenDynaset)<\/pre>\n If <\/span>rst.EOF Then<\/span>\r\n rst.AddNew<\/span>\r\n rst!Name = strName\r\n rst!Type = strType\r\n rst!Extension = strExtension<\/pre>\n Set<\/span> rst2 = rst.Fields(\"Data\").Value<\/pre>\n rst2.AddNew<\/span><\/pre>\n Set<\/span> fld2 = rst2.Fields(\"FileData\")<\/pre>\n fld2.LoadFromFile strPfad<\/pre>\n
rst2.Update\r\n rst.Update<\/pre>\n
Else<\/span>\r\n If <\/span>MsgBox<\/span>(\"Gleichnamiges Bild ist bereits vorhanden. Überschreiben\", vbOKCancel + vbExclamation, \"Bild vorhanden\") = vbOK Then<\/span><\/pre>\n rst.Edit<\/pre>\n
Set<\/span> rst2 = rst.Fields(\"Data\").Value\r\n rst2.Delete<\/pre>\n rst2.AddNew<\/span>\r\n Set<\/span> fld2 = rst2.Fields(\"FileData\")\r\n fld2.LoadFromFile strPfad\r\n rst2!FileName = strDatei\r\n rst2.Update\r\n rst.Update\r\n End If<\/span>\r\n End If<\/span>\r\nEnd Function<\/span><\/pre>\nBildZuMSysResourcesHinzufuegen CurrentDb, CurrentProject.Path & \"pic001.png\"<\/pre>\n
![\"Rückfrage](\"..\/fileadmin\/_temp_\/2020_03\/pic_1233_013.png\")
<\/p>\nPublic Sub <\/span>BilderZuMSysResourcesHinzufuegen()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>strPfade As String<\/span>\r\n Dim <\/span>arrPfade() As String<\/span>\r\n Dim <\/span>i As Integer<\/span>\r\n Set<\/span> db = CurrentDb<\/pre>\n strPfade = OpenFileNameMultiple(CurrentProject.Path, \"Bilddateien auswählen\", \"Bilddateien (*.png)\")<\/pre>\n
![\"Auswahl](\"..\/fileadmin\/_temp_\/2020_03\/pic_1233_014.png\")
<\/p>\n arrPfade() = Split<\/span>(strPfade, vbTab)\r\n For i = LBound<\/span>(arrPfade) To UBound<\/span>(arrPfade)\r\n BildZuMSysResourcesHinzufuegen db, arrPfade(i)\r\n Next<\/span> i\r\nEnd Sub<\/span><\/pre>\n![\"Auswählen](\"..\/fileadmin\/_temp_\/2020_03\/pic_1233_015.png\")
<\/p>\n