Ola... eu de novo... tenho um projeto, um cadastro, esta funcionando direitinho, mas agora gostaria de colocar fotos.   tem como incluir no projeto isso? eu já criei uma rotina para imagens... mas gostaria de ssaber se tem como incluir essas fotos no banco de dados (access), como um campo, e quando eu clicar para aparecer o nome do cliente, tambem apareca a foto dele... alguem pode me ajudar?  por favor!!!

 

Colocar a foto no BD, não tem nenhuma vantagem, pois pode ficar enorme, coloque apenas o nome da foto no BD, e ao carregar o registro edite a foto juntamente com o registro, voce pode até mesmo fazer uma rotina de ampliação da foto no registro.

Coloque um controle Image e coloque a função conforme sua necessidade.

 

Para carregar a foto:

Private Function FOTO()
 Dim suFOTO As String

 Dim sLOAD As Picture
 suFOTO = sDRIVE & sPASTA & "S" & sCODIGO & ".BMP"
 If Dir$(suFOTO) = "" Then
  suFOTO = sDRIVE & sPASTA & "S" & sCODIGO & ".JPG"
 End If
On Error GoTo erro
 If suFOTO <> "" Then
  imgFOTO.Visible = True
  Set sLOAD = LoadPicture(suFOTO)
  Set imgFOTO.Picture = sLOAD
  lblFOTO.Visible = False
  Exit Function
 Else
  imgFOTO.Visible = False
 End If
erro:
 imgFOTO.Visible = False
 Msgbox "Não existe foto"
End Function

 

Para ampliar a foto:

Private Sub imgFOTO_Click()
 If imgFOTO.Top = 180 Then
  imgFOTO.Top = 120
  imgFOTO.Left = 3660
  imgFOTO.Height = 4620
  imgFOTO.Width = 4275
 Else
  imgFOTO.Top = 180
  imgFOTO.Left = 8760
  imgFOTO.Height = 1740
  imgFOTO.Width = 1575
 End If
End Sub

 

Espero ter ajudado.

 

vlu//