Szukałem sposobu na wyodrębnienie obrazów z formularzy dostępu. Wyszukiwanie w Google prawie zawsze wskazujeOLEtoDisk. To oprogramowanie pozwala eksportować obrazy przechowywane w polach OLE wewnątrz tabel dostępu. To nie jest to, czego chcę.

Mam formularz z niektórymi logo, nagłówkami i obrazami tła. Te obrazy sprawiają, że baza danych staje się coraz większa (ponieważ są osadzone w formularzu). Wyodrębniłem je, umieściłem na naszym serwerze razem z plikiem zaplecza i dodałem je z powrotem do moich formularzy, ale tym razem jako obrazy połączone zamiast osadzonych obrazów.

Mam nadzieję, że przedstawię się jasno. Wszelkie sugestie są mile widziane.

EDYCJA: Dodano kod, którego używam do eksportowania PictureData Image Control jako pliku obrazu. Ten kod nie działa zgodnie z przeznaczeniem. Dowiedziałem się, że PictureData jest tablicą bajtów, ale po skopiowaniu jej do pliku otrzymuję jeden znak NUL co dwa znaki.

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