Mit den neueren Versionen von Access ab der Version 2010 kann man Icons, die an verschiedenen Stellen der Benutzeroberfläche wie in Bildsteuerelementen oder Schaltflächen angezeigt werden sollen, relativ einfach verwalten. Sie landen nach dem Einfügen in einer Systemtabelle namens MSysResources, die ein Anlagefeld zum Speichern der Bilddateien und weitere Felder für die Metadaten wie Bildname oder Dateiendung enthält. Allerdings ist die Verwaltung nicht perfekt gelöst. Daher stellen wir in diesem Beitrag ein Formular vor, mit dem sich die Bilder wesentlich besser hinzufügen lassen. Außerdem enthält das Formular eine Suchfunktion, mit der sich die Bilder nach dem Namen filtern lassen, sowie eine Übersicht der Bilder, mit der sich die jeweiligen Bilddateien anschauen lassen. Schließlich können wir auch noch den Bildnamen herausfinden, um das gewünschte Icon schnell einer Schaltfläche oder einem Bildsteuerelement zuweisen zu können.<\/b><\/p>\n
Nachteile der eingebauten Verwaltung von Icons<\/h2>\n
Die eingebauten Funktionen zum Hinzufügen von Icons zu einer Access-Datenbank sind bereits recht hilfreich, wenn man dies mit früheren Versionen vergleicht, wo man Bilder bestenfalls im OLE-Format nutzen konnte.<\/p>\n
Wenn wir ein Formular in der Entwurfsansicht geöffnet haben, können wir im Ribbon auf den Befehl Formularentwurf|Steuerelemente|Bild einfügen <\/b>einen Dateidialog öffnen, mit dem wir das einzufügende Bild auswählen (siehe Bild 1).<\/p>\n
![\"Funktion](\"..\/fileadmin\/_temp_\/2025_05\/pic_1564_002.png\")
<\/p>\n
Bild 1: Funktion zum Hinzufügen von Bilddateien<\/span><\/b><\/p>\n Unabhängig davon, ob wir danach in das Formular klicken und ein Bildsteuerelement gefüllt mit diesem Bild anlegen, wird das Bild in der Tabelle MSysResources<\/b> gespeichert und steht nachfolgend in Steuerelementen wie der Schaltfläche oder dem Bildsteuerelement zur Auswahl bereit (siehe Bild 2).<\/p>\n Bild 2: Das hinzugefügte Bild <\/span><\/b><\/p>\n Anschließend können wir uns einen Überblick über die enthaltenen Bilder verschaffen, indem wir erneut auf Bild einfügen <\/b>klicken (siehe Bild 3).<\/p>\n Bild 3: Auswahl der verfügbaren Bilder der Tabelle MSysResources<\/span><\/b><\/p>\n Was hier fehlt, sind folgende Funktionen:<\/p>\n All diese Funktionen rüsten wir mit unserem Formular nach, dass sich leicht in eigene Anwendungen einbauen lässt.<\/p>\n Das Formular dieser Lösung heißt frmIconsVerwalten <\/b>und sieht wie in Bild 4 aus.<\/p>\n Bild 4: Formular zum Verwalten von Icons<\/span><\/b><\/p>\n Es enthält 45 Schaltflächen in drei Reihen, die zur Anzeige der ersten verfügbaren Bilder dienen.<\/p>\n Wenn sich mehr als 45 Bilder in der Tabelle MSysResources <\/b>befinden, können wir mit den beiden Nach oben<\/b>– und Nach unten<\/b>-Schaltflächen reihenweise vor- und zurücknavigieren.<\/p>\n Oben sehen wir ein Textfeld namens Filter<\/b>. Hier können wir einen Filterausdruck eingeben, mit dem wir die Bilder in der Tabelle MSysResources <\/b>nach dem Namen filtern können. Die Anzeige wird nach der Eingabe eines jeden Zeichens aktualisiert und sucht stets an beliebiger Stelle im Dateinamen der Bilder nach dem Filterbegriff.<\/p>\n Rechts daneben befindet sich eine Schaltfläche, mit der wir das aktuell markierte Bild aus der Tabelle MSysResources <\/b>löschen können.<\/p>\n Die Schaltfläche Hinzufügen <\/b>öffnet einen Dateiauswahl-Dialog, mit dem wir weitere Bilder zur Tabelle MSysResources <\/b>hinzufügen können.<\/p>\n Unter der Anzeige der Bilder sehen wir die Anzahl der noch nachfolgend vorhandenen Bilder. Diese Anzahl ändert sich, wenn wir mit der Nach unten<\/b>-Schaltfläche zu weiteren Zeilen navigieren.<\/p>\n Schließlich können wir ein Bild anklicken und erhalten im Textfeld Gewähltes Bild <\/b>den Namen des Bildes, das wir mit einem Klick auf die Schaltfläche rechts davon in die Zwischenablage kopieren und beispielsweise für die Eigenschaft Bild <\/b>einer Schaltfläche einfügen können.<\/p>\n Das Formular enthält im Wesentlichen herkömmliche Steuerelemente (siehe Bild 5). Die 45 Schaltflächen, die mit cmd001 <\/b>bis cmd045 <\/b>benannt sind, haben wir mit der Funktion aus dem Beitrag Schaltflächen-Matrix per VBA erzeugen <\/b>(www.access-im-unternehmen.de\/1562<\/b>) erstellt.<\/p>\n Bild 5: Das Formular frmIconsVerwalten in der Entwurfsansicht<\/span><\/b><\/p>\n Die Prozedur LoadImages <\/b>lädt die Bilder aus der Tabelle MSysResources <\/b>als Icons in die 45 Schaltflächen (erster Teil in Listing 1). Sie nimmt optional mit dem Parameter strFilter<\/b> ein Filterkriterium entgegen und stellt einen zweiten Parameter namens bolMove <\/b>zur Verfügung. Dieser gibt an, ob die angezeigten Bilder bereits nach unten gescrollt wurden. Die Variable strResourcetable <\/b>speichert den Namen der Tabelle, aus der die Bilder eingelesen werden, in diesem Fall MSysResources<\/b>.<\/p>\n Listing 1: Die Prozedur zum Laden von Bildern in die Schaltflächen (Teil 1)<\/span><\/b><\/p>\n Die Prozedur referenziert das aktuelle Database<\/b>-Objekt mit der Variablen db<\/b> und deaktiviert das Painting während des Vorgangs, damit das Formular nicht flackert, wenn die Bilder zugewiesen werden.<\/p>\n Die erste If…Then<\/b>-Bedingung prüft, ob der Parameter strFilter <\/b>einen Wert enthält. Ist das nicht der Fall, stellt sie eine SQL-Abfrage zusammen, die alle Datensätze der Tabelle MSysResources <\/b>enthält, deren Feld Extension <\/b>die Dateiendung png <\/b>aufweist. Die Daten werden aufsteigend nach dem Inhalt des Feldes Name <\/b>sortiert.<\/p>\n Ist strFilter <\/b>gefüllt, wird im Else<\/b>-Zweig eine zusätzliche Bedingung in strSQL <\/b>eingebaut, der das Feld Name <\/b>nach dem enthaltenen Wert filtert.<\/p>\n Dann erstellt die Prozedur ein Recordset auf Basis von strSQL <\/b>und prüft, ob das Recordset leer ist.<\/p>\n In diesem Fall ruft sie die Prozedur SchaltflaechenLeeren <\/b>auf, die in einer Schleife über die Werte von 1 <\/b>bis 45 <\/b>sowohl die Picture<\/b>– als auch die ControlTipText<\/b>-Eigenschaften der entsprechenden Schaltflächen leert:<\/p>\n Danach aktiviert die Prozedur das Painting wieder, deaktiviert die Schaltfläche cmdBildLoeschen<\/b>, da nun kein zu löschendes Bild angezeigt wird, und beendet die Prozedur mit Exit Sub<\/b>.<\/p>\n Wenn diese Bedingung jedoch erfüllt ist, trägt die Prozedur den Namen des ersten Bildes in das Textfeld in die Variable strFirstPicture <\/b>ein.<\/p>\n Im nun folgenden Teil prüft eine verschachtelte If…Then<\/b>-Bedingung, ob die Variable bolMove <\/b>den Wert True <\/b>enthält und die Variable strFilter <\/b>nicht leer ist. In diesem Fall stellt sie die Variable lngStart <\/b>auf den Wert 0 <\/b>ein (siehe Listing 2). lngStart <\/b>wird, damit wir auch beim nächsten Laden der Bilder auf ihren Wert zugreifen können, wie folgt ganz oben im Modul deklariert:<\/p>\n Listing 2: Die Prozedur zum Laden von Bildern in die Schaltflächen (Teil 2)<\/span><\/b><\/p>\n lngStart <\/b>könnte anderenfalls in einem zuvor durchgeführten Ladevorgang der Bilder auf einen anderen Wert als 0 <\/b>eingestellt worden sein, weil der Benutzer bereits gescrollt hat. In diesem Fall können wir das aktuelle Recordset nur als Grundlage für ein neues Recordset verwenden. lngStart<\/b> gibt prinzipiell die Zeile an, deren Bilder gerade in der obersten Zeile der Schaltflächen angezeigt werden sollen. Hat der Benutzer zuvor einmal auf die Nach unten<\/b>-Schaltfläche geklickt, hat lngStart <\/b>beispielsweise nicht mehr den Wert 0<\/b>, sondern 1<\/b>. Das heißt, wir können nicht die Bilder aus MSysResources <\/b>beginnend mit dem ersten Bild anzeigen, sondern wir beginnen die Anzeige mit dem 16. Bild. Um ein Recordset zu erstellen, das die Bilder ab dem 16. Bild liefert, benötigen wir den Namen des Bildes dieser Position. Das holen wir uns innerhalb der Bedingung, die prüft, ob lngStart <\/b>größer als 0 <\/b>ist. Hier verschieben wir den Datensatzzeiger auf den letzten und dann wieder auf den ersten Datensatz, um alle Datensätze einmal eingelesen zu haben, um im nächsten Schritt die Position des Datensatzzeigers mit der Eigenschaft AbsolutePosition <\/b>auf den entsprechenden Wert einzustellen, in diesem Fall lngStart x 15 – 1<\/b>, also 14<\/b>. Danach können wir mit rst!Name <\/b>den Wert des Feldes Name <\/b>für diesen Datensatz ermitteln. Auf dieser Basis erstellen wir in strSQL <\/b>eine neue Abfrage, die wieder in Abhängigkeit von strFilter<\/b> eine Filterbedingung enthält oder auch nicht. Danach öffnen wir ein neues Recordset auf Basis dieser SQL-Abfrage.<\/p>\n Schließlich können wir die Elemente dieses Recordsets durchlaufen. Dabei referenzieren wir die Schaltfläche mit der entsprechenden Nummer und weisen dieser für die Eigenschaft Picture <\/b>den Namen des Bildes zu. Für den ControlTipText <\/b>tragen wir ebenfalls diesen Namen ein, damit dieser beim Überfahren mit der Maus eingeblendet wird. Das Recordset kann mehr als 45 Einträge enthalten, daher brechen wir beim Erreichen von AbsolutePosition = 44 <\/b>den Vorgang ab – mehr Bilder können nicht in den Schaltflächen angezeigt werden.<\/p>\n Sollte das Recordset an dieser Stelle jedoch bereits leer sein, weil der Filter keine Ergebnisse zurückliefert, deaktivieren wir die Schaltfläche cmdBildLoeschen<\/b>.<\/p>\n Hier kann es vorkommen, dass entweder der Filter so eingestellt ist, dass weniger als 45 Bilder angezeigt werden sollen oder wir haben bis zum Ende gescrollt und es verbleiben auf diese Weise weniger als 45 Bilder. Dann durchlaufen wir eine For…Next<\/b>-Schleife mit der aktuellen Datensatzanzahl bis 45 <\/b>und löschen die Bilder und die ControlTipText<\/b>-Eigenschaft für die verbleibenden Schaltflächen (siehe Listing 3).<\/p>\n Listing 3: Die Prozedur zum Laden von Bildern in die Schaltflächen (Teil 3)<\/span><\/b><\/p>\n Wenn jedoch noch mehr als 45 Bilder verbleiben, tragen wir in das Textfeld txtWeitere<\/b> die Anzahl der verbleibenden Bilder ein, damit der Benutzer weiß, wie viele Bilder er noch einblenden kann.<\/p>\n Nun müssen wir uns noch um das Aktivieren und Deaktivieren der beiden Schaltflächen zum Blättern in den Bildern kümmern. Wenn das zuerst angezeigte Bild dem in strFirstPicture <\/b>gespeicherten ersten Bild entspricht, soll cmdUp <\/b>deaktiviert werden, da wir nicht weiter nach oben scrollen können.<\/p>\n Für die Schaltfläche cmdDown <\/b>prüfen wir die letzte Schaltfläche. Wenn diese für die Eigenschaft Picture <\/b>den Wert (keines) <\/b>enthält, deaktivieren wir cmdDown<\/b>, anderenfalls aktivieren wir diese Schaltfläche.<\/p>\n Schließlich aktivieren wir noch das Painting, damit die Änderungen an den Schaltflächen gezeichnet werden.<\/p>\n Die Prozedur LoadImages <\/b>wird direkt beim Öffnen des Formulars durch das Ereignis Beim Laden <\/b>aufgerufen, damit die Bilder direkt geladen werden:<\/p>\n Damit wir ein oder mehrere Bilder in die Tabelle MSysResources <\/b>laden können, haben wir die Schaltfläche cmdBilderAuswaehlen <\/b>mit dem entsprechenden Code versehen. Diese Prozedur sieht wie folgt aus:<\/p>\n Sie verwendet zunächst die Funktion ChooseFiles <\/b>aus dem Modul mdlFiledialog<\/b>, um einen Dateidialog zur Mehrfachauswahl von Bildern zu öffnen. Damit diese Funktion korrekt arbeitet, benötigen wir einen Verweis auf die Bibliothek Microsoft Office 16.0 Object Library<\/b>. Diesen müssen Sie, wenn Sie die Objekte in Ihre eigene Datenbank importieren, noch hinzufügen.<\/p>\n Die Funktion ChooseFiles <\/b>liefert die gewählten Dateipfade in einer Zeichenkette, in der alle Pfade durch das Pipe-Zeichen voneinander getrennt sind. Diese Pfade trennen wir mit der Split<\/b>-Funktion so auf, dass sie in einem Array namens strFiles <\/b>landen. Danach durchlaufen wir alle Einträge dieses Array und rufen für jede Bilddatei die Prozedur BildInRessourcenSpeichern <\/b>auf. Dieser übergeben wir jeweils den Pfad und die Zieltabelle.<\/p>\n Nachdem alle Bilder importiert wurden, rufen wir noch die Prozedur LoadImages <\/b>auf, damit die in den Schaltflächen angezeigten Bilder aktualisiert werden.<\/p>\n Die Prozedur BildInRessourcenSpeichern <\/b>nimmt den Pfad des zu importierenden Bildes und die Zieltabelle als Parameter entgegen (siehe Listing 4). Sie extrahiert zunächst den reinen Dateinamen in die Variable strDateiname<\/b>. Enthält dieser einen Punkt, landet der Teil hinter dem Punkt in der Variablen strDateiendung <\/b>und der Teil davor in strDateinameOhneEndung<\/b>.<\/p>\n Listing 4: Speichern eines Bildes in der Tabelle MSysResources<\/span><\/b><\/p>\n Dann öffnet die Prozedur ein Recordset auf Basis der Tabelle MSysResources<\/b>. Hier sucht sie zunächst nach einem Eintrag, der den gleichen Bildnamen enthält wie in strDateinameOhneEndung<\/b>. Ist ein solcher vorhanden, wird dieser mit der Delete<\/b>-Methode des Recordset<\/b>-Objekts gelöscht und der Datensatzzeiger wieder auf den ersten Datensatz bewegt.<\/p>\n Dann legt sie einen neuen Datensatz an und weist den Feldern Name<\/b>, Type <\/b>und Extension <\/b>die entsprechenden Werte zu.<\/p>\n Anschließend folgt die einzufügende Datei. Dazu öffnen wir ein neues Recordset mit dem Typ Recordset2<\/b>, dem wir mit der Eigenschaft Value <\/b>des Feldes Data <\/b>das interne Recordset für das Attachment<\/b>-Feld zuweisen. Auch hier legen wir einen neuen Datensatz an. Der Field2<\/b>-Variablen fld2 <\/b>weisen wir das Feld FileData <\/b>zu. In dieses können wir mit der Methode LoadFromFile <\/b>die Datei aus strPfad <\/b>laden. Außerdem stellen wir das Feld Filename <\/b>auf strDateiname <\/b>ein. Schließlich speichern wir das interne Recordset und auch das eigentliche Recordset jeweils mit der Update<\/b>-Methode.<\/p>\n Damit ist das Bild in der Tabelle MSysResources <\/b>gespeichert.<\/p>\n Die Schaltfläche cmdBildLoeschen <\/b>soll das aktuell markierte Bild aus der Tabelle MSysResources <\/b>löschen.<\/p>\n Sie löst die folgende Prozedur aus, die schlicht den Datensatz aus der Tabelle MSysResources <\/b>löscht, dessen Name mit dem Namen aus dem Textfeld GewaehltesBild <\/b>übereinstimmt:<\/p>\n Anschließend initiiert die Prozedur das erneute Laden der nunmehr aktualisierten Bilder.<\/p>\n Die beiden Schaltflächen cmdDown <\/b>und cmdUp <\/b>sollen jeweils die Bilder der nächsten oder der vorherigen Zeile anzeigen. Die Schaltfläche cmdDown <\/b>löst die folgende Prozedur aus. Diese erhöht den Wert der Variablen lngStart <\/b>um 1 <\/b>und löst ein erneutes Laden der Bilder aus:<\/p>\n Die Prozedur cmdUp_Click <\/b>arbeitet ähnlich – sie vermindert lngStart <\/b>jedoch um 1<\/b>:<\/p>\n![\"Das](\"..\/fileadmin\/_temp_\/2025_05\/pic_1564_003.png\")
<\/p>\n![\"Auswahl](\"..\/fileadmin\/_temp_\/2025_05\/pic_1564_004.png\")
<\/p>\n\n
Formular zum Verwalten von Icons<\/h2>\n
![\"Formular](\"..\/fileadmin\/_temp_\/2025_05\/pic_1564_001.png\")
<\/p>\nEntwurf des Formulars<\/h2>\n
![\"Das](\"..\/fileadmin\/_temp_\/2025_05\/pic_1564_005.png\")
<\/p>\nFüllen der Schaltflächen mit den verfügbaren Bildern<\/h2>\n
Private Sub <\/span>LoadImages(Optional<\/span> strFilter As String<\/span>, Optional<\/span> bolMove As Boolean<\/span>)\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Dim <\/span>cmd As <\/span>Access.CommandButton\r\n Dim <\/span>strSQL As String<\/span>\r\n Dim <\/span>lngIndex As Long<\/span>\r\n Dim <\/span>lngFirstID As Long<\/span>\r\n Dim <\/span>strFirstPicture As String<\/span>\r\n Dim <\/span>strResourcetable As String<\/span>\r\n \r\n strResourcetable = \"MSysResources\" \r\n Set<\/span> db = CurrentDb \r\n Me.Painting = False<\/span>\r\n \r\n If <\/span>Len<\/span>(strFilter) = 0 Then<\/span>\r\n strSQL = \"SELECT * FROM \" & strResourcetable & \" WHERE Extension = ''png'' ORDER BY Name ASC\"\r\n Else<\/span>\r\n strSQL = \"SELECT * FROM \" & strResourcetable & \" WHERE Extension = ''png'' AND Name LIKE ''*\" _\r\n & strFilter & \"*'' ORDER BY Name ASC\"\r\n End If<\/span>\r\n \r\n Set<\/span> rst = db.OpenRecordset(strSQL, dbOpenDynaset)\r\n If <\/span>rst.EOF Then<\/span>\r\n Call<\/span> SchaltflaechenLeeren\r\n Me.Painting = True<\/span>\r\n Me.cmdBildLoeschen.Enabled = False<\/span>\r\n Exit Sub<\/span>\r\n End If<\/span>\r\n strFirstPicture = Nz(rst!Name, \"\")\r\n ... <\/pre>\nPrivate Sub <\/span>SchaltflaechenLeeren()\r\n Dim <\/span>lngIndex As Long<\/span>\r\n For lngIndex = 1 To 45\r\n With<\/span> Me.Controls(\"cmd\" & Format(lngIndex, \"000\"))\r\n .Picture = \"\"\r\n .ControlTipText = \"\"\r\n End With<\/span>\r\n Next<\/span> lngIndex\r\nEnd Sub<\/span><\/pre>\n ... \r\n If <\/span>Not<\/span> bolMove Then<\/span>\r\n If <\/span>Not<\/span> Len<\/span>(strFilter) = 0 Then<\/span>\r\n lngStart = 0\r\n End If<\/span>\r\n End If<\/span>\r\n If <\/span>lngStart > 0 Then<\/span>\r\n rst.AbsolutePosition = lngStart * 15 - 1\r\n strFirstPicture = rst!Name\r\n Debug.Print<\/span> strFirstPicture\r\n If <\/span>Len<\/span>(strFilter) = 0 Then<\/span>\r\n strSQL = \"SELECT * FROM \" & strResourcetable & \" WHERE Extension = ''png'' AND Name > ''\" _\r\n & strFirstPicture & \"'' ORDER BY Name ASC\"\r\n Else<\/span>\r\n strSQL = \"SELECT * FROM \" & strResourcetable & \" WHERE Extension = ''png'' AND Name LIKE ''*\" _\r\n & strFilter & \"*'' AND Name > ''\" & strFirstPicture & \"'' ORDER BY Name ASC\"\r\n End If<\/span>\r\n Set<\/span> rst = db.OpenRecordset(strSQL, dbOpenDynaset)\r\n End If \r\n If <\/span>Not<\/span> rst.EOF Then<\/span>\r\n Do While<\/span> Not<\/span> rst.EOF\r\n Set<\/span> cmd = Me(\"cmd\" & Format(rst.AbsolutePosition + 1, \"000\"))\r\n cmd.Picture = rst!Name\r\n cmd.ControlTipText = rst!Name\r\n If <\/span>rst.AbsolutePosition = 44 Then<\/span> Exit Do<\/span>\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\n Else<\/span>\r\n Me.cmdBildLoeschen.Enabled = False<\/span>\r\n End If<\/span>\r\n ...<\/pre>\nPrivate <\/span>lngStart As Long<\/span><\/pre>\nRecordset auf Basis vorheriger Scrollvorgänge ermitteln<\/h2>\n
Verbleibende Schaltflächen leeren<\/h2>\n
...\r\n For lngIndex = rst.RecordCount + 1 To 45\r\n Set<\/span> cmd = Me(\"cmd\" & Format(lngIndex, \"000\"))\r\n cmd.Picture = \"\"\r\n cmd.ControlTipText = \"\"\r\n Next<\/span> lngIndex\r\n If <\/span>rst.RecordCount > 45 Then<\/span>\r\n Me.txtWeitere = \"... und \" & rst.RecordCount - 45 & \" weitere Bilder\"\r\n Else<\/span>\r\n Me.txtWeitere = \"\"\r\n End If<\/span>\r\n If <\/span>Me.cmd001.Picture = strFirstPicture Then<\/span>\r\n Me.cmdUp.Enabled = False<\/span>\r\n Else<\/span>\r\n Me.cmdUp.Enabled = True<\/span>\r\n End If<\/span>\r\n If <\/span>Me.cmd045.Picture = \"(keines)\" Then<\/span>\r\n Me.cmdDown.Enabled = False<\/span>\r\n Else<\/span>\r\n Me.cmdDown.Enabled = True<\/span>\r\n End If<\/span>\r\n Me.Painting = True<\/span>\r\nEnd Sub<\/span><\/pre>\nÖffnen des Formulars<\/h2>\n
Private Sub <\/span>Form_Load()\r\n Call<\/span> LoadImages\r\nEnd Sub<\/span><\/pre>\nBilder in die Tabelle MSysResources aufnehmen<\/h2>\n
Private Sub <\/span>cmdBilderAuswaehlen_Click()\r\n Dim <\/span>strFilelist As String<\/span>\r\n Dim <\/span>strFiles() As String<\/span>\r\n Dim <\/span>var As Variant<\/span>\r\n strFilelist = ChooseFiles\r\n strFiles = Split<\/span>(strFilelist, \"|\")\r\n For Each var In strFiles\r\n BildInRessourcenSpeichern CStr(var), _\r\n \"MSysResources\"\r\n Next<\/span> var\r\n Call<\/span> LoadImages\r\nEnd Sub<\/span><\/pre>\nDie Prozedur BildInRessourcenSpeichern<\/h2>\n
Private Sub <\/span>BildInRessourcenSpeichern(strPfad As String<\/span>, strTabelle As String<\/span>)\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Dim <\/span>rstAttachment As <\/span>DAO.Recordset\r\n Dim <\/span>fld2 As <\/span>DAO.Field2\r\n Dim <\/span>strDateiname As String<\/span>\r\n Dim <\/span>strDateiendung As String<\/span>\r\n Dim <\/span>strDateinameOhneEndung As String<\/span>\r\n strDateiname = Mid$(strPfad, InStrRev<\/span>(strPfad, \"\\\") + 1)\r\n If <\/span>InStrRev<\/span>(strDateiname, \".\") > 0 Then<\/span>\r\n strDateiendung = Mid<\/span>(strDateiname, InStrRev<\/span>(strDateiname, \".\") + 1)\r\n strDateinameOhneEndung = Left<\/span>(strDateiname, InStrRev<\/span>(strDateiname, \".\") - 1)\r\n End If<\/span>\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rst = db.OpenRecordset(strTabelle, dbOpenDynaset)\r\n rst.FindFirst \"Name=''\" & strDateinameOhneEndung & \"''\"\r\n If <\/span>Not<\/span> rst.NoMatch Then<\/span>\r\n rst.Delete\r\n rst.MoveFirst\r\n End If<\/span>\r\n rst.AddNew<\/span>\r\n rst!Type = \"img\"\r\n rst!Extension = strDateiendung\r\n rst!Name = strDateinameOhneEndung\r\n Set<\/span> rstAttachment = rst!Data.Value\r\n With<\/span> rstAttachment\r\n .AddNew<\/span>\r\n Set<\/span> fld2 = !FileData\r\n fld2.LoadFromFile strPfad\r\n !FileName = strDateiname\r\n .Update\r\n End With<\/span>\r\n rst.Update\r\n rst.Close\r\nEnd Sub<\/span><\/pre>\nLöschen eines Bildes<\/h2>\n
Private Sub <\/span>cmdBildLoeschen_Click()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Set<\/span> db = CurrentDb\r\n db.Execute \"DELETE FROM MSysResources WHERE Name = ''\" _\r\n & Me.txtGewaehltesBild & \"''\", dbFailOnError\r\n LoadImages Nz(Me.txtFilter, \"\")\r\nEnd Sub<\/span><\/pre>\nDurch die Bilder scrollen<\/h2>\n
Private Sub <\/span>cmdDown_Click()\r\n lngStart = lngStart + 1\r\n Call<\/span> LoadImages(Nz(Me.txtFilter, \"\"), True<\/span>)\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cmdUp_Click()\r\n lngStart = lngStart - 1\r\n Call<\/span> LoadImages(Nz(Me.txtFilter, \"\"), True<\/span>)\r\nEnd Sub<\/span><\/pre>\n