[Resolvido]Inserindo caminho da Foto em tabela não vinculada ao Front End

Amigos.. tenho este código que adiciona o caminho da foto em um form vinculado a uma tabela..

Como estou desvinculando... como fazer para gravar o caminho diretamente no Back End..?


Dim strCaminho As String, strPastaInicial As String
strPastaInicial = "C:\Syspen\FotosVeiculos\"
strCaminho = Buscar(Me.hwnd, "Inserir foto", strPastaInicial, _
"Arquivos gráficos (*.bmp; *.gif; *.jpg)" & vbNullChar & "*.bmp; *.gif; *.jpg")
If Len(strCaminho) > 0 Then
Me.LocalFoto = strCaminho
Me.Foto.Picture = Me.LocalFoto
End If


Grato

Não serve usando o WorkSpace com db e rs?

Pois é.. esta pensando justamente nisso agora..

como vou salvar os dados via recordSet.. Vou criar uma função para fazer um updade na tabela, e no final desse comando aplico um call....

Bem.. estou a criar a função aqui.. jaja dou retorno

Grato!

é isso...

Eis o Baita!

'*************************
Código Botão
'*************************
Private Sub btnFotoDir_Click()
Dim strCaminho As String, strPastaInicial As String
strPastaInicial = "C:\Syspen\FotosAdm\"
strCaminho = Buscar(Me.hwnd, "Inserir foto", strPastaInicial, _
"Arquivos gráficos (*.bmp; *.gif; *.jpg)" & vbNullChar & "*.bmp; *.gif; *.jpg")
If Len(strCaminho) > 0 Then
Me.txtCaminhoDiretor = strCaminho
Me.PictureDiretor.Picture = Me.txtCaminhoDiretor
MsgBox "Foto aplicada com Sucesso!", vbInformation, "Syspen"
Call SalvarRegistro
End If
End Sub


'*******************************
Função Salvar
'*******************************




Sub SalvarRegistro()
Parametros_de_Inicializacao "SysPen.par"
'*******************************************************************************
'Popula Campos fixos da unidade no Formulário
'*******************************************************************************
Dim dbLocal As DAO.Database
Dim ws As DAO.Workspace
Dim rsAdm As DAO.Recordset

Set ws = DBEngine.Workspaces(0)
Set dbLocal = ws.OpenDatabase(DirBancoDados & "\Syspen_Be_Local.accdb", False, False, "MS Access;PWD=senha")

strSQLAdm = "SELECT * FROM Administração"
Set rsAdm = dbLocal.OpenRecordset(strSQLAdm)

rsAdm.Edit ' Abre a edição do registro

'**********************************************************
'Para o redorsetcrsAdm
'**********************************************************
rsAdm![Regional] = Me.txtRegional
rsAdm![Endereco Unidade] = Me.txtEndereco
rsAdm![Nome da Unidade] = Me.TxtUnidade
rsAdm![Telefone1] = Me.txtTel1
rsAdm![Telefone2] = Me.txtTel2
rsAdm![Fax] = Me.txtFax
rsAdm![EMail] = Me.txtEmail
rsAdm![Diretor] = Me.txtDiretor
rsAdm![CPF] = Me.txtCPFDiretor
rsAdm![Área de Formação] = Me.txtFormacaoDiretor
rsAdm![Supervisor] = Me.txtSupervisor
rsAdm![CPF1] = Me.txtCPFSupervisor
rsAdm![Área de Formação1] = Me.txtFormacaoSupervisor
rsAdm![Computadores] = Me.txtComputador
rsAdm![Internet] = Me.txtInternet
rsAdm![Infopen] = Me.txtInfopen
rsAdm![Terceirização] = Me.txtTerceirizacao
rsAdm![Agentes Quantidade] = Me.txtQTDAgentes
rsAdm![Estabelecimento para] = Me.txtEstabelecimento
rsAdm![Estabelecimento para1] = Me.txtEstabelecimento1
rsAdm![Estabelecimento para2] = Me.txtEstabelecimento2
rsAdm![Estabelecimento para3] = Me.txtEstabelecimento3
rsAdm![Estabelecimento para4] = Me.txtEstabelecimento4
rsAdm![Pátio Visita Familiar] = Me.txtPatio
rsAdm![Sala de Aula] = Me.txtSalaAula
rsAdm![Sala Artesanato] = Me.txtArtesanato
rsAdm![Banho de Sol] = Me.txtBanhoSol
rsAdm![Parlatório] = Me.txtParlatorio
rsAdm![Seguro] = Me.txtSeguro
rsAdm![Consultório Médico] = Me.txtConsultorio
rsAdm![Consultório Odontológico] = Me.txtConsultorioOdontologico
rsAdm![Enfermaria] = Me.txtEnfermaria
rsAdm![Assistência Social] = Me.txtAssistenciaSocial
rsAdm![Assistência Material] = Me.txtAssistenciaMaterial
rsAdm![Assistência Saúde] = Me.txtAssistenciaSaude
rsAdm![Assistência Religiosa] = Me.txtAssistenciaReligiosa
rsAdm![Assistência Jurídica] = Me.txtAssistenciaJuridica
rsAdm![Condições] = Me.txtCondicoesEstabelecimento
rsAdm![Observações] = Me.txtObservacoes
rsAdm![Cidade] = Me.txtCidade
rsAdm![FotoDiretor] = Me.txtCaminhoDiretor
rsAdm![FotoSupervisor] = Me.txtCaminhoSupervisor

' Atualiza os dados na tabela
rsAdm.Update
MsgBox "Registro Salvo com sucesso...", vbInformation

rsAdm.Close
dbLocal.Close
Set rsAdm = Nothing
Set dbLocal = Nothing

End Sub



Saudações a todos

Bota baita bem baitaço