[Resolvido]Salvar dados de form em tabela não vinculada

Tarrrde!

Meus amigos cérebros, tenho um form 'frmFuncionarios' ligado à tabela 'tblFuncionarios' e gostaria de um código onde, ao clicar em OK, o access salva os campos x, y, z nos campos x, y, z de outra tabela chamada 'tblHistoricoFuncionarios'

Já tentei o cód: CurrentDb.Execute "INSERT INTO tblHistoricoFuncionarios (usuario, data, idForm, operacao) Values(" & Me.usuarioAtual & ", " & Me.agora & " & Me.idtela & " & "teste" & ")"


mas não funfou!!!

Consegui!!

Ajustei o cód para: CurrentDb.Execute "INSERT INTO tblHistoricoFuncionarios (usuario, data, idForm, operacao) Values('" & usuarioAtual & "', Now(), '" & Me.idform & "', '" & "teste" & "')"

Porém preciso que cada vez que clicar no botão seja inserido uma nova linha e isso não estou conseguindo fazer..

Alguem pode me ajudar?

Boa tarde Krauss

Eu utilizo esse código:

Private Sub EventoRealizado_Click()
Dim db1 As Database, db2 As Database, rs1 As DAO.Recordset, rs2 As DAO.Recordset, rs3 As DAO.Recordset
If MsgBox("Confirma a Realização do Evento ?", vbYesNo + vbQuestion, "XXXXXXXXX") = vbYes Then

Set db1 = CurrentDb
Set rs1 = db1.OpenRecordset("Eventoencerrado", dbOpenTable) ' "Evento encerrado" é a tabela que recebe os dados

With rs1
' os campos abaixo do formulário tem que ser iguais aos que estão na tabela para realizar a exportação
.AddNew
' campos que estão na tabela = campos do fomulario
![IdEvento1] = Me.IdEvento1
![Cliente] = Me.Cliente
![Idcliente] = Me.Idcliente
![DataEntregaFotos] = Me.DataEntregaFotos
![Fotografia] = Me.Fotografia
![Fotomontagens] = Me.Fotomontagens
![Videobook] = Me.Videobook
![Filmagem] = Me.Filmagem
![Outros] = Me.Outros
'*********************************************************************************
'campos que estão no subformulário, caso você tenha algum subformulário.....
![Idevento] = Forms![cadastrar eventos]![subevento Subformulário]!Idevento
![DataEvento] = Forms![cadastrar eventos]![subevento Subformulário]!DataEvento
![HoraInicio] = Forms![cadastrar eventos]![subevento Subformulário]!HoraInicio
![LocalEvento] = Forms![cadastrar eventos]![subevento Subformulário]!LocalEvento
![Observacao] = Forms![cadastrar eventos]![subevento Subformulário]!Observacao
'**********************************************************************************

.Update

End With

'DoCmd.RunCommand acCmdDeleteRecord
DoCmd.RunCommand acCmdRefresh
DoCmd.GoToRecord , , acNewRec

MsgBox "Encerramento confirmado. !", vbOKOnly + vbInformation, "XXXXXXXX"
End If
End Sub

É apenas adaptar para o seu.

Teste e nos informe !

abraços

Perfeito!!!

Grato pela ajuda Silvio.

Abraços!

De nada....

O fórum agradece o retorno.

Bom fim de semana para ti.