Amigos boa noite. ja percorri o forum , mas não consigo adaptar no codigo.
Quero que o sistema guarda a foto
Quero que o sistema guarda a foto
- Código:
Private Sub inserirfotos_Click()
Dim s As String
s = OpenCommDlg()
If s <> "" Then
foto = s
foto_AfterUpdate
End If
End Sub
Private Sub Form_Current()
foto_AfterUpdate
End Sub
Private Sub foto_AfterUpdate()
Dim s As String
s = Nz(foto.Value, "")
If s <> "" Then s = IIf(Dir(s) = "", "", s)
On Error Resume Next
Imagem3.Picture = s
If err.Number <> 0 Then Imagem3.Picture = ""
On Error GoTo 0
End Sub