Olá pessoal, novamente venho com uma questão que estou correndo atrás para tentar descobrir o motivo do erro mas não encontrei ainda. Na verdade não aparece mensagem de erro, o que acontece é que em um form possui um campo "imagem", usado para adicionar a foto de individuo, pois o interessante é que todas as fotos são guardadas em uma pasta especifica, e quando estou na máquina servidor, eu adiciono a foto e tudo bem, aparece direitinho no form, porém quando vou acessar em outra máquina local dentro da rede, essa foto não aparece para min. Mas se eu abrir o mesmo registro, e inserir novamente a mesma foto, eu consigo visualisar a foto. No Back-End, ficam armazenadas na tabela individuos, no campo "LocalFoto", o caminho da imagem. Na linha de código esta assim: Abraços
Private Sub LocalFoto_AfterUpdate()
Dim s As String
s = Nz(LocalFoto.Value, "")
If s <> "" Then s = IIf(Dir(s) = "", "", s)
On Error Resume Next
QuadroFoto.Picture = s
If Err.Number <> 0 Then QuadroFoto.Picture = ""
On Error GoTo 0
End Sub
Private Sub btnFoto_Click()
LocalFoto.SetFocus
Dim s As String
s = OpenCommDlg()
If s <> "" Then
LocalFoto = s
LocalFoto_AfterUpdate
End If
End Sub
Private Sub LocalFoto_AfterUpdate()
Dim s As String
s = Nz(LocalFoto.Value, "")
If s <> "" Then s = IIf(Dir(s) = "", "", s)
On Error Resume Next
QuadroFoto.Picture = s
If Err.Number <> 0 Then QuadroFoto.Picture = ""
On Error GoTo 0
End Sub
Private Sub btnFoto_Click()
LocalFoto.SetFocus
Dim s As String
s = OpenCommDlg()
If s <> "" Then
LocalFoto = s
LocalFoto_AfterUpdate
End If
End Sub