Mostrar Foto Se Encontrar O Arquivo...

[Netanias]

Olá, estou desenvolvendo um sistema de cadastro de clientes com fotos... só que tem um problema... eu coloco a foto em uma pasta qualquer. .e depois referencio ela no cadastro access... só que se eu excluir a foto da pasta.... quando eu for abrir o cadastro daquele cliente... vai dar um erro dizendo que o access não encontrou o arquivo ......

aí pesquisando algumas coisas... encontrei essa função.... ( na ajuda do access )... só que não estou sabendo como implementar pra fazer isso:

mostra a foto quando o arquivo existir.... se não existir não mostrar...

olha a função que encontrei...

Sub ShowFileAccessInfo(filespec)

Dim fs, d, f, s

Set fs = CreateObject("Scripting.FileSystemObject")

Set f = fs.GetFile(filespec)

s = UCase(f.Path) & vbCrLf

s = s & "Criado em: " & f.DateCreated & vbCrLf

s = s & "Data do último acesso: " & f.DateLastAccessed & vbCrLf

s = s & "Data da última modificação: " & f.DateLastModified

MsgBox s, 0, "Informações de acesso ao arquivo"

End Sub

[Netanias]

Opa.... parece que já encontrei a resposta.. na verdade adaptei um pouco...

mas num mostra a foto....

o que tá errado com essa função?

Private Sub Mostra_Foto()

If Me.Foto <> "" Or IsNull(Me.Foto) = False Then

Dim rs

Set rs = CreateObject("Scripting.FileSystemObject")

If rs.FileExists("C:\Xtreme\fotos_pessoas\" & Me.Foto) Then

Me.img_fOTO.Picture = LoadPicture(Me.Foto)

End If

Set rs = Nothing

ElseIf Me.Foto = "" Or IsNull(Me.Foto) = True Then

Me.img_fOTO.Picture = LoadPicture(dia_Foto.FileName)

End If

End Sub

[.Andreia.]

isso é em VB?

[Netanias]

É em access, usando VBA... Mas depois eu coloco a resposta correta que encontrei... é só eu ter um pouco de tempo e coloco... ficou show!