Bom dia!
Usei o exemplo CopiarFotoParaPastaDoBd, do MaximoAccess, para inserir fotos no Formulário de Aluno. Funcionou bem.
Agora esta acontecendo o seguinte, quando coloco uma foto ele aparece em todos os alunos. Mas quando visualizo aparece a foto correta, verifiquei o caminho esta correto.
segue o código usado:
Evento - No Atual:
On Error GoTo Limpa
If IsNull(Me.Foto_Cliente) = False Then
Me.img.Picture = Me.Foto_Cliente
Else
Me.img.Picture = ""
End If
Sai:
Exit Sub
Limpa:
Me.Foto_Cliente = Null
Me.img.Picture = ""
Resume Sai
As foto se repetem em todos alunos na hora de visualizar
Usei o exemplo CopiarFotoParaPastaDoBd, do MaximoAccess, para inserir fotos no Formulário de Aluno. Funcionou bem.
Agora esta acontecendo o seguinte, quando coloco uma foto ele aparece em todos os alunos. Mas quando visualizo aparece a foto correta, verifiquei o caminho esta correto.
segue o código usado:
Evento - No Atual:
On Error GoTo Limpa
If IsNull(Me.Foto_Cliente) = False Then
Me.img.Picture = Me.Foto_Cliente
Else
Me.img.Picture = ""
End If
Sai:
Exit Sub
Limpa:
Me.Foto_Cliente = Null
Me.img.Picture = ""
Resume Sai
As foto se repetem em todos alunos na hora de visualizar