Estou usando o controle data e access 2000. estou salvando as fotos no banco de dados apenas o seu caminho (fotosfoto1.jpg). Minha dúvida é: como que faço para quando clicar no controle data (para frente ou para trás) os registros das fotos também vão sendo atualizadas?

 

coloquei essa função no evento load, mas não faz o que quero..., em qual evento devo colocar?, e se algum registro do campo foto estiver em branco, como faço para não aparecer mensagem de erro?

 

 

Image1(0).Picture = LoadPicture(App.Path & dtaapart.Recordset.Fields("foto"))

Mais uma vez obrigado...

Marcelo

Shel, isto é fácil, coloque um Text(txtFOTO) no formulário, deixe ele invisivel, e aponte para seu controle Data (DataSource)

Quando efetuar sua consulta ou abrir o BD coloque este comando

 

If Data1.Recordset.Recordcount > 0 Then

 txtFOTO.DataField = "CAMPO_NOME_DAFOTO"

End If

 

Em cima do seu controle imagem onde vai a foto coloque um Label(lblFOTO), e coloque a propriedade .Caption = "Não existe foto"

 

No evento Change do Text

voce manda carregar a foto, colocando uma saida para o erro.

 

Private Sub txtFOTO_Change()

 FOTO

End Sub

 

' Função para carregar a foto

 

Private Function FOTO()

Dim sLOAD As Picture

On Error GoTo erro
 Image1(0).Visible = True
 Set sLOAD = LoadPicture(txtFOTO.Text)
 Set Image1(0).Picture = sLOAD
 lblFOTO.Visible = False
 Exit Function
erro:
 Image1(0).Visible = False
 lblFOTO.Visible = True
End Function

 

Pronto com isto não se preocupe com mais nada, a medida que o usuário navegar no Data, a foto vai mudando automaticamente, se não existir foto ele exibe o Label de que não existe.

 

vlu//

é no evento validate q vc tem q por o código:

 

Private Sub Data1_Validate(Action As Integer, Save As Integer)

End Sub

 

Action = 1 'MoveF irst

Action = 2 'Move Previous

Action = 3 'Move Next

Action = 4 'MoveL ast

 

t+

Droga... esqueci q o Data tem um erro... faz assim pra q seu código funcione direito:

 

Dim posicao As Long
Private Sub Data1_Validate(Action As Integer, Save As Integer)
Select Case Action
    Case 1
        Data1.Recordset.MoveF irst: posicao = 0
    Case 2
        Data1.Recordset.AbsolutePosition = posicao - 1: posicao = posicao - 1
    Case 3
        Data1.Recordset.AbsolutePosition = posicao + 1: posicao = posicao + 1
    Case 4
        Data1.Recordset.MoveL ast: posicao = Data1.Recordset.AbsolutePosition
End Select

 

Image1(0).Picture = LoadPicture(App.Path & dtaapart.Recordset.Fields("foto"))

 

End Sub

t+

Valeu pela ajuda de todos!, usei o método do Lcramos e tá funcionando legal...; agora percebi outro erro: quando clico para cadastrar ou editar algum dado e movimento o controle data e depois clico para salvar o registro aparece um erro. como evitar isso?

 

Marcelo

qual a descrição do erro? Em qual linha de código isso acontece?