Prezados, visando aprimorar mais ainda um sistema de busca para meu cliente, estou tendo um pequeno problema no código descrito abaixo, o mais interessante é que se eu clicar em fim na mensagem de aviso, o sistema carrega a foto.
Poderia eu contornar esse erro usando o : On error resume next, mas não ficaria correto.
Estou anexando um print screen da tela
Private Sub lstvei_Click()
Dim intrecord As Integer
intrecord = Me!lstvei.Column(0)
Forms![frmblococliente].SetFocus
DoCmd.GoToControl "idblocomotor"
DoCmd.FindRecord intrecord
Dim f As String
f = "[idblocomotor]=" & Me![lstvei].Column(0)
DoCmd.ApplyFilter , f
If IsNull(Parent!localfoto) = False Then --> o erro ocorre nessa linha.
Parent!foto.Picture = CurrentProject.Path & "\bloco\" & Parent.localfoto.Value
Else
Parent!foto.Picture = CurrentProject.Path & "\bloco\" & "SemFoto.gif"
End If
Exit Sub
End Sub
Conto com a ajuda dos colegas.
Abraços a todos.
Poderia eu contornar esse erro usando o : On error resume next, mas não ficaria correto.
Estou anexando um print screen da tela
Private Sub lstvei_Click()
Dim intrecord As Integer
intrecord = Me!lstvei.Column(0)
Forms![frmblococliente].SetFocus
DoCmd.GoToControl "idblocomotor"
DoCmd.FindRecord intrecord
Dim f As String
f = "[idblocomotor]=" & Me![lstvei].Column(0)
DoCmd.ApplyFilter , f
If IsNull(Parent!localfoto) = False Then --> o erro ocorre nessa linha.
Parent!foto.Picture = CurrentProject.Path & "\bloco\" & Parent.localfoto.Value
Else
Parent!foto.Picture = CurrentProject.Path & "\bloco\" & "SemFoto.gif"
End If
Exit Sub
End Sub
Conto com a ajuda dos colegas.
Abraços a todos.
Última edição por Silvio em 5/2/2014, 13:58, editado 1 vez(es) (Motivo da edição : acréscimo)