MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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]Obter os Anexos

    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 908
    Registrado : 09/11/2012

    [Resolvido]Obter os Anexos Empty [Resolvido]Obter os Anexos

    Mensagem  =>Nois 1/4/2021, 20:22

    Boa tarde pessoal

    confesso que procurei mas estou meio perdido

    nas tabelas do access tem um tipo (Anexos)

    gostaria de obter esses anexos via vba ou algo assim ( no meu caso são fotos)

    só uma observação: estou utilizando o sharepoint e nele consigo encxergar esses anexos no access, mas.... não tem nada elegante em clicar dentro da coluna para salvar um por um dos anexos

    [Resolvido]Obter os Anexos Salvar10


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Obter os Anexos Empty Re: [Resolvido]Obter os Anexos

    Mensagem  ahteixeira 2/4/2021, 00:20

    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 908
    Registrado : 09/11/2012

    [Resolvido]Obter os Anexos Empty Re: [Resolvido]Obter os Anexos

    Mensagem  =>Nois 3/4/2021, 03:26

    Parece ser o caminho mas ainda não funcionou


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Obter os Anexos Empty Re: [Resolvido]Obter os Anexos

    Mensagem  ahteixeira 4/4/2021, 11:58

    Olá LM,

    Partilhe pequeno exemplo simples do que tem para se testar.

    Abraco
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 908
    Registrado : 09/11/2012

    [Resolvido]Obter os Anexos Empty Re: [Resolvido]Obter os Anexos

    Mensagem  =>Nois 5/4/2021, 12:43

    Bom dia!

    obrigado pela ajuda Ahteixeira , converti a tabela vinculada para local

    no entanto percebi que quando a mesma é local extrai as fotos normalmente,
    Vinculada em rede interna, extrai as fotos;
    mas quando esta vinculada no sharepoint não extrai.
    Anexos
    [Resolvido]Obter os Anexos AttachmentExemplo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.1 Mb) Baixado 10 vez(es)


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 908
    Registrado : 09/11/2012

    [Resolvido]Obter os Anexos Empty Re: [Resolvido]Obter os Anexos

    Mensagem  =>Nois 5/4/2021, 13:51

    estive pensando vou tentar converter o registro atual em uma tabela temporária
    dai teria êxito


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 908
    Registrado : 09/11/2012

    [Resolvido]Obter os Anexos Empty Re: [Resolvido]Obter os Anexos

    Mensagem  =>Nois 5/4/2021, 15:13

    Esta solução me atende, eu preciso visualizar os anexos separadamente

    inseri um controle web browser para visualizar a imagem
    Código:
    wb.Navigate (Me.Anexos.FileURL)

    o Anexos contem o endereço completo da imagem no FileURL

    Código:
    Me.Anexos.FileURL

    criei uma consulta com a coluna acima onde me mostra registro a registro ou seja se eu tinha 3 anexos na linha a mesma me retorna 3 linhas

    entao utilizei o codigo abaixo que peguei aqui no forum para baixar imagem da internet e de quebra assim que salva ja envio para outra pasta linkando minha necessidade


    Código:
    'Baixar Anexo da internet

    Dim StrCaminho As String
    Dim URL As String
    Dim WinHttpReq As Object
    Dim oStream As Object
    Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
    StrCaminho = CurrentProject.Path & "\" & "teste.jpg"
    URL = Me.Anexos.FileURL
    WinHttpReq.Open "GET", URL, False
    WinHttpReq.send
    URL = WinHttpReq.responseBody
    If WinHttpReq.Status = 200 Then
     Set oStream = CreateObject("ADODB.Stream")
     oStream.Open
     oStream.Type = 1
     oStream.Write WinHttpReq.responseBody
     On Error Resume Next
    oStream.SaveToFile (StrCaminho)
    End If

    'Transferir arquivo (Copiar e colar)

    Dim File, registro, caminhoCompleto As String
    Dim SourceFile, DestinationFile, PegaCaminho

    registro = Me.ID
    caminhoCompleto = StrCaminho

    File = caminhoCompleto ' caminho do ficheiro

    'PegaCaminho = fncBuscaDir(Pasta) 'minha pasta de destino
    PegaCaminho  = C:\Teste

    SourceFile = caminhoCompleto ' Definir o nome do arquivo de origem.
    DestinationFile = PegaCaminho & "\" & registro & ".jpg" ' Definir o nome do arquivo de destino.
    FileCopy SourceFile, DestinationFile    ' Copiar a origem no destino.
    MsgBox "Salvo com Sucesso!", vbInformation, "Aviso"


    Última edição por =>Nois em 5/4/2021, 15:19, editado 1 vez(es)


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 908
    Registrado : 09/11/2012

    [Resolvido]Obter os Anexos Empty Re: [Resolvido]Obter os Anexos

    Mensagem  =>Nois 5/4/2021, 15:14

    resolvido


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Obter os Anexos Empty Re: [Resolvido]Obter os Anexos

    Mensagem  ahteixeira 5/4/2021, 17:00

    Olá LM,

    Fico feliz por ter resolvido, nem tive oportunidade (ainda) de ver o que partilhou.
    Sharepoint , nunca tive disponível para testar com Access e não sei bem como funciona.

    Quanto ao download, está a usar o controle webbrowser, veja tópico abaixo se fica melhor sem utilização do controle:
    https://www.maximoaccess.com/t29327-exemplo-download-direto-download-direto-dropbox

    Abraço
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 908
    Registrado : 09/11/2012

    [Resolvido]Obter os Anexos Empty Re: [Resolvido]Obter os Anexos

    Mensagem  =>Nois 12/4/2021, 14:19

    Olha eu não vi aparente diferença para baixar a imagem entre um codigo ou outro,
    mas é outra opção. obrigado!


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Obter os Anexos Empty Re: [Resolvido]Obter os Anexos

    Mensagem  ahteixeira 12/4/2021, 14:32

    Olá LM,

    Tem razão, está a usar o mesmo metodo "ADODB.Stream".

    Abraço

      Data/hora atual: 16/6/2021, 15:27