{"id":55000315,"date":"2005-12-01T00:00:00","date_gmt":"2020-05-15T11:24:00","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=315"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Digitale_Fotografien_im_Griff","status":"publish","type":"post","link":"https:\/\/access-im-unternehmen.de\/Digitale_Fotografien_im_Griff\/","title":{"rendered":"Digitale Fotografien im Griff"},"content":{"rendered":"

\"\"<\/p>\n

Zusammenfassung<\/h3>\n

Lernen Sie einige Techniken kennen, mit denen Sie ihre Sammlung digitaler Fotografien in den Griff bekommen.<\/p>\n

Techniken<\/h3>\n

VBA, Formulare, Berichte<\/p>\n

Voraussetzungen<\/h3>\n

Access 2000 oder höher<\/p>\n

Beispieldateien<\/h3>\n

Bilddatenbank.mdb<\/a><\/p>\n

<\/h3>\n

André Minhorst, Duisburg<\/b><\/p>\n

Kennen Sie das auch Die digitalen Fotos werden mal hier und mal da auf die Festplatte gebannt, und hierhin und dorthin wird noch eine Sicherung gespeichert. Die übersicht kann da sehr schnell leiden. Oder Sie möchten, bevor es weitere 1000 neue Fotos auf die Festplatte verschlägt, endlich einmal ein paar Abzüge machen lassen. Das Zusammenstellen und der Transport der Bilder zum Fotostudio bringt dann weitere Hindernisse. Mit der Lösung in diesem Beitrag behalten Sie den überblick – und mehr …<\/b><\/p>\n

Wenn man nicht von Anfang an Ordnung hält, bricht schnell Chaos aus. Das gilt für den Schreibtisch wie für die Festplatte – und dort vor allem für zu archivierende Daten. Zu diesen gehören ganz sicher Digitalfotos – man schießt den Speicher der Kamera voll, leert den Inhalt auf der Festplatte aus, macht neue Schnappschüsse und so fort.<\/p>\n

Eine Digitalkamera lädt dazu ein, ruhig mal einen Klick zu viel zu riskieren – kostet ja schließlich nichts. Das heißt – fast nichts, denn ein wenig Speicherplatz geht schon verloren, wenn man die Fehlschüsse nicht gleich von der Platte putzt oder gar nicht erst dort speichert.<\/p>\n

Knipsen, bis die Platte platzt<\/h3>\n

Aber seien Sie mal ehrlich: Solange der Speicherplatz auf der Festplatte nicht dem Ende zugeht, besteht scheinbar kein Grund zum Aussortieren der überflüssigen Bilder. „Das mache ich, sobald ich die besten Schnappschüsse dieser Rutsche entwickeln lasse!“ – so heißt es sicher bei vielen Hobby-Fotografen.<\/p>\n

Bis man dann wenig später feststellt, dass mal wieder einige hundert neue Fotos zusammengekommen sind, ohne dass man auch nur ein einziges hat entwickeln lassen.<\/p>\n

Und das ist auch schon das nächste Problem: Will man die Bilder online entwickeln lassen, stellt man schnell fest, dass DSL und Konsorten zwar einen passablen Download bieten, beim Upload aber nur ein wesentlich geringerer Datendurchsatz möglich ist. Und bei Fotos á zwei Megabyte macht das nach ein paar Bildern keinen Spaß mehr.<\/p>\n

Also beschließen Sie, auch mal den mittlerweile zur Standardausrüstung gehörenden CD- oder DVD-Brenner zu verwenden und einen Rutsch Bilder zum nächsten Discounter oder auch zum Fotofachgeschäft zu bringen.<\/p>\n

Also nehmen wir mal drei Abzüge von diesem hier, zwei von jenem, … – halt: Wie kann ich von vornherein festlegen, wie viele Abzüge ich von jedem Bild haben möchte Ach, das soll ich dann im Geschäft machen – mit dem quengelnden Kind auf dem Arm und fünfzehn anderen Kunden im Rücken, die gerne mal ein wenig indiskret den einen oder anderen Blick erhaschen möchten Nein. Dann doch lieber direkt die Bilder mehrfach auf CD brennen, ab in den Fotoladen, und „einmal von jedem eins, 10 x 15, matt bitte!“.<\/p>\n

Wenn Sie bei dieser Vorgehensweise noch den überblick bewahren: Herzlichen Glückwunsch. Falls nicht oder falls vielleicht auch mal der weniger bedarfte Partner oder die Kinder Fotos zusammenstellen sollen, ohne dass anschließend das Backup zum Wiederherstellen der Daten ran muss, finden Sie im vorliegenden Beitrag die Werkzeuge, um Ihre Bilder im Griff zu haben. Diese müssen Sie dann nur noch zusammensetzen – oder Sie warten bis zur nächsten Ausgabe von Access im Unternehmen.<\/p>\n

Access & Co. helfen weiter<\/h3>\n

In den folgenden Kapiteln lernen Sie einige Techniken kennen, mit denen Sie Ihre digitale Fotosammlung verwalten:<\/p>\n

    \n
  • Routine zum Einlesen aller .jpg-Dateien eines Verzeichnisses und der enthaltenen Unterverzeichnisse<\/li>\n
  • Klasse zum Ermitteln von Bilddaten – unter anderem Erstellungsdatum, Abmessungen, Kameratyp und weitere Daten zu den Kameraeinstellungen zum Zeitpunkt der Aufnahme<\/li>\n
  • Tool zum Manipulieren von digitalen Bildern: Mit ImageMagick können Sie von VBA-Routinen aus änderungen an digitalen Fotos vornehmen – etwa, um Mini-Versionen der Bilder zu erstellen, die in der Datenbank gespeichert werden können.<\/li>\n
  • Technik zum Einlesen von Bildern in OLE-Objekt-Felder einer Tabelle<\/li>\n
  • Technik zum Anzeigen von Bildern aus OLE-Feldern, ohne diese zwischendurch auf der Festplatte speichern zu müssen<\/li>\n<\/ul>\n

    Im vorliegenden Beitrag lernen Sie die grundlegenden Techniken kennen, die Sie in einer der folgenden Ausgaben von Access im Unternehmen zu einer komfortablen Bildverwaltung zusammensetzen.<\/p>\n

    Bevor Sie mit dem Vorbereiten einer Ladung von Bildern zum Entwickeln beginnen können, müssen Sie zunächst einmal die Festplatte nach den vorhandenen Bildern durchkämmen. Auf diese Weise können Sie vielleicht direkt feststellen, wie viele Sicherheitskopien des einen oder anderen Bildes sich dort mittlerweile befinden.<\/p>\n

    JPEGs nach vorne, bitte!<\/h3>\n

    Zum Erfassen der Bilder müssen Sie nur die gewünschten Verzeichnisse durchlaufen und alle enthaltenen Dateien finden, die mit .jpg enden.<\/p>\n

    Die erste Version dieser Routine, die Sie später sukzessive ausbauen werden, arbeitet mit einer Tabelle namens tblBilder, die neben dem Primärschlüssel lediglich den Dateinamen und den Dateipfad der Bilddateien speichert. Diese Informationen sollen separat in zwei Textfeldern mit je 255 Zeichen verwaltet werden.<\/p>\n

    Der Aufruf der Routine aus Quellcode 1 lautet etwa folgendermaßen:<\/p>\n

    BilderEinlesenBasis \"<Verzeichnis>\"<\/pre>\n
    Eines der größten Probleme im Zusammenhang mit Fotos – egal ob im herkömmlichen oder digitalen Format – ist oft die fehlende Zeitangabe. Selbst das Speicherdatum der entsprechenden Datei ist nicht unbedingt zuverlässig: Kopieren Sie einmal eine Datei und schauen Sie sich das Erstellungsdatum der neuen Datei an – es ist das aktuelle Datum. Durch einfaches Kopieren der Dateien verlieren Sie also wichtige Informationen. Zwar liefert das änderungsdatum ebenfalls das eigentliche Erstellungsdatum (vorausgesetzt, Sie haben das Foto noch nicht bearbeitet), aber Otto Normalverbraucher weiß dies unter Umständen nicht.<\/p>\n
    Quellcode 1: Alle .jpg-Dateien in einer Tabelle speichern<\/b><\/p>\n
    Public Sub BilderEinlesenBasis(strVerzeichnis As String)\r\n    Dim i As Integer\r\n    Dim intOrdner As Integer\r\n    Dim strDateiname As String\r\n    Dim strOrdner() As String\r\n    Dim db As Database\r\n    Dim rstBilder As Recordset\r\n    \r\n    Set db = CurrentDb\r\n    Set rstBilder = db.OpenRecordset(\"tblBilder\")\r\n    strDateiname = Dir(strVerzeichnis)\r\n  \r\n    Do While strDateiname <> \"\"\r\n        If InStrRev(strDateiname, \".jpg\") > 0 Then\r\n            rstBilder.AddNew\r\n            rstBilder!Dateiname = strDateiname\r\n            rstBilder!Dateipfad = strVerzeichnis\r\n            rstBilder.Update\r\n        End If\r\n        strDateiname = Dir\r\n    Loop\r\n    strDateiname = Dir(strVerzeichnis, vbDirectory)\r\n    \r\n    Do While strDateiname <> \"\"\r\n        If strDateiname <> \".\" And strDateiname <> \"..\" Then\r\n            If GetAttr(strVerzeichnis & strDateiname) And vbDirectory Then\r\n                intOrdner = intOrdner + 1\r\n                ReDim Preserve strOrdner(intOrdner)\r\n                strOrdner(intOrdner) = strVerzeichnis & strDateiname\r\n            End If\r\n        End If\r\n        strDateiname = Dir\r\n        DoEvents\r\n    Loop\r\n    For i = 1 To intOrdner\r\n        BilderEinlesen strOrdner(i) & \"\\\"\r\n    Next i\r\n    rstBilder.Close\r\n    Set rstBilder = Nothing\r\n    Set db = Nothing\r\nEnd Sub<\/pre>\n
    Eine Alternativlösung ist das Integrieren des Erstellungsdatums am rechten unteren Rand des Bildes, aber das stört doch sehr, wenn man mal ein Bild in einen Bilderrahmen stecken möchte.<\/p>\n
    Ein Bild ist mehr als ein Bild<\/h3>\n
    Zum Glück denken die Kamerahersteller weiter: Sie speichern in den Bilddateien ausführliche Informationen über das Bild – und dazu gehören nicht nur das Datum, an dem das Bild aufgenommen wurde, sondern noch viele Informationen mehr.<\/p>\n
    <\/p>\n
    Diese Informationen stehen an einer festen Stelle in den Bilddateien, die sich bei genauerem Hinsehen oft als EXIF-Dateien (Exchangeable Image File Format) entpuppen, die prinzipiell als JPEG-Dateien mit zusätzlichen Informationen betrachtet werden können. Die Spezifikation solcher Dateien finden Sie unter der Internetadresse http:\/\/www.exif.org\/specifications.html.<\/p>\n
    Quellcode 2: Routine zum Ausgeben einiger Informationen einer Bilddatei<\/b><\/p>\n
    Public Sub BilddatenAusgeben(strBildname As String)\r\n    Dim objExifReader As ExifReader\r\n    Set objExifReader = New ExifReader\r\n    With objExifReader\r\n        .Load strBildname\r\n        Debug.Print .Tag(DateTimeOriginal)\r\n        Debug.Print .Tag(ExifImageHeight)\r\n        Debug.Print .Tag(ExifImageWidth)\r\n    End With\r\n    Set objExifReader = Nothing\r\nEnd Sub<\/pre>\n
    <\/p>\n
    <\/b><\/p>\n
    Bild 1:  Auswählen der verschiedenen Eigenschaften einer Bilddatei<\/span><\/b><\/p>\n
    Wie kommen Sie aber nun an die in der Bilddatei gespeicherten Informationen heran Zum Glück muss man hier nicht das Rad neu erfinden, sondern kann auf bestehende Werkzeuge zurückgreifen. In diesem Fall handelt es sich um eine VB-Klasse, die der Public Domain-Lizenz unterliegt und unter diesem Link zu finden ist: http:\/\/sourceforge.net\/projects\/exifclass<\/p>\n
    Diese Klasse binden Sie in das VBA-Projekt einer Access-Datenbank ein, indem Sie in der VBA-Entwicklungsumgebung den Menüeintrag Datei\/Datei importieren… ausführen und die einzufügende Datei auswählen – in diesem Fall die Klasse ExifReader.cls.<\/p>\n
    Auslesen von EXIF-Daten<\/h3>\n
    Um die Klasse für das Auslesen von Bildinformationen zu verwenden, erstellen Sie am einfachsten eine kleine Routine wie in Quellcode 2. Die Routine gibt die Höhe und die Breite (normalerweise in Pixel, prüfen Sie dies vorher) sowie das Erstellungsdatum des Bildes aus.<\/p>\n
    Es gibt noch eine Menge weiterer Informationen wie den Typ der Kamera, mit der das Foto erstellt wurde, und vor allem über die beim Fotografieren verwendeten Einstellungen.<\/p>\n
    Diese können Sie leicht über die entsprechenden Parameter der Tag-Eigenschaft der Klasse auslesen – IntelliSense liefert gute Dienste beim Auswählen der richtigen Eigenschaft (siehe Bild 1).<\/p>\n
    Die von der Routine BilddatenAusgeben erzeugte Ausgabe enthält nicht zufällig genau diese Informationen: Erstens ist für das Speichern von Bilddaten das Erstellungsdatum sehr wichtig und die Größe der Bilder benötigen Sie, wenn es weiter unten darum geht, Miniaturen der Bilder zum Speichern in der Datenbank zu erstellen.<\/p>\n
    Erstens lassen sich auf diese Weise die Bilder so verkleinern, dass diese alle in ein gleiches Viereck von beispielsweise 100 Pixel Kantenlänge passen, und zweitens erhalten Sie so die Proportionen der Bilder.<\/p>\n
    Um Informationen wie Erstellungsdatum, Höhe und Breite eines Bildes ebenfalls in der Datenbank zu speichern, fügen Sie der Routine aus Quellcode 1 einige Zeilen hinzu, löschen gegebenenfalls bereits angelegte Bilddaten und starten die Routine erneut.<\/p>\n
    Die Tabelle zum Speichern der Bilddaten erweitern Sie wie in Bild 2 – damit erstellen Sie auch direkt ein Feld zum Speichern der Thumbnails.<\/p>\n
    <\/p>\n
    <\/b><\/p>\n
    Bild 2:  Entwurfsansicht der Tabelle tblBilder<\/span><\/b><\/p>\n
    <\/p>\n
    <\/b><\/p>\n
    Bild 3:  Das OLE-Steuerelement ist das Objekt der Begierde.<\/span><\/b><\/p>\n
    Um die Anzeige von Bildern zu beschleunigen, macht es Sinn, nicht auf die teilweise über zwei Megabyte großen Bilddateien zuzugreifen, sondern so genannte Thumbnails zu erstellen.<\/p>\n
    Besonders oft kommen diese herunterskalierten und damit wesentlich weniger Speicherplatz beanspruchenden Versionen von Bildern in den übersichtsseiten in Internet-Bildsammlungen vor.<\/p>\n
    Dort klickt man dann das gewünschte Bild an, um es in Originalgröße anzuzeigen oder herunter zu laden.<\/p>\n
    Das Problem ist in diesem Fall nicht das Speichern der Thumbnails in der Datenbank, sondern deren Erstellung aus den Original-Bilddateien. Tools, die dies erledigen, gibt es eine Menge – aber die meisten kosten den einen oder anderen Euro. Eine günstige Lösung für diesen Zweck ist ImageMagick. Diese Software liefert eine Menge Funktionen zum Bearbeiten von Grafikdateien und noch vieles mehr.<\/p>\n
    Die Windows-Installationsroutine von ImageMagick können Sie unter der folgenden Internetadresse herunterladen: http:\/\/www.imagemagick.org\/script\/binary-releases.php<\/p>\n
    Dort finden Sie auch die Datei ImageMagick-6.2.5-4-Q16-windows-dll.exe. Beachten Sie bei der Installation, dass Sie das ImageMagicObject OLE Control mitinstallieren – dieses können Sie von VBA aus referenzieren, um auf dessen Eigenschaften und Methoden zuzugreifen (siehe Bild 3).<\/p>\n
    Nach der Installation können Sie die Funktion der Anwendung durch Absetzen der folgenden Anweisungen in der Kommandozeile von Windows testen:<\/p>\n
    convert logo: logo.gif\r\nidentify logo.gif\r\nimdisplay logo.gif<\/pre>\n
    Außerdem sollten Sie nach Einbinden der Bibliothek ImageMagickObject 1.0 Type Library auf die Objekte dieser Bibliothek zugreifen können (siehe Bild 4).<\/p>\n
    Quellcode 3: Routine zum Erstellen eines Thumbnails aus einer Bilddatei<\/b><\/p>\n
    Public Sub ThumbnailErstellen(strDateipfad As String, strZielpfad As String, lngBreite As Long, _    lngHoehe As Long, lngKantenlaengeMax As Long)\r\n    Dim strFaktor As String\r\n    Dim sngQuotient As Single\r\n    Dim objImageMagick As ImageMagickObject.MagickImage\r\n    Set objImageMagick = New ImageMagickObject.MagickImage\r\n    If lngBreite > lngHoehe Then\r\n        sngQuotient = lngBreite \/ lngKantenlaengeMax\r\n    Else\r\n        sngQuotient = lngHoehe \/ lngKantenlaengeMax\r\n    End If\r\n    strFaktor = Replace(100 \/ sngQuotient & \"%\", \",\", \".\")\r\n    With objImageMagick\r\n        .Convert strDateipfad, \"-resize\", strFaktor, strZielpfad\r\n    End With\r\nEnd Sub<\/pre>\n
    <\/p>\n
    <\/b><\/p>\n
    Bild 4:  Die Methoden und Eigenschaften des ImageMagick-Objektmodells sind in VBA verfügbar.<\/span><\/b><\/p>\n
    Weitere Informationen zu dieser Software erhalten Sie auf der Internetseite http:\/\/www.imagemagick.org.<\/p>\n
    Für die geplante Anwendung benötigen Sie den Befehl Convert, dessen Parameter Sie unter der Internetadresse http:\/\/www.imagemagick.org\/script\/convert.php finden.<\/p>\n
    Die Anwendung der VBA-Schnittstelle des ImageMagick-Objektmodells ist indes etwas gewöhnungsbedürftig:<\/p>\n
    Die einzelnen Methoden sind zwar via IntelliSense leicht erreichbar, aber die Parameter müssen als ParamArray eingegeben werden – das heißt, dass dort keine weitere IntelliSense-Unterstützung mehr stattfindet.<\/p>\n
    Deutlich wird dies, wenn man sich einmal die vielen möglichen Parameter ansieht und sich vergegenwärtigt, dass es sich hier um eine Portierung eines Kommandozeilentools aus der Linux\/Unix-Welt handelt. Und dort ist man bekanntlich sehr flexibel, was den Einsatz von Parametern angeht. Um einen ImageMagick-Befehl in VBA abzubilden, probieren Sie diesen einfach zunächst in der Kommandozeile aus und geben die einzelnen Elemente dann als durch Kommata getrennte Zeichenketten an. Für die benötigte Konvertierung verwenden Sie etwa folgende Anweisung:<\/p>\n
    convert c:\\GrossesBild.jpg -resize 50% c:\\KleinesBild.jpg<\/pre>\n
    Als Methode sieht das folgendermaßen aus:<\/p>\n
    objImageMagick.Convert \"c:\\GrossesBild.jpg\", \"-resize\", \"50%\", \"c:\\KleinesBild.jpg\"<\/pre>\n
    Quellcode 4: Diese Routine erzeugt mit der Funktion ThumbnailErstellen ein Thumbnail und speichert dieses in der Tabelle tblBilder.<\/b><\/p>\n
    Sub ThumbnailInTabelle(lngBildID As Long)\r\n    Dim bytThumbnail() As Byte\r\n    Dim rstBilder As Recordset\r\n    On Error GoTo ThumbnailInTabelle_Err\r\n    Set rstBilder = CurrentDb.OpenRecordset _        (\"SELECT * FROM tblBilder WHERE BildID = \" _        & lngBildID, dbOpenDynaset)\r\n    ThumbnailErstellen rstBilder!Dateipfad _        & rstBilder!Dateiname, CurrentProject.Path & _        \"\\Thumbnail.jpg\", rstBilder!Breite, rstBilder!Hoehe, 100\r\n    Open CurrentProject.Path & \"\\Thumbnail.jpg\" For Binary As #1\r\n    ReDim bytThumbnail(LOF(1))\r\n    Get #1, , bytThumbnail()\r\n    Close #1\r\n    rstBilder.Edit\r\n    rstBilder(\"Thumbnail\").AppendChunk bytThumbnail()\r\n    rstBilder.Update\r\n    rstBilder.Close\r\nThumbnailInTabelle_Exit:\r\n    Erase bytThumbnail\r\n    Set rstBilder = Nothing\r\n    Exit Sub\r\nThumbnailInTabelle_Err:\r\n    Reset\r\n    MsgBox Err.Description\r\n    GoTo ThumbnailInTabelle_Exit\r\nEnd Sub<\/pre>\n
    Sie müssen also nicht sowohl jeden Parameter als auch jeden Wert als eigenes Element angeben.<\/p>\n
    Die Routine aus Quellcode 3 sorgt dafür, dass eine Datei auf ein bestimmtes Maß zurechtgestutzt wird.<\/p>\n
    Dabei erwartet die Routine die Dateinamen der Quell- und der Zieldatei, Höhe und Breite der Quelldatei und die maximale Kantenlänge der zu erstellenden Datei.<\/p>\n
    Die Routine ermittelt zunächst den Faktor, um den die Datei geschrumpft werden muss, instanziert das ImageMagick-Objekt und ruft schließlich dessen Convert-Methode mit den entsprechenden Parametern auf. <\/p>\n
    Der Aufruf der Routine ThumbnailErstellen sieht beispielsweise wie folgt aus. CurrentProject.Path ermittelt dabei den Pfad der aktuellen Datenbank.<\/p>\n
    ThumbnailErstellen CurrentProject.Path & \"\\beispiel.jpg\", CurrentProject.Path & \"\\beispielKlein.jpg\", 2592, 1944, 100<\/pre>\n
    Die Thumbnails erstellen Sie, weil diese wesentlich weniger Speicherplatz als die Bilddateien von zwei oder mehr Megabyte Größe benötigen. Sie lassen sich leicht in der Datenbank speichern und später in einem Formular anzeigen oder in einem Bericht ausgeben.<\/p>\n
    Gerade für die Anzeige im Formular ist eine kleine Bildgröße wichtig, weil vermutlich mehr Bilder anfallen, als auf eine Bildschirmseite passen – wenn Sie dann mal zu den nächsten x Bildern blättern möchten, sollte das nicht gerade mehrere Sekunden dauern.<\/p>\n
    Um die Thumbnails in der Datenbank zu speichern, sind natürlich wieder ein paar Zeilen VBA-Code notwendig.<\/p>\n
    Weiter oben haben Sie die Routine BilderEinlesen kennen gelernt, mit der Sie alle .jpg-Dateien des als Parameter angegebenen Verzeichnisses so erfassen können, dass Verzeichnis und Dateiname des Bildes in je einem Datensatz der Tabelle tblBilder gespeichert werden.<\/p>\n
    Nun sollen natürlich auch die zu den Bildern gehörenden Thumbnails in den entsprechenden Datensätzen gespeichert werden. Dazu benötigen Sie zunächst ein zusätzliches Feld in der Tabelle. Dieses hat den Datentyp OLE-Objekt und den Namen Thumbnail.<\/p>\n
    Die Routine aus Quellcode 4 erwartet als Parameter die BildID des Datensatzes, für den das Thumbnail in der Tabelle gespeichert werden soll.<\/p>\n
    <\/p>\n
    <\/b><\/p>\n
    Bild 5:  Die Tabelle tblMitarbeiter mit als OLE-Objekten gespeicherten Thumbnails<\/span><\/b><\/p>\n
    Nach dem Einsatz dieser Routine sieht die Tabelle tblBilder etwa wie in Bild 5 aus.<\/p>\n
    Eine der größten Hürden beim Umgang mit Bildern in Access-Anwendungen ist die Programmierung einer Technik, mit der man die in der Datenbank gespeicherten Bilder in Formularen und Berichten anzeigen kann.<\/p>\n
    Durch das Speichern der Thumbnails haben Sie bereits dafür gesorgt, dass Sie eine wenig Speicherplatz benötigende und damit schnell zu handhabende Version der Bilddateien verwenden können.<\/p>\n
    übliche Vorgehensweisen speichern nur die Bilddatei aus der Tabelle in einer Datei und verweisen dann von einem Steuerelement im Formular oder Bericht auf den Pfad dieser Datei. Es geht aber auch eleganter: Dabei kommt eine abgewandelte Form einer der Funktionen aus der oben erwähnten Beispieldatenbank von Sascha Trowitzsch zum Zuge. Diese ermöglicht es, die Bilddatei direkt vom Tabellenfeld in dem entsprechenden Steuerelement anzuzeigen.<\/p>\n
    Als Steuerelement fungiert in diesem Fall nicht das übliche Bildsteuerelement von Access, sondern das Microsoft Forms 2.0 Image-Steuerelement.<\/p>\n
    Dieses ist etwas unanfälliger gegen Probleme, die in Zusammenhang mit der Verwendung von .jpg-Dateien auftreten können.<\/p>\n
    Folgendes Beispiel zeigt, wie Sie ein Bild aus einer Tabelle ohne Zwischenschritt über die Festplatte in einem Formular anzeigen können.<\/p>\n
    Quellcode 5: Füllen des Image-Steuerelements mit dem in der Tabelle gespeicherten Bild<\/b><\/p>\n
    Private Sub Form_Current()\r\n    Me!imgBild.Object.Picture = CreatePix\r\nEnd Sub<\/pre>\n
    Quellcode 6: Diese Routine beinhaltet die eigentliche Funktionalität zum Einlesen des Bildes in das Image-Steuerelement.<\/b><\/p>\n
    Private Function CreatePix() As StdPicture\r\n    Dim rstBilder As DAO.Recordset\r\n    Dim pix() As Byte\r\n    Dim lSize As Long\r\n    On Error GoTo Fehler\r\n    Set rstBilder = Me.Recordset\r\n    lSize = rstBilder(\"Thumbnail\").FieldSize\r\n    ReDim pix(lSize)\r\n    pix() = rstBilder(\"Thumbnail\").GetChunk(0, lSize)\r\n    Set CreatePix = BytesToPicture(pix) \r\n    If CreatePix Is Nothing Then         MsgBox sError, vbExclamation, \"OLE-Fehler\"     End If\r\nEnde:\r\n    Erase pix\r\n    Exit Function\r\nFehler:\r\n    If Err.Number = 13 Then\r\n        Resume Next\r\n    Else\r\n        MsgBox Err.Description\r\n        Resume Ende\r\n    End If\r\nEnd Function<\/pre>\n
    <\/p>\n
    <\/b><\/p>\n
    Bild 6:  Entwurfsansicht des Beispielformulars zum Anzeigen von Bildern direkt aus der Tabelle<\/span><\/b><\/p>\n
    Die Ereignisprozedur weist dem Image-Steuerelement den Rückgabewert der Funktion CreatePix zu. Diese Routine (s. Quellcode 6) liest aus der Datensatzgruppe des Formulars den aktuellen Datensatz aus und verarbeitet den Inhalt des OLE-Objekt-Felds in der Funktion BytesToPictures so, dass dieser direkt im Formular angezeigt werden kann (siehe Bild 7).<\/p>\n
    <\/p>\n
    <\/b><\/p>\n
    Bild 7:  Das Bild-Steuerelement im Einsatz<\/span><\/b><\/p>\n
    Weitere Informationen zur Funktion BytesToPictures können Sie dem Modul mdlArrayToStdPicture entnehmen.<\/p>\n
    Anwendungen zum Verwalten von Bildern gibt es viele – aber wie oft haben Sie sich schon über fehlende oder schlecht umgesetzte Funktionen geärgert Da Sie mit Access arbeiten, haben Sie es in der Hand, selbst für eine passende und Ihren Ansprüchen in allen Belangen den genügende Bildverwaltung zu erstellen.<\/p>\n
    Mit diesem Beitrag erhalten Sie eine Menge Techniken, die man noch mit einer sinnvollen Benutzeroberfläche und den benötigten Funktionen würzen kann. Der ersten selbst zusammengestellten CD für den Fotoladen um die Ecke steht dann nichts mehr im Wege. In der nächsten Ausgabe liefert Access im Unternehmen die restlichen Puzzlestücke und setzt diese zu einer Bildverwaltung zusammen, die Sie – ein wenig Engagement vorausgesetzt – Ihren Wünschen anpassen können.<\/p>\n","protected":false},"excerpt":{"rendered":"
    Kennen Sie das auch Die digitalen Fotos werden mal hier und mal da auf die Festplatte gebannt, und hierhin und dorthin wird noch eine Sicherung gespeichert. Die Übersicht kann da sehr schnell leiden. Oder Sie möchten, bevor es weitere 1000 neue Fotos auf die Festplatte verschlägt, endlich einmal ein paar Abzüge machen lassen. Das Zusammenstellen und der Transport der Bilder zum Fotostudio bringt dann weitere Hindernisse. Mit der Lösung in diesem Beitrag behalten Sie den Überblick – und mehr …<\/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":[662005,66062005,44000034,44000026],"tags":[],"class_list":["post-55000315","post","type-post","status-publish","format-standard","hentry","category-662005","category-66062005","category-ImportExport","category-Interaktiv"],"yoast_head":"\nDigitale Fotografien im Griff - 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\/Digitale_Fotografien_im_Griff\/\" \/>\n<meta property=\"og:locale\" content=\"de_DE\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"Digitale Fotografien im Griff\" \/>\n<meta property=\"og:description\" content=\"Kennen Sie das auch Die digitalen Fotos werden mal hier und mal da auf die Festplatte gebannt, und hierhin und dorthin wird noch eine Sicherung gespeichert. Die Übersicht kann da sehr schnell leiden. Oder Sie möchten, bevor es weitere 1000 neue Fotos auf die Festplatte verschlägt, endlich einmal ein paar Abzüge machen lassen. Das Zusammenstellen und der Transport der Bilder zum Fotostudio bringt dann weitere Hindernisse. Mit der Lösung in diesem Beitrag behalten Sie den Überblick - und mehr ...\" \/>\n<meta property=\"og:url\" content=\"https:\/\/access-im-unternehmen.de\/Digitale_Fotografien_im_Griff\/\" \/>\n<meta property=\"og:site_name\" content=\"Access im Unternehmen\" \/>\n<meta property=\"article:published_time\" content=\"2020-05-15T11:24:00+00:00\" \/>\n<meta property=\"og:image\" content=\"http:\/\/vg02.met.vgwort.de\/na\/35864a955a83425a9f9850f6e1ff5f95\" \/>\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=\"16\u00a0Minuten\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\\\/\\\/schema.org\",\"@graph\":[{\"@type\":\"Article\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Digitale_Fotografien_im_Griff\\\/#article\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Digitale_Fotografien_im_Griff\\\/\"},\"author\":{\"name\":\"Andr\u00e9 Minhorst\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#\\\/schema\\\/person\\\/13395c4bcd7d7963efe33be9c584d93f\"},\"headline\":\"Digitale Fotografien im Griff\",\"datePublished\":\"2020-05-15T11:24:00+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Digitale_Fotografien_im_Griff\\\/\"},\"wordCount\":2799,\"commentCount\":0,\"publisher\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#organization\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Digitale_Fotografien_im_Griff\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg02.met.vgwort.de\\\/na\\\/35864a955a83425a9f9850f6e1ff5f95\",\"articleSection\":[\"2005\",\"6\\\/2005\",\"Import\\\/Export\",\"Interaktiv\"],\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"CommentAction\",\"name\":\"Comment\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/Digitale_Fotografien_im_Griff\\\/#respond\"]}]},{\"@type\":\"WebPage\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Digitale_Fotografien_im_Griff\\\/\",\"url\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Digitale_Fotografien_im_Griff\\\/\",\"name\":\"Digitale Fotografien im Griff - Access im Unternehmen\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/#website\"},\"primaryImageOfPage\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Digitale_Fotografien_im_Griff\\\/#primaryimage\"},\"image\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Digitale_Fotografien_im_Griff\\\/#primaryimage\"},\"thumbnailUrl\":\"http:\\\/\\\/vg02.met.vgwort.de\\\/na\\\/35864a955a83425a9f9850f6e1ff5f95\",\"datePublished\":\"2020-05-15T11:24:00+00:00\",\"breadcrumb\":{\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Digitale_Fotografien_im_Griff\\\/#breadcrumb\"},\"inLanguage\":\"de\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\\\/\\\/access-im-unternehmen.de\\\/Digitale_Fotografien_im_Griff\\\/\"]}]},{\"@type\":\"ImageObject\",\"inLanguage\":\"de\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Digitale_Fotografien_im_Griff\\\/#primaryimage\",\"url\":\"http:\\\/\\\/vg02.met.vgwort.de\\\/na\\\/35864a955a83425a9f9850f6e1ff5f95\",\"contentUrl\":\"http:\\\/\\\/vg02.met.vgwort.de\\\/na\\\/35864a955a83425a9f9850f6e1ff5f95\"},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\\\/\\\/access-im-unternehmen.de\\\/Digitale_Fotografien_im_Griff\\\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\\\/\\\/access-im-unternehmen.de\\\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"Digitale Fotografien im Griff\"}]},{\"@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":"Digitale Fotografien im Griff - 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\/Digitale_Fotografien_im_Griff\/","og_locale":"de_DE","og_type":"article","og_title":"Digitale Fotografien im Griff","og_description":"Kennen Sie das auch Die digitalen Fotos werden mal hier und mal da auf die Festplatte gebannt, und hierhin und dorthin wird noch eine Sicherung gespeichert. Die Übersicht kann da sehr schnell leiden. Oder Sie möchten, bevor es weitere 1000 neue Fotos auf die Festplatte verschlägt, endlich einmal ein paar Abzüge machen lassen. Das Zusammenstellen und der Transport der Bilder zum Fotostudio bringt dann weitere Hindernisse. Mit der Lösung in diesem Beitrag behalten Sie den Überblick - und mehr ...","og_url":"https:\/\/access-im-unternehmen.de\/Digitale_Fotografien_im_Griff\/","og_site_name":"Access im Unternehmen","article_published_time":"2020-05-15T11:24:00+00:00","og_image":[{"url":"http:\/\/vg02.met.vgwort.de\/na\/35864a955a83425a9f9850f6e1ff5f95","type":"","width":"","height":""}],"author":"Andr\u00e9 Minhorst","twitter_card":"summary_large_image","twitter_misc":{"Verfasst von":"Andr\u00e9 Minhorst","Gesch\u00e4tzte Lesezeit":"16\u00a0Minuten"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/access-im-unternehmen.de\/Digitale_Fotografien_im_Griff\/#article","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/Digitale_Fotografien_im_Griff\/"},"author":{"name":"Andr\u00e9 Minhorst","@id":"https:\/\/access-im-unternehmen.de\/#\/schema\/person\/13395c4bcd7d7963efe33be9c584d93f"},"headline":"Digitale Fotografien im Griff","datePublished":"2020-05-15T11:24:00+00:00","mainEntityOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/Digitale_Fotografien_im_Griff\/"},"wordCount":2799,"commentCount":0,"publisher":{"@id":"https:\/\/access-im-unternehmen.de\/#organization"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/Digitale_Fotografien_im_Griff\/#primaryimage"},"thumbnailUrl":"http:\/\/vg02.met.vgwort.de\/na\/35864a955a83425a9f9850f6e1ff5f95","articleSection":["2005","6\/2005","Import\/Export","Interaktiv"],"inLanguage":"de","potentialAction":[{"@type":"CommentAction","name":"Comment","target":["https:\/\/access-im-unternehmen.de\/Digitale_Fotografien_im_Griff\/#respond"]}]},{"@type":"WebPage","@id":"https:\/\/access-im-unternehmen.de\/Digitale_Fotografien_im_Griff\/","url":"https:\/\/access-im-unternehmen.de\/Digitale_Fotografien_im_Griff\/","name":"Digitale Fotografien im Griff - Access im Unternehmen","isPartOf":{"@id":"https:\/\/access-im-unternehmen.de\/#website"},"primaryImageOfPage":{"@id":"https:\/\/access-im-unternehmen.de\/Digitale_Fotografien_im_Griff\/#primaryimage"},"image":{"@id":"https:\/\/access-im-unternehmen.de\/Digitale_Fotografien_im_Griff\/#primaryimage"},"thumbnailUrl":"http:\/\/vg02.met.vgwort.de\/na\/35864a955a83425a9f9850f6e1ff5f95","datePublished":"2020-05-15T11:24:00+00:00","breadcrumb":{"@id":"https:\/\/access-im-unternehmen.de\/Digitale_Fotografien_im_Griff\/#breadcrumb"},"inLanguage":"de","potentialAction":[{"@type":"ReadAction","target":["https:\/\/access-im-unternehmen.de\/Digitale_Fotografien_im_Griff\/"]}]},{"@type":"ImageObject","inLanguage":"de","@id":"https:\/\/access-im-unternehmen.de\/Digitale_Fotografien_im_Griff\/#primaryimage","url":"http:\/\/vg02.met.vgwort.de\/na\/35864a955a83425a9f9850f6e1ff5f95","contentUrl":"http:\/\/vg02.met.vgwort.de\/na\/35864a955a83425a9f9850f6e1ff5f95"},{"@type":"BreadcrumbList","@id":"https:\/\/access-im-unternehmen.de\/Digitale_Fotografien_im_Griff\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/access-im-unternehmen.de\/"},{"@type":"ListItem","position":2,"name":"Digitale Fotografien im Griff"}]},{"@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\/55000315","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=55000315"}],"version-history":[{"count":0,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/posts\/55000315\/revisions"}],"wp:attachment":[{"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/media?parent=55000315"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/categories?post=55000315"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/access-im-unternehmen.de\/data\/wp\/v2\/tags?post=55000315"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}