[Resolvido]Gravar usuário em tabela.

Olá amigo faça o seguinte:

Código:



Dim DB As DAO.Database
Dim rs As DAO.Recordset
Set DB = CurrentDb()
Set rs = DB.OpenRecordset("tblCedocPront")
rs.AddNew
rs("txtUser") = seuUsuario
rs("txtData") = Date
rs.Update




coloque esse código quando no evento salvar dos seus formulários (Botões)  e toda vez que algum usuário salvar algum registro você grava na sua tabela.

acho que é isso ai, boa sorte !

Fiz o que sugeriu,

O código realmente salva usuário e data na tabela, porém, salva na linha abaixo ao registro que acrescento na tabela.

Exemplo: 1 Meu registro salvo
2 Usuário e Data

Porque será?

O código ficou assim.

Dim DB As DAO.Database
Dim rs As DAO.Recordset
Set DB = CurrentDb()
Set rs = DB.OpenRecordset("tblCedocPront")
rs.AddNew
rs("txtUser") = txtUser
rs("txtData") = Date
rs.Update

poderia disponibilizar o projeto para melhor ajuda-lo

Olá,
Segue lin.

https://www.dropbox.com/s/q307451lkpik00u/Banco%20de%20Dados1.accdb?dl=0

Up.

Olá amigo!

coloquei o seguinte código

Código:


'aqui vamos fazer um update na tabela adicionando o usuario e data
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("SELECT * FROM tblCedocPront where ID =" & Me.ID, dbOpenDynaset)
On Error GoTo ERRO
Do
 rst.Edit
 rst![txtUser] = txtUser
 rst![txtData] = Date
 rst.Update
 rst.MoveNext
Loop Until rst.EOF
ERRO:


'fim aqui vamos fazer um update na tabela adicionando o usuario e data



:

daniloreiis, obrigado por sua ajuda,

O código funcionou perfeitamente.