Jump to content
Fórum Script Brasil
  • 0

Mostrar Foto Se Encontrar O Arquivo...


Netanias
 Share

Question

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

Link to comment
Share on other sites

3 answers to this question

Recommended Posts

  • 0

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

Link to comment
Share on other sites

  • 0

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

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      150.9k
    • Total Posts
      648.8k
×
×
  • Create New...