Início
![[Resolvido]Inserindo fotos e salvando automaico Empty](https://2img.net/i/empty.gif)
crysostomo Sex 25 Jan 2019, 13:40Amigos boa tarde.
tenho uns formulario ,que insere fotos, eu uso esse meio aqui:
Não consigo criar um código dentro desse que ao inserir a foto , o sistema automaticamente salva a foto em uma pasta com um nome do campo do cadastrado
tenho uns formulario ,que insere fotos, eu uso esse meio aqui:
- Código:
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
Não consigo criar um código dentro desse que ao inserir a foto , o sistema automaticamente salva a foto em uma pasta com um nome do campo do cadastrado
