Ajuda Com Botão para inserir hora entrada e saida

Boa noite a todos.

Estou com uma pequena dúvida:

Eu tenho dois campos: HORA_ENTRA e HORA_SAIDA e um botão "REGISTRO

Eu queria que ao clicar no botão "Registro", ele registrasse a hora de entrada e saída (tipo algum comando que registrasse a hora, e quando
fosse clicar novamente ele verificasse se a entrada foi efetuada caso positivo, ele automaticamente registrava a saída.
ao invés de criar dois botões para entrada e saída.

Olá


Veja se esse exemplo em anexo que fiz lhe ajuda


Procedimento para o feito

Nas propriedades do formulário frm_exemplo na Aba Eventos:

No Timer coloque 1000
'1000 é = a 1 segundo, esse procedimento faz com que ao abrir o form ele atualize a cada 1 segundo

e no
Intervalo do Cronômetro insira esse código

'Insere a hora do sistema no campo hora_sai
Private Sub Form_Timer()
Me.HORA_SAIDA.Value = Time()
End Sub
 

No Ao Abrir Insira esse código

'Abre o form para inserir registro novo e insere a hora atual do sistema no campo hora_entra
Private Sub Form_Open(Cancel As Integer)
DoCmd.GoToRecord , , acNewRec
Me.HORA_ENTRA.Value = Now()
End Sub


No botão Registrar no Evento ao clicar

'Salva o registro na tabela, fecha o form atual e abre o form resultado com registro da tabela registros
Private Sub btn_registrar_Click()
DoCmd.RunCommand acCmdSaveRecord
DoCmd.Close
DoCmd.OpenForm "resultado"
End Sub

Abraços e sucesso