Ajuda - Busca - Membros - Calendário
Versão Completa: Como Armazenar Em Uma Tabela Hora Atual Que Aparece Num Relogio No Formulario?
Fórum Ativo Access > Componentes do Access > Tabelas e Relacionamentos
EduardoEng
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
Roberto Pires
Eduardo,

Esse me parece um Tópico repetido. Uma dúvida semelhante já foi respondida e não reportada por você se houve sucesso. O Tópico foi:

Data E Hora Atuais A Serem Armazedas Em Tabela

Caso a sua dúvida persista continue no mesmo tópico.
E não crie Posts em várias seções. Poste apenas em uma seção para o bom entendimento e funcionamento do Fórum.

Uma Obs:

Se você vincula uma Tabela ao Form, automaticamente os dados modificados no Form serão modificados na Tabela e vice-versa.
Doxbrieree
vgfq what is celebrex cdikzfqs celebrex 200 kiqq, generic celebrex meknbsqe.
Esta é uma versão simplificada de nosso conteúdo principal. Para ver a versão completa com maiores informações, formatação e imagens, por favor clique aqui.
Invision Power Board © 2001-2019 Invision Power Services, Inc.