[Resolvido]Verificar se arquivo existe - Pasta externa ao BD

Boas tardes

Tenho um banco de dados com varias tabelas.

Uma destas de artigos, com vinculo a uma pasta onde se encontram armazenadas as suas fotos. (Identificadas pelo ID da tabela).

A minha dificuldade:

Pretendo fazer um relatório em que as fotos sejam carregadas. Isso eu consigo. Só que, nos casos em que não tenho foto guardada do artigo, o relatório apresenta o respetivo registo (ID) e o campo de imagem vazio.

Existe alguma forma de, em vba, ao carregar os dados, só carregar os registos daqueles que existem fotos na pasta??

Obrigado

Cria uma consulta com os dados do relatório, acrescenta um campo com a expressão

Código:

Len(Nz(Dir(LOCAL, vbArchive), "")) > 0

e coloca como VERDADEIRA

Ola, bom ano de 2021!!!

Vou experimentar, obrigado!!

Boas, nao funcionou....... as fotos estao em formato JPeg.
Tentei assim na consulta:

FT: Len(Nz(Dir("\\Mac\Home\Desktop\Trab\Base\Fotos\&[ID]&".Jpeg" , vbArchive), "")) > 0

e dá me erro,,, diz que a expressão introduzida contem um caráter inválido....

Veja o & no fim da expressão, está dentro das aspas

Continua dando erro......
o ID é o nome da foto associado ao registo...jpeg o formato.
Ja tentei sem o jpeg e da erro na mesma

Posta seu bd aqui pra gente ver..

Olá Sergio

Creio que esse exemplo irá te ajudar:

Código:


Function ar(caminho As String) As String
On Error Resume Next
Dim arq, y, x

arq = Dir(caminho, vbdiretory)
While arq <> ""
If arq <> "SemFoto.png" Then
 y = y + arq & "; " + caminho + arq & "; "
End If
arq = Dir
Wend
ar = y
End Function



Quando um registro não tem foto, eu coloco uma imagem (foto)  escrito Sem Foto.
Assim evito ter esse campo vazio("").

Exemplo de como eu chamo a função acima:
Ao abrir o formulário:

Código:



Private Sub Form_Open(Cancel As Integer)
Dim caminho As String

caminho = Application.CurrentProject.Path & "\IMAGENS\"
'na linha abaixo eu povoo uma caixa de listagem de nome lstOpcao.
Me.lstOpcao.RowSource = ar(caminho)
End Sub



Abaixo mostro como preencher os relatório que estão como o campo vazio com uma imagem em branco escrito:  Sem Foto
Na propriedade NoAtual do formulário

Código:


Private Sub Form_Current()
If IsNull(Me.LocalFoto) Or Me.LocalFoto = "" Then
   Me.Foto.Picture = Application.CurrentProject.Path & "\IMAGENS\SemFoto.PNG"
Else
   Me.Foto.Picture = Me.LocalFoto
End If
End Sub


Ai está, é só você adaptar para o que pretende.

Isso eu fiz num formulário, vc pode fazer o mesmo num relatório.

[ ]'s

Obrigado Noobezinho, resolveu!!!!

Muito agradecido!!

Show meu amigo

Mas peço que edite teu post, e feche o tópico clicando no botão Resolvido logo abaixo da caixa de mensagem.

Boa sorte!

Balem

Gracias!!!