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]Verificar se arquivo existe - Pasta externa ao BD

    avatar
    serbarbosaportugal
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 58
    Registrado : 25/06/2014

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

    Mensagem  serbarbosaportugal 1/1/2021, 16:12

    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
    annissima
    annissima
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 169
    Registrado : 24/10/2017

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

    Mensagem  annissima 1/1/2021, 21:00

    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

    serbarbosaportugal gosta desta mensagem

    avatar
    serbarbosaportugal
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 58
    Registrado : 25/06/2014

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

    Mensagem  serbarbosaportugal 2/1/2021, 20:26

    Ola, bom ano de 2021!!!

    Vou experimentar, obrigado!!
    avatar
    serbarbosaportugal
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 58
    Registrado : 25/06/2014

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

    Mensagem  serbarbosaportugal 2/1/2021, 23:36

    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....
    annissima
    annissima
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 169
    Registrado : 24/10/2017

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

    Mensagem  annissima 2/1/2021, 23:44

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

    avatar
    serbarbosaportugal
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 58
    Registrado : 25/06/2014

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

    Mensagem  serbarbosaportugal 3/1/2021, 00:15

    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
    annissima
    annissima
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 169
    Registrado : 24/10/2017

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

    Mensagem  annissima 3/1/2021, 00:15

    Posta seu bd aqui pra gente ver..
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4122
    Registrado : 29/06/2012

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

    Mensagem  Noobezinho 3/1/2021, 10:11

    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

    serbarbosaportugal gosta desta mensagem

    avatar
    serbarbosaportugal
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 58
    Registrado : 25/06/2014

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

    Mensagem  serbarbosaportugal 6/1/2021, 20:38

    Obrigado Noobezinho, resolveu!!!!

    Muito agradecido!!
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4122
    Registrado : 29/06/2012

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

    Mensagem  Noobezinho 6/1/2021, 20:45

    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
    avatar
    serbarbosaportugal
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 58
    Registrado : 25/06/2014

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

    Mensagem  serbarbosaportugal 14/1/2021, 23:21

    Gracias!!!

      Data/hora atual: 17/6/2021, 19:02