Como armazenar em tabela hora atual queaparece como relogio num formul

[EduardoEng 0]

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

[Julien.Sorel 0]

Olá Eduardo,

 

Você poderia fazer uma conexão ADO com a tabela ou...

 

Tenta isto:

 

Private Sub cmdUpdate_Click()
Dim SQL As String

'Tratamento de erro
On Error GoTo Err_Update
    
    'Confirmação de update na table de atualizações
    If MsgBox("Deseja realizar a atualização?", vbQuestion + vbYesNo, "Sistema!") = vbYes Then
        
        If IsNull([Logon]) Then
            MsgBox "Preenchimento obrigatório!", vbExclamation, "AVISO!"
            Logon.SetFocus
        ElseIf senha <> Me.Texto4 Then
            MsgBox "Senha incorreta!", vbCritical, "AVISO!"
            Logon.SetFocus
        Else
            'Cria query dentro do VBA para inserir DtAtu - now() - e UserAtu - NmOperador - em tblUpdate
            DoCmd.SetWarnings False
            SQL = "INSERT INTO tblUpdate ( UserAtu, DtAtu ) SELECT tblOperador.NmOperador, Now() AS DtAtu " & _
            "From tblOperador WHERE (((tblOperador.NmOperador)=[forms]![ifrmImasters]![NmOperador]));"
            DoCmd.RunSQL SQL
                        
            'Confirmação do processo
            MsgBox "Operação realizada com sucesso!" & vbLf & vbLf & "Operador: " & _
            DLast("UserAtu", "tblUpdate") & vbLf & vbLf & "Última atualização: " & _
            DLast("DtAtu", "tblUpdate"), vbInformation, "Sistema!"
        
            DoCmd.Close
        End If
                        
    End If
    
Exit_Update:
Exit Sub

Err_Update:
    MsgBox "Erro número: " & Err.Number & vbLf & vbLf & Err.Description, vbCritical, "Sistema"

Resume Exit_Update

End Sub

 

PS: resta apenas alterar os nomes dos campos e tabela...

 

 

 

 

Sem mais,

 

Julien Sorel