[Resolvido]Controle de ponto

Bom dia todos,

Tenho um formulário chamado ControlePonto, já consegui fazer com que ao clicar no botao registrar, registrasse a data e o horario com este codigo ao clicar no botao ---->> CurrentDb.Execute "INSERT INTO ControlePonto(Data, Horario) Values (#" & Date & "#, #" & Time & "#);"

Mas agora quero que o mesmo botao salve o CodigoUsuario e o Nome e mostre uma mensagem ex: "Registro Salvo com Sucesso"

Alguem poderia me ajudar.

Olhei nos repositorios, mas não encontrei e tambem conheço muito pouco de CodigoVBA

Grato!!!!

E tem esses dados no formulário? Acredito que sim, pois se o usuário está logado, precisa ter os dados dele em um form, certo? Basta adicionar esses campos na instrução que grava o registro:

CurrentDb.Execute "INSERT INTO ControlePonto(CodUser, Data, Horario) Values ('" & Me.CodUser & "', #" & Date & "#, #" & Time & "#);"
MsgBox "Registro salvo", vbInformation, "Sucesso"

Não precisa gravar o nome do usuário e nem é recomendado, uma vez que, com o código, você pode pesquisar o nome quando precisar.

Obrigado Criqui deu certo

Mas acho que fiz algo errado.

No meu Controle de Ponto eu coloquei no Horario uma combox com os campos (Entrada, Saida Almoço, Retorno Almoço, encerrar expediente), ate blz.
Quando registro por ex. Entrada e depois registro Saida Almoço, o ultimo registro é colocado por cima do primeiro e não consigo ter o controle. O que posso fazer?
Retirar o combox? e como poderia ficar?

Como é a estrutura do sistema? Quantas e quais são as tabelas envolvidas no processo? Como estão os relacionamentos entre elas?

Na realidade Criquio Este Controle de Ponto está sem nenhum sistema envolvido, este controle é para a empresa da minha esposa.

Criei uma tabela chamada tblCadastroUsuarios, e outra chamada tblControlePonto e seus respectivos formularios, então não achei necessidade de relaciona-los.

Segue o meu BD http://www.megaupload.com/?d=GE56P2PK

Olá Criquio,

Como faço para acrescentar o campo TIPO no botão Salvar?
Este campo TIPO esta com uma combox e fiz o que me orientou

CurrentDb.Execute "INSERT INTO tblControlePonto(CodigoUsuario, Data, Horario) Values ('" & Me.CodigoUsuario & "', #" & Date & "#, #" & Time & "#);"
MsgBox "Registro salvo", vbInformation, "Sucesso"

Mas quero incluir tambem este Campo Tipo, como eu posso fazer?

Criquio Bom dia,

O codigo VBA que estou tentando fazer não esta dando certo


CurrentDb.Execute "insert into tblControlePonto(CodigoUsuario, Tipo, Data, Hora) values ('" & me.CodigoUsuario & "'," & me.Tipo & ",#" & Date & "#, #" & Time & "#);"

Mas não esta dando certo, nenhum destes campos esta entradondo na tabela. O que pode ser?

OBS: Lembrando que o campo TIPO é uma combox com (Entrada,SaidaAlmoçp,RetornoAlmoço,FimExpediente)

Consegui fazer criqui obrigado

Grato pelo retorno.