MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Importar imagem para o access

    avatar
    mm_edilson
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 29/03/2012

    [Resolvido]Importar imagem para o access Empty [Resolvido]Importar imagem para o access

    Mensagem  mm_edilson em 15/12/2017, 13:03

    Olá, amigos, estou fazendo um sisteminha em ACCESS, e estou com uma dúvida. Preciso selecionar uma imagem jpg, converter em bmp e inserir no campo tipo objeto ole da minha tabela.

    Tentei o código abaixo, mas não sei qual o comando colocar para fazer isso:

    Código:
    Private Sub Selecionar_Click()
    Call BrowsingWindow
    End Sub

    Sub BrowsingWindow()

    Dim Dlg As FileDialog
    Dim txtFilePath As String
    Dim varFile As Variant

    Set Dlg = Application.FileDialog(msoFileDialogFilePicker)
    With Dlg
    .Title = "Selecione uma imagem para salvar"
    .AllowMultiSelect = False
    If .Show = True Then

    For Each varFile In .SelectedItems
    txtFilePath = varFile
    Next

    'aqui preciso que a extensão da imagem selecionada seja renomeada de .jpg para .bmp e que seja inserida no campo IMG da tabela.

    Else
    Exit Sub
    End If
    End With

    End Sub
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6905
    Registrado : 15/03/2013

    [Resolvido]Importar imagem para o access Empty Re: [Resolvido]Importar imagem para o access

    Mensagem  ahteixeira em 16/12/2017, 14:55

    Olá Edilson Santiago,

    Veja se tópico abaixo ajuda na parte de arquivar OLE, veja o exemplo ImgensTabela2003pe.mdb
    https://www.maximoaccess.com/t23187-fotos-em-fomulario-continuo-access-2003

    Quanto a converter, veja links externos (copiar e colar no browser):
    devhut.net/2017/05/14/vba-wia-convert-the-image-format
    officeaccelerators.wordpress.com/2013/11/24/vba-code-to-convert-jpeg-file-to-bmp


    Abraço

      Data/hora atual: 24/10/2020, 06:57