[Resolvido]Inserindo valores em tabela com um botão

Olá senhores,
Preciso criar um botão que ao ser clicado insira um valor em uma tabela.
A tabela tem dois campos:
DATA e TIPO
Ao clicar no botão seria inserido a data e hora atual ()agora no campo DATA e um texto próprio do botão no campo TIPO.
Alguém ajuda?

Vailson

No evento ao clicar de seu botão:

Código:

Dim DB As Database, rs As dao.Recordset
Set DB = CurrentDb()
Set rs = DB.OpenRecordset("SuaTabela") 'Abre a tabela
rs.AddNew
rs("DATA") = date
rs("TIPO") = "O Texto que você desejar"
rs.Update
rs.Close
DB.Close

Sucesso!

Olá, no botão, escolha no separador Eventos na linha Ao fazer click e depois escolha procedimento.
Ai você esta no editor de VBA e devera colocar (nomes denexemplo)
Me.SeuCampoData = Agora()
Me.SeuCampoTipo = "Olá"

Não testado, abraço

Uilson,
inseri seu código com as seguintes modificações em um botão criado em um formulário:

Código:

Dim DB As Database, rs As dao.Recordset
Set DB = CurrentDb()
Set rs = DB.OpenRecordset("Atend190") 'Abre a tabela
rs.AddNew
rs("DATA") = agora()
rs("TIPO") = "Trote"
rs.Update
rs.Close
DB.Close

Obtive esse erro: A expressão que você inseriu contém sintaxe inválida.


ahteixeira,
Não entendi onde iria inserir a identificação da tabela.


O nome da Tabela é Atend190
Campos DATA e TIPO

Se puderem explicar melhor
Abcs

Uilson,
como falamos aqui na Bahia, "futuquei" e descobri os erros:

Código:

Private Sub Comando0_Click()
Dim DB As Database, RS As DAO.Recordset
Set DB = CurrentDb()
Set RS = DB.OpenRecordset("Atend190")
RS.AddNew
RS("DATA") = Now
RS("TIPO") = "Trote"
RS.Update
RS.Close
DB.Close
End Sub

Essa forma resolveu meu problema.
Muito Obrigado pela Dica.

Ola, ja resolveu.
Fui eu que não compreendi bem a questão, pensei que era num formulário com origem de dados vinculados.
Obrigado pelo retorno.
Abraço

Perfeito Vanison.

Abraços,