[Resolvido]Refresh na imagem

Pessoal

Em um formulario com foto estou com dificuldade de dar um Refresh na imagem.
Digito o produto, se a imagem existe ela aparece no formulario porem, e se o proximo produto nao tem foto, permanece a imagem do produto anterior. Tentei usar refresh e nao obtive sucesso.

Alterei com uma consulta açao todos os campos Null ( caminho da foto ) para um valor padrao de maneira que facilitaria na hora de atualizar ( diretorio/pasta/foto.jpg ) Nao deu certo, vem mensagem de erro Nao pode abrir o arquivo diretorio/pasta/foto.jpg ( Claro ... a foto nao existe rsrsrsrs )
Sao 5000 fotos e ate agora tenho cadastrado 800 fotos que seria otimo de ir usando pois o sistema esta em operaçao.

PS. Quando o primeiro produto a ser digitado nao possui foto, vem mensagem de erro Tipos Incompativeis

Por favor, se alguem tiver uma ideia coloque aqui. Desde ja agradeço

No evento atual de seu form

On Error GoTo Limpa

If IsNull(Me.Foto) = False Then
Me.img.Picture = Me.Foto
Else
Me.img.Picture = Null
End If

sai:
Exit Sub

Limpa:
Me.img.Picture = ""
Resume sai

Me.form.refresh
'E depois caso tenha campos calculados coloque na sequencia
Me.recalc

Ola TopBr

Acertou na mosca.
Obrigado. Dou como resolvido.

... Tentei usar o mesmo para um outro formulario no mesmo sistema. Este form tem um subformulario ( a foto esta no Form e nao no sub ) onde digito o codigo do produto e nao resolveu, coloquei o procedimento abaixo no campo Produto do sub

Private Sub Produto_AfterUpdate()
' dica do colega topbr do forum

On Error GoTo Limpa

If IsNull(Me.foto) = False Then
Forms!Romaneios!Imagem3.Picture = Me.foto

Else
'Me.Imagem3.Picture = Null
Forms!Romaneios!Imagem3.Picture = ""

Me.Form.Refresh


' coloquei este Beep para lembrar que o produto nao tem foto
' observei que nao soa o beep

DoCmd.Beep
DoCmd.Beep
DoCmd.Beep


End If

sai:
Exit Sub

Limpa:

'Me.Imagem3.Picture = ""
Me.Form.Refresh
Forms!Romaneios!Imagem3.Picture = ""
Me.Form.Refresh

DoCmd.Beep
DoCmd.Beep
DoCmd.Beep
Resume sai

Me.Form.Refresh
' Me.recalc



End Sub


Topbr, se vc tiver alguma ideia, eu agradeço.

Para dar o tópico por Resolvido existe um botão abaixo para esse efeito. Desta vez eu coloco

'Se é form deixe assim no evento atual do form que tem a foto
On Error GoTo Limpa

If IsNull(Me.foto) = False Then
me.Imagem3.Picture = Me.foto

Else
'Me.Imagem3.Picture = Null
me.Imagem3.Picture = ""

Me.Form.Refresh


' coloquei este Beep para lembrar que o produto nao tem foto
' observei que nao soa o beep

DoCmd.Beep
DoCmd.Beep
DoCmd.Beep


End If

sai:
Exit Sub

Limpa:

'Me.Imagem3.Picture = ""
Me.Form.Refresh
me.Imagem3.Picture = ""

DoCmd.Beep
DoCmd.Beep
DoCmd.Beep

Resume sai

Me.Form.Refresh
' Me.recalc

Ola vieirasoft

Desculpa ai.
Foi mancada minha.
Nao irei repetir.

Tudo bem companheiro. Abraço e bom trabalho