boa tarde eu tenho este codigo pra aparecer uma imagem num MDIFor image       

 

Rs_Config.Open "configuracao ORDER BY bd_010", Banco, adOpenDynamic, adLockOptimistic 'db, 1, 3
        If Rs_Config.Fields("bd_010") = Empty Then
            imgBack(0) = LoadPicture(App.Path + ("logo.jpg"))' quanto o usuario não cologou o logo dele, aparece o meu
        Else

            ' aqui que dar o erro quando o usuario deleta o caminho da imagem dele

            imgBack(0) = LoadPicture(Rs_Config("bd_010")) 'aqui e o dele quanto ele dar um caminho "c:la....." num banco de dado
        End If
        Rs_Config.Close

até aqui esta tudo certo

agora que vei a minha pergunda vamos disse que o cliente deleda o imagem mais não limpa o caminho do banco de dado. ele vai dar este erro "erro file not found arquivo.jpg"

eu ja fez um teste com tratamento de erro mais não deu certo

Public Sub CarregaFoto(mCaminho As String, mForm As Form)

    On Error Resume Next
        If Dir$(Lc_BancodeDados & "FOTOS" & mCaminho & ".JPG") <> "" Then
            Set mForm.Image1.Picture = LoadPicture(Lc_BancodeDados & "FOTOS" & mCaminho & ".JPG")
        Else
            Set mForm.Image1.Picture = Nothing
        End If
    On Error GoTo 0

End Sub

eu verifico se o arquivo existe.

 

Roberto

obrigado deu certo