[Resolvido]Criar Tabela de Historico

Bom Dia!

Preciso de um help...
Tenho um formulario com varios dados dos clientes, e tem uma caixa de de combinacao com a ocorrencias,
eu preciso criar uma tabela de historico que toda vez que clicar no botao salvar, insira os dados
em outra tabela, mas somente alguns dados ex:
"data" que finalizaram o contato
"campo chave"
"ocorrencia" (acordo realizado, cliente nao localizado etc )
"obs" o usuario incluira informaçoes dos clientes etc...

Bom dia Amigo!

Aqui onde trabalho faço assim:

Código:

'-----------inicio log----------------------------------
Dim caminho As String
Dim DB As DAO.Database
Dim rs As DAO.Recordset
caminho = "\\192.168.0.50\BD\BASEDADOS\log.accdb"
Set DB = OpenDatabase(caminho)
Set rs = DB.OpenRecordset("tbl_log")
rs.AddNew
rs("data") = Date
rs("datahora") = Now
rs("usuario") = Form_Menu_Principal.usuario
rs("loja") = Form_Menu_Principal.loja
rs("modulo") = "Menu"
rs("funcao") = "Clicar Btn Devolucao"
rs("obs") = ""
rs("computador") = Environ("USERNAME")
rs.Update
rs.Close
Set rs = Nothing
'-------------------fim log-------------------------

Danilo,

Eu sou muito novato com isso nao tenho muito conhecimento de vb..eu mostei desta forma esta correto
lembrando que tenho uma tabela com as finalizacoes e outra com usuarios
que estao no formularios como caixas de combinacao.


Dim caminho As String
Dim DB As DAO.Database
Dim rs As DAO.Recordset
caminho = "C:\Users\EderL\Desktop\Planejamento_Mis\01_bancos\01_banco_clientes.accdb"
Set DB = OpenDatabase(caminho)
Set rs = DB.OpenRecordset("03_ACIONAMENTOS")
rs.AddNew
rs("data") = Date
rs("usuario") = Form_acesso.usuario
rs("usuario") = Form_CLIENTES.finalizacao
rs("obs") = Form_CLIENTES.obs

rs.Update
rs.Close
Set rs = Nothing

Não entendi qual a duvida

não deu certo da forma que expliquei ?

Ele da um erro e aponta para o caminho onde esta o banco

Dim caminho As String
Dim DB As DAO.Database
Dim rs As DAO.Recordset
caminho = "C:\Users\EderL\Desktop\Planejamento_Mis\01_bancos\01_banco_clientes.accdb"
Set DB = OpenDatabase(caminho)
Set rs = DB.OpenRecordset("03_ACIONAMENTOS")
rs.AddNew
rs("data") = Date
rs("usuario") = Form_acesso.usuario
rs("usuario") = Form_CLIENTES.finalizacao
rs("obs") = Form_CLIENTES.obs

rs.Update
rs.Close
Set rs = Nothing



Erro de compilação:
invalido fora de um procedimento


como lhe disse eu conheco da logica de programacao de vb...

Eder

O erro está informando que você colocou o código fora de um procedimento.
Ou seja,

O código está perdido, não tem nada que o chame.

Você tem que escolher onde colocar esse código para que ele funcione.

No caso, no botão Salvar.


Noob

Nob...

Eu mudei agora estava rodando mas deu outro erro

" erro em tempo de execucao '3734'

o usuario "admin' na maquina etc etc etc
colocou o bando de dados em um estado que impede de ser aberto etc etc..


qdo clico em depurar em aponta para o caminho

Private Sub Insert_Click()

Dim caminho As String
Dim DB As DAO.Database
Dim rs As DAO.Recordset
caminho = "C:\Users\EderL\Desktop\Planejamento_Mis\01_bancos\01_banco_clientes.accdb"
Set DB = OpenDatabase(caminho)
Set rs = DB.OpenRecordset("03_ACIONAMENTOS")
rs.AddNew
rs("data") = Date
rs("usuario") = Form_acesso.nome
rs("usuario") = Form_CLIENTES.[1_ACIONAMENTO]
rs("obs") = Form_CLIENTES.OBS_CONTATO

rs.Update
rs.Close
Set rs = Nothing

End Sub

Eder

O banco de dados está dividido em FE E BE?

Senão, mude essa linha:

Set DB = OpenDatabase(caminho)

Para:

Set DB = CurrentDb()


Aguardo...


Noob

Perfeito galera funcionou...certinho...
de momento esta otimo quero aprimorar mais depois...
colocando o usuario e tal... qdo logar...mas qdo melhorar rs


valeu gente

obrigado mesmo.

Ótimo Eder

Só falta colocar o Resolvido no título.

Para isso, clique no botão resolvido na parte de baixo da janela onde você envia mensagens.

Boa sorte!

Noob

ok valeu