Boa noite,
seguinte; carrego qualquer foto ou imagem em um objeto IMAGEM no formulário, porém, quando fecho o formulario a ultima imagem carregada não é salva, ou seja, não substitui a primeira, assim, como salvar (importar) substituindo a imagem anterior da tabela pela atual? OBS.: Não quero vincular e nem gravar o caminho da imagem na tabela, mas sim, gravar a imagem de forma que se está for deletada, excluida do HD continuar salva na tabela.
Private Sub imgFOTOPERFIL_Click()
Dim strCaminho As String
Dim strPastaInicial As String
strPastaInicial = "C:\Meus Documentos"
strCaminho = Buscar(Me.hwnd, "Inserir foto", strPastaInicial, _
"Arquivos gráficos (*.bmp; *.gif; *.jpg)" & vbNullChar & "*.bmp; *.gif; *.jpg")
If Len(strCaminho) > 0 Then
Me.imgFOTOPERFIL.Picture = strCaminho
Me.imgFOTOPERFIL.Visible = True
Me.imgFOTOPERFIL.Requery
End If
End Sub
seguinte; carrego qualquer foto ou imagem em um objeto IMAGEM no formulário, porém, quando fecho o formulario a ultima imagem carregada não é salva, ou seja, não substitui a primeira, assim, como salvar (importar) substituindo a imagem anterior da tabela pela atual? OBS.: Não quero vincular e nem gravar o caminho da imagem na tabela, mas sim, gravar a imagem de forma que se está for deletada, excluida do HD continuar salva na tabela.
Private Sub imgFOTOPERFIL_Click()
Dim strCaminho As String
Dim strPastaInicial As String
strPastaInicial = "C:\Meus Documentos"
strCaminho = Buscar(Me.hwnd, "Inserir foto", strPastaInicial, _
"Arquivos gráficos (*.bmp; *.gif; *.jpg)" & vbNullChar & "*.bmp; *.gif; *.jpg")
If Len(strCaminho) > 0 Then
Me.imgFOTOPERFIL.Picture = strCaminho
Me.imgFOTOPERFIL.Visible = True
Me.imgFOTOPERFIL.Requery
End If
End Sub