Como armazenar em uma tabela hora atual de um formulario

[Eduardo Engemann]

Pessoal to com um big de um problema e gostaria de pedir encarecidamente a ajuda.

O problema é o seginte:

Tenho uma tabela (DataBase) e nela contém um campo (HoraCadastro com tipo de dados Hora/data), que será armazenada a hora atual que vira do formulário de cadastro de usuários (o nome do formulário é “GERAL - CADASTRO DE USUÁRIOS) e neste formulário tenho uma caixa de texto com nome de TxTHoraAtual e em propriedades na fonte de controle tenho =Tempo().

Em propriedades do formulário em EVENTO intem intervalo do crnometro coloquei 1000 e No Timer tenho o seguinte procedimento:

Private Sub Form_Timer()

strEspacos = strEspacos + " "

strCaption = strEspacos + strTexto

intEspacos = Len(strEspacos)

intTexto = Len(strTexto)

Me.Form.Caption = strCaption

intCaption = intEspacos + intTexto

If intCaption = 50 Then

strEspacos = ""

End If

Me.Form.Repaint

Me.TxTHoraAtual.Requery

End Sub

Quando executo o formulario neste campo aparece a hora e rodando um relógio.

E tenho um botão que salva os registros preenchidos na tabeala Data Base, e queria saber qual procedimento que terei que escrever para savalar a hora atual que aprace neste formulário na tabela (processo descrito anteriormente).

Neste botão tenho o seguinte procedimento ao clicar:

Private Sub Comando16_Click()

If IsNull([LOGON]) Then

MsgBox "Você não digitou o usuário!", vbExclamation, "AVISO!"

LOGON.SetFocus

ElseIf senha <> Me.Texto4 Then

MsgBox "Confirmação de senha não coincide com a senha!", vbCritical, "AVISO!"

LOGON.SetFocus

Else

MsgBox "USUÁRIO CADASTRADO COM SUCESSO!", vbExclamation, "AVISO!"

DoCmd.Close

End If

End Sub

Agradeço atenciosamente a todos que me ajudarem.

e-mail para contato eduardo.engemann@gmail.com

Eduardo Engemann

[Alexandre Neves]

Private Sub Comando16_Click()

If IsNull([LOGON]) Then

MsgBox "Você não digitou o usuário!", vbExclamation, "AVISO!"

LOGON.SetFocus

ElseIf senha <> Me.Texto4 Then

MsgBox "Confirmação de senha não coincide com a senha!", vbCritical, "AVISO!"

LOGON.SetFocus

Else

MsgBox "USUÁRIO CADASTRADO COM SUCESSO!", vbExclamation, "AVISO!"

currentdb.execute "SELECT INTO DataBase(HoraCadastro) VALUES Format(Date,'hh:mm:ss);"

DoCmd.Close

End If

End Sub