[Resolvido]Obter os Anexos

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

Olá LM,

Veja aqui:
https://www.maximoaccess.com/t33634-exportar-anexos-de-uma-tabela
https://www.maximoaccess.com/t17933-resolvidoexportar-ou-extrair-imagens-de-campo-anexo

Abraço

Parece ser o caminho mas ainda não funcionou

Olá LM,

Partilhe pequeno exemplo simples do que tem para se testar.

Abraco

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.

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

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"

resolvido

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

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

Olá LM,

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

Abraço