MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Transferir foto de um campo tipo anexo para um indicador do word

    Compartilhe

    jamesresplandes
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 25/07/2010

    Transferir foto de um campo tipo anexo para um indicador do word

    Mensagem  jamesresplandes em 1/5/2018, 01:32

    Estou tentando transferir uma foto que está num campo tipo anexo para um indicador do word, mas não estou conseguindo. Já testei buscando a foto numa pasta e funciona perfeitamente, como no código abaixo:
    docWord.Bookmarks("txtFoto").Application.Selection.InlineShapes.AddPicture "E:\James Resplandes\Desktop\GPP\Modelos\TiagoVinicius.jpeg"

    Mas quando coloco o campo no lugar do path da erro, como neste exemplo:
    docWord.Bookmarks("txtFoto").Application.Selection.InlineShapes.AddPicture Me.anexos

    Verifiquei que o método .".AddPicture" requer uma string e acho que por isso não consigo com o campo Anexo do meu formulário.

    Alguém sabe outro meio ou outro método, função, etc, que consegue colocar uma foto em um indicador (bookmarks) do word?
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3461
    Registrado : 04/04/2010

    Re: Transferir foto de um campo tipo anexo para um indicador do word

    Mensagem  Avelino Sampaio em 1/5/2018, 09:32

    James,

    já que funciona bem tendo como origem o arquivo de uma pasta, utilize o método de extrair a imagem do anexo para uma pasta temporária, usando o comando SaveToFile. Estude o código exemplo neste meu artigo (copie e cole o endereço abaixo para o seu navegador).

    usandoaccess.com.br/tutoriais/video-criar-ribbons-access-imagens-campo-tipo-anexo.asp?id=1#inicio

    Sucesso!


    jamesresplandes
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 25/07/2010

    Re: Transferir foto de um campo tipo anexo para um indicador do word

    Mensagem  jamesresplandes em 9/5/2018, 02:55

    Mais uma vez muito obrigado caro Avelino, vou testar e coloco aqui se funcionou usando usa dica.
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3461
    Registrado : 04/04/2010

    Re: Transferir foto de um campo tipo anexo para um indicador do word

    Mensagem  Avelino Sampaio em 9/5/2018, 09:36

    Olá!

    tem um exemplo meu neste tópico.

    [Você precisa estar registrado e conectado para ver este link.]

    Bom estudo!

    jamesresplandes
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 25/07/2010

    Re: Transferir foto de um campo tipo anexo para um indicador do word

    Mensagem  jamesresplandes em 31/5/2018, 16:12

    Ainda estou tentando adaptar o código as minhas necessidades, não tive tempo ainda pra concluir. Assim que o fizer darei um feedback. Grato novamente"

    jamesresplandes
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 25/07/2010

    Re: Transferir foto de um campo tipo anexo para um indicador do word

    Mensagem  jamesresplandes em 1/6/2018, 04:56

    Tentei adaptar meu código aos exemplos que vc me passou, mas ainda não consegui. Não estou entendendo os parâmetros desta função: Public Sub fncLoadImage(imageId As String, ByRef Image)

    O que está sendo entregue à função no campo "imageId"?

    Também não entendi esta linha de código: Set Image = attAnexo.PictureDisp(imageId).
    Como faço pra salvar essa imagem numa pasta?

    O que quero fazer, acredito que seja bem simples: quero copiar/extrair uma imagem que está no campo chamado "Anexos" do formulário  e copiá-la pra pasta onde está o banco de dados, isso a partir do evento ao clicar de um botão no próprio formulário.

    Me dá mais essa força ai, parceiro, por favor.

      Data/hora atual: 17/8/2018, 21:51