Boa tarde pessoal. Tenho um sistema que trabalho muito com fotografias do cliente. Tiramos a foto da webcam, salvamos numa pasta do servidor e depois faço uma referência para buscar a foto de um campo texto (caminho salvo) e converte em campo foto.
Para inserir o caminho como campo texto e vincular no registro utilizo o seguinte código:
Dim strCaminho As String, strPastaInicial As String
strPastaInicial = "C:\Documents and Settings\Cliente\Desktop\fotos\imagens"
strCaminho = Buscar(Me.hwnd, "Inserir foto", strPastaInicial, _
"Arquivos gráficos (*.bmp; *.gif; *.jpg)" & vbNullChar & "*.bmp; *.gif; *.jpg")
If Len(strCaminho) > 0 Then
Me.localfoto1 = strCaminho
Me.Foto1.Picture = Me.localfoto1
Call cmdSalvar_Click
End If
Depois, para mostrar a foto na pasta, seja no botão "ao clicar" ou no evento "no atual", utilizo o seguinte código
If IsNull(Me.localfoto1) = False Then
Me.Foto1.Picture = ""
Me.Foto1.Picture = Me.localfoto1
Else
Me.Foto1.Picture = ""
End If
Gostaria de saber se alguém sabe de um código ou tem um formulário do access que eu tire a foto do próprio access e já vincule automaticamente no campo após tirar a foto.
Para inserir o caminho como campo texto e vincular no registro utilizo o seguinte código:
Dim strCaminho As String, strPastaInicial As String
strPastaInicial = "C:\Documents and Settings\Cliente\Desktop\fotos\imagens"
strCaminho = Buscar(Me.hwnd, "Inserir foto", strPastaInicial, _
"Arquivos gráficos (*.bmp; *.gif; *.jpg)" & vbNullChar & "*.bmp; *.gif; *.jpg")
If Len(strCaminho) > 0 Then
Me.localfoto1 = strCaminho
Me.Foto1.Picture = Me.localfoto1
Call cmdSalvar_Click
End If
Depois, para mostrar a foto na pasta, seja no botão "ao clicar" ou no evento "no atual", utilizo o seguinte código
If IsNull(Me.localfoto1) = False Then
Me.Foto1.Picture = ""
Me.Foto1.Picture = Me.localfoto1
Else
Me.Foto1.Picture = ""
End If
Gostaria de saber se alguém sabe de um código ou tem um formulário do access que eu tire a foto do próprio access e já vincule automaticamente no campo após tirar a foto.
Última edição por Eduardo Pires em 21/7/2014, 20:22, editado 1 vez(es)