Eu tenho procurado uma maneira de extrair imagens de formulários de acesso. Uma pesquisa no Google quase sempre aponta paraOLEtoDisk. Este software permite exportar imagens armazenadas em campos OLE dentro de tabelas de acesso. Isso não é o que eu quero.

Eu tenho um formulário com alguns logotipos, cabeçalhos e imagens de fundo. Essas imagens estão tornando o banco de dados cada vez maior (porque elas estão embutidas no formulário). Gostaria de extraí-los, colocá-los em nosso servidor junto com o arquivo de back-end e adicioná-los de volta aos meus formulários, mas desta vez como imagens vinculadas em vez de imagens incorporadas.

Espero estar me deixando claro. Todas as sugestões são bem vindas.

EDIT: Adicionado o código que estou usando para exportar PictureData do controle de imagem como um arquivo de imagem. Este código não funciona como pretendido. Eu descobri que PictureData é uma matriz de bytes, mas depois de copiá-lo em um arquivo, recebo um caractere NUL a cada dois caracteres.

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