[Resolvido]Diretorio Apagado

Boa Noite

Tenho um banco de dados que pega as fotos de um diretorio.

Para teste, eu renomeei a pasta

Quando entro no programa de inclusão se eu incluir um novo registro este funciona, pois vai me pedir um caminho novo para
as fotos.

Agora se eu for mostrar um registro anterior vai dar erro, porque não existe a pasta, e vai para depurador.

Eu quero que me mostre uma mensagem somente que as foto nao existe, e mostre os outros dados que estão no banco de dados


Private Sub Form_Current()
If Me.foto <> "" Then
Me.controleimagem.Picture = Me.foto ------------------ se eu clicar no botao voltar um registro ele cai aqui
Else no campo foto tem o caminho, mas o caminho não existe
Me.controleimagem.Picture = "" Preciso que antes disso ele me de a mensagem de erro
End If
End Sub

no aguardo

Abraço

Amigo, apos verificar que o campo Foto tem algum valor, coloque outra verificaçao... Uma verificaçao que ira ver se o arquivo existe...

Se existir exibe a foto, se nao emite aleta dizendo que nao foi localizado.


Veja aqui como verificar se o arquico existe:

https://www.maximoaccess.com/t913-fso-filesystemobject-para-manipularmos-arquivos

Você pode criar uma pasta de Imagens dentro da pasta do seu BD. Para referenciá-lo basta colocar como criterio CurrentProject.Path & \Imagens\ NomeDoArquivoImagem & .jpg

Fabio

onde eu coloco este comando

e o caminho da minha pasta fica dentro de um campo chamado caminho_fotos, como eu troco
pelo "C:\SuaPasta"

no aguardo

'Verifique se existe uma pasta:

Sub VerificaSePastaExiste()
Dim fso
Dim folder As String
folder = "C:\SuaPasta" ' caminho da pasta
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(folder) Then
MsgBox folder & " pasta encontrada.", vbInformation, "Sucesso"
Else
MsgBox folder & " pasta não encontrada.", vbInformation, "Erro"
End If
End Sub

Vc deve colocar no mesmo local onde tem esse:
If Me.foto <> "" Then


E deve colocar-lo logo apos fazer essa Verificação:
If Me.foto <> "" Then <== Se tiver foto segue

codigo para verificar se a foto existe coloque aqui


Se A foto for localizada aplique ela :
Me.controleimagem.Picture = Me.foto



se nao for localoizado emita a mensagem avisando...

Boa tarde

Deu certo agora

Muito obrigado

Abraço

Grato pelo retorno!
Para que o post fique completo, poste o código final! Assim ajudará os demais que tiverem a mesma duvida!

Até a próxima se Deus quiser!