[Resolvido]Incluir data hora em registro

Tenho um formControle de entrada e saidas,
TblControle(Entrada,Saida)

No evento ao clicar estou utilizando:

CurrentDb.Execute "INSERT INTO TblControleAulas(codAluno, Dta, Entrada) Values ('" & Me.CodAluno & "', #" & Date & "#, #" & Time & "#);"
MsgBox "Registro salvo", vbInformation, "Sucesso"

Porem eu consigo apenas para a entrada.Quando vou inserir o mesmo codigo para a saida, ele aparece em campo novo na tabela.Gostaria que ficasse no mesmo campo.
Alguem poderia me ajudar?

Boa noite, danilo

Utilize a instrução "UPDATE ..." para actualizar o registo já inserido.
Tem de ter um campo que controle a inserção dos dados para que, ao actualizar, apenas o registo pretendido seja actualizado.

Obrigado Alexandre pela sua ajuda,

Tentei utilizar da seguinte maneira porem deu erro:

CurrentDb.Execute "UPDATE [tbControleAulas] SET Entrada= #" & Me.Entrada & "# WHERE [codAluno] = " & Me.CodAluno & ";"

O que não estou conseguindo enxergar neste erro?

Boa tarde, danilo
CurrentDb.Execute "UPDATE [tbControleAulas] SET Entrada= #" & Me.Entrada & "# WHERE [codAluno] = " & Me.CodAluno & ";"
Esta expressão significa que actualiza o campo Entrada da tabela tbControleAulas com o valor do controlo Entrada onde o campo codAluno for igual ao controlo CodAluno. O campo Entrada é do tipo data e o campo codAluno é do tipo número.
Alerta: Actualiza todos esses registos da tabela que satisfaçam a condição!

Boa noite Alexandre,
Obrigado pela força, mas ainda não esta dando certo. Tenho 2 Botoes de comando (Entrada, Saida), não estou conseguindo colocar a entrada e saida na mesma coluna da tabela apos registro. Poderia me ajudar?

Se o Alexandre me permitir, eu vi o seu exemplo e no UPdate você tem Me.Entrada quando o campo no form é txtEntrada.

Juntei o UPdate aos dois, entrada e saida;



CurrentDb.Execute "UPDATE [tblControleAulas] SET Entrada= #" & Me.txtentrada & "#, Saida= #" & Me.txtSaida & "# WHERE [codigoControle] = " & Me.codigoControle & ";"

Olá meus amigos,

Desculpem a demora e obrigado pela ajuda de todos. Modifiquei o codigo fornecido, mesmo assim continua dando erro:

CurrentDb.Execute "UPDATE [tblControleAulas] SET Entrada= #" & Me.txtentrada & "#, Saida= #" & Me.txtSaida & "# WHERE [codigoControle] = " & Me.codigoControle & ";"

Erro de sintaxe na expressão e consulta '#'

Boa tarde, danilo
1º Nomeie os controlos com prefixo que informe o tipo de controlo (Txt-caixa de texto, Rtl-rótulo,Cxc-Caixa de combinação,etc.) seguido de nome que ilustre o que faz: entende melhor Comando25 ou CmdGravaSaida?
2º Pretende gravar saída e actualiza o campo entrada?
3º sempre que possível, coloque máscara de introdução, código de validação de entrada de dados, etc.
4º veja se é isto que pretende
If Not (IsNull(Saida) Or IsNull(codigoControle)) Then
CurrentDb.Execute "UPDATE [tblControleAulas] SET Saida= #" & Me.Saida & "# WHERE [codigoControle] = " & Me.codigoControle & ";"
End If

Com a devida desculpa dos dois, uma pergunta apenas;

Se o formulario "FControleAlulas" está vinculado à tabela "tblControleAulas", para que irá servir o CurrentDb.Execute "UPDATE [tblControleAulas] ???

É que por mais voltas que eu dê, não encontro a razão.

Boa tarde, JPaulo
Nem tinha reparado nisso. Confiamos apenas no que lemos.

Abraço, Grande Mestre

Boa noite JPaulo e Alexandre,

Alexandre obrigado pelo empenho em ajudar-me, vou teste aqui e logo respondo.
JPaulo esta fazendo um aplicativo para uma academia, o que acontece é que preciso registrar a horario e Entrada e Saidade cada Aluno, por isso criei 2 botoes de comando: btEntrada e btSaida, estava a utilizar isto:

CurrentDb.Execute "INSERT INTO TblControleAulas(codigoControle, Dta, Entrada) Values ('" & Me.codigoControle& "', #" & Date & "#, #" & Time & "#);".... este comando é feita para o btEntrada, estava fazendo o mesmo para o btSaida mas não esta sendo efetuado no campo da mesma tabela o btSaida esta criando um novo campo para o seu registro.

Estou com dificuldades porque nunca precisei utilizar o UPDATE, alias nem sei usa-lo (risos).
Vou tentar fazer o que me Aconselharam e logo respondo.

Muito obrigado!!!!!

Boa noite meus amigos,

Caso resolvido consegui com a ajudar de voces fazer.
Muito obrigado!!!!