[Resolvido]Valor da textbox1 e textbox2 ir para uma tabela

Essas textboxes não estão acopladas, eu quero que, ao clicar no botão, o valor das textbox irem para uma tabela.

Tenho a tabela userlogado com os campos código, nome e senha, então, os valores da textboxes irão cair nesses campos.


Tentei criar uma consulta de acrescentar e botei os critérios as textboxes do formulário, mas não foi.

Boas,

Crie uma tabela temporária (tbltemp por exemplo ) e no seu formulário, um botão e no evento click do mesmo, o seguinte código:

Private Sub exporta_Click()
'rotina para exportar dados do formulário para uma tabela
Dim db1 As Database, db2 As Database, rs1 As DAO.Recordset, rs2 As DAO.Recordset, rs3 As DAO.Recordset

If MsgBox("sua mensagem ?", vbYesNo + vbQuestion, "CONFIRMAR") = vbYes Then

Set db1 = CurrentDb

Set rs1 = db1.OpenRecordset(" tabela userlogado", dbOpenTable)

With rs1
' os campos abaixo do formulário tem que ser iguais aos que estão na tabela para realizar a exportação
.AddNew
![Idusario] = Me.Idusario
![Nome] = Me.Nome
![senha] = Me.senha
.Update
End With
DoCmd.RunCommand acCmdDeleteRecord
MsgBox "sua mensagem !", vbOKOnly + vbInformation, "Concluído"


Veja se lhe atende.

Abraços.

Adaptei o seu código e funcionou, ficou assim:
só que a linha que tu postou "DoCmd.RunCommand acCmdDeleteRecord" deu erro, qual seria a intenção dessa linha nesse codigo? ficou assim

Private Sub Comando4_Click()

'rotina para exportar dados do formulário para uma tabela
Dim db1 As Database, db2 As Database, rs1 As DAO.Recordset, rs2 As DAO.Recordset, rs3 As DAO.Recordset

Set db1 = CurrentDb

Set rs1 = db1.OpenRecordset("userlogado", dbOpenTable)

With rs1
' os campos abaixo do formulário tem que ser iguais aos que estão na tabela para realizar a exportação
.AddNew
![usuariologado] = Me.txtuser
![senha] = Me.txtsenha
.Update
End With
MsgBox "sua mensagem !", vbOKOnly + vbInformation, "Concluído"

End Sub




OBRIGADO, CARA. OBRIGADO MESMO, AGRADEÇO AQUI.

Se funfou...beleza mesmo.

Aquela linha eu coloquei ela por engano...força do habito mesmo. Ela limpa uma tabela.

O fórum agradece teu retorno.

Abraços.

Então tipo, seria interessante eu botar esse comando pra limpar a tabela antes?

Porque tipo, como é o último usuário logado, seria interessante limpar tabela antes de ser inserida.

E aí, onde posso colocar esse 'limpador' pra limpar antes nesse código que postei?


Obrigadooooooooooooo, obrigado mesmo. ^D

Bom dia.....

limpar=deletar

DoCmd.RunCommand acCmdDeleteRecord = deletar o registro em um tabela.

Mas esse aí só vai apagar um registro, né?

Eu tô falando assim, como a tabela é pra saber o último usuário registrado, queria deletar o que tem na tabela pra depois inserir o usuário.

Ou seria melhor quando eu quiser pegar informações do último logado, usar o Dmáx no CÓD?

Aconselho-te, a deixar a tabela como ela está. Para fins de consulta de quem logou.

O uso do DMax, é uma boa solução.

Abraços.

Obrigado aí, Silvio.

Obrigado mesmo. kk


Resolvido.