Ich habe nach einer Möglichkeit gesucht, Bilder aus Zugriffsformularen zu extrahieren. Eine Suche bei Google wird fast immer auf verweisenOLEtoDisk. Diese Software ermöglicht das Exportieren von Bildern, die in OLE-Feldern in Zugriffstabellen gespeichert sind. Das will ich nicht.

Ich habe ein Formular mit einigen Logos, Überschriften und Hintergrundbildern. Diese Bilder vergrößern die Datenbank immer mehr (weil sie in das Formular eingebettet sind). Ich würde sie extrahieren, zusammen mit der Back-End-Datei auf unserem Server ablegen und sie wieder meinen Formularen hinzufügen, diesmal jedoch als verknüpfte Bilder anstelle von eingebetteten Bildern.

Ich hoffe, ich mache mich klar. Anregungen sind willkommen.

BEARBEITEN: Der Code, den ich zum Exportieren der PictureData eines Bildsteuerelements als Bilddatei verwende, wurde hinzugefügt. Dieser Code funktioniert nicht wie vorgesehen. Ich habe herausgefunden, dass PictureData ein Byte-Array ist, aber nach dem Kopieren in eine Datei erhalte ich alle zwei Zeichen ein NUL-Zeichen.

Public Function savePict(pImage As Access.Image)
    Dim fname As String 'The name of the file to save the picture to
    Dim iFileNum As Double

    fname = Environ("Temp") + "\temp.png" ' Destination file path
    iFileNum = FreeFile 'The next free file from the file system

    Open fname For Binary Access Write As iFileNum
        Dim tbyte As Variant
        Dim i As Double
        'Write the byte array to the file
        For i = 0 To Len(pImage.PictureData)
            Put #iFileNum, , pImage.PictureData(i)
        Next i
    Close #iFileNum
End Function