[Resolvido]Determinar hora de abertura e de fechamento de um formulário

Olá amigos, preciso que o formulário capture o horário em que foi aberto e o horário em que foi fechado.
Coloquei uma caixa de texto com o valor padrão =agora(), ela capta o horário que o form abre. Mas preciso do horário que o usuário clica no botão fechar seja inserido na tabela.

Código:

Private Sub Comando8_Click()
Dim DB As Database, RS As DAO.Recordset
Set DB = CurrentDb()
Set RS = DB.OpenRecordset("tbl_ocor_andamento")
RS.AddNew
RS("Hora da Finalização") = Now
RS.Update
RS.Close
DoCmd.Close
End Sub

Tentei esse botão acima, mas ele insere o horário em uma nova linha na tabela. Tem como ele colocar na linha atual do formulário? Eu olhei na lista de comandos para substituir o AddNew porém não consegui.

Abraços

Private Sub Comando8_Click()
Dim DB As Database, RS As DAO.Recordset
Set DB = CurrentDb()
Set RS = DB.OpenRecordset("SELECT [Hora da Finalização] FROM tbl_ocor_andamento WHERE ID = " & Me.txtID &"")
RS.Edit
RS("Hora da Finalização") = Now
RS.Update
RS.Close
DoCmd.Close
End Sub


Tente assim amigo...


Mudei para RS.EDIT (para editar um registro e nao add um novo)

E ao inves de abrir toda a tabela, Selecionamos um único registro (SELECT [Hora da Finalização] FROM tbl_ocor_andamento WHERE ID = " & Me.txtID &") Veja que compara o campo ID da tabela com o Campo txtID do formulario(que mostra a chave primaria da tabela).


Assim ele irá Buscar o registro atual, e apenas editar esse campo.

Não funcionou. Deu ERRO DE COMPILAÇÃO: Método ou membro de dados não encontrado, na parte

Private Sub Comando8_Click()
Dim DB As Database, RS As DAO.Recordset
Set DB = CurrentDb()
Set RS = DB.OpenRecordset("SELECT [Hora da Finalização] FROM tbl_ocor_andamento WHERE ID = " & Me.txtID &"")
RS.Edit
RS("Hora da Finalização") = Now
RS.Update
RS.Close
DoCmd.Close
End Sub


Só pra constar, tem uma macro no formulário que faz ele sempre carregar em um novo registro.

Amigo, vc tem que alterar essa parte em vermelho com os nomes dos seus campos... ID E Me.TXTID.

veja esse exemplo...

Ok, muito obrigado. Solucionado conforme orientação do FabioPaes

Código:

Private Sub Comando8_Click()
Me.DataFim = Now()
DoCmd.Close
End Sub

O campo DataFim oculto no formulário e o campo DataInicial com valor padrão =Now()