Ir para conteúdo
Fórum Script Brasil
  • 0

Armazensr data e hora atual em uma tabela de cadastro

Eduardo Engemann

Perguntado por Eduardo Engemann,

 Share

Pergunta

Eduardo Engemann

Eduardo Engemann

Postado
Postado

Caros amigos tenho uma tabela de cadastro e ela esta licada au fomulario de cadastro For_Cadastro e a tabela Usuarios, e bem nesse formulario gostaria que aparecese automaticamente a Data atual e em outro campo a Hora atual, e depos fossem armazenados respectivamente na tabela Usuarios nos seguintes campos DataCadastro e HoraCadastro, que aparecerá automaticamente no formulario de cadastro (Form_Cadastro) e rodando, marcando automaticamente as horas minutos e segundos, e quando desse o comando de salvar os dados ali colocados armazenassem a Data Atual e a Hora naquele momento, a data já consegui fazer mas a hora não consegui nada na internet que me desse ajuda se alguém tiver alguma dica simples não muito complicada e facial de entender pois sou meio leigo no assunto me desse a dica bem explica ficarei muito grato.

Desde já agradeço aos que aqui vierem me ajudar, fiquem com Deus

Obrigadooooooooooooooo

Eduardo Engemann

podem mandar sugestões e exemplos para o meu e-mail: eduardo.engemann@gmail.com

Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0
Eduardo Engemann

Eduardo Engemann

Postado
  • Autor
Postado (editado)

Caro Leandro Abbade

Não entedi, mas deicha eu explicar novamente o que to querendo, para ver se nos entendemos

Tenho uma tabela de nome Cadastro e nela um cam de DataAtual ( que já aconsegui fazer com que armazene a data atual, vinda do formulario cadastro que mostra automaticamente essa data, e quando dou para salvar o conteudo do formulario ela é salva) ok.

e tenho um outro campo na mesma tabela cadastro chamado Hora Atual, que sera para armazenar a hora de quando aquele registro feito no formulario Cadastro foi armazenado ou feito o cadastro:

Exemplificando:

No formuario tenho Nome (Campo para digirar o nome que esta lincado com a tabela cadastro); capo Data Atual ( não se digita ela mostra a data no qual na tabela no campo DataAtual e esta em valor padrão data(), e quando no formulario mando salvar ela salva adata em que esse cadastro (registro) foi realizado, e tem um campo Hora Atual no Formulario que me mosta a hora atual que devera mostrar a hora atual e quando for armazenado o registro ele armazena a hora atual em que foi salvo no capo da tambela HoraAtual

Tenho um form que tem um campo de texto com o nome txtTempo e dentro dele aparece =Tempo() & " - " & Data()

e tenho esses procedimentos

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.txtTempo.Requery

End Sub

Aqui esta todo os procedimentos desse formulario

Option Compare Database

Dim strTexto As String

Dim strEspacos As String

Dim strCaption As String

Dim intTexto As Integer

Dim intEspacos As Integer

Dim intCaption As Integer

Public Function Cumprimento()

Dim strMsg As String

If Time < #12:00:00 PM# Then

strMsg = "Ola! Tenha um bom dia!"

ElseIf Time <= #6:00:00 PM# Then

strMsg = "Ola! Tenha uma boa tarde!"

Else

strMsg = "Ola! Tenha uma boa noite!"

End If

Cumprimento = strMsg

End Function

Private Sub Comando16_LostFocus()

Dim vOk As Integer

vOk = MsgBox(" Tem certeza que deseja encerrar o programa?", vbYesNo + vbQuestion, "Saída")

If vOk = vbYes Then

End

End If

End Sub

Private Sub Comando9_Click()

Dim acesso As Recordset

Dim DB As Database

Set DB = CurrentDb

Set acesso = DB.OpenRecordset("ACESSOS")

Dim T As Recordset, D As Database

Set D = CurrentDb

Set T = D.OpenRecordset("tbusuarios", dbOpenDynaset)

While T.EOF = False

If LOGON = T!usuário And SenhaDigitada = T!Senhad Then

Me.Visible = False

DoCmd.OpenForm "Frm_Inicialização"

Me!ACESSOUSUARIO = LOGON

Me!ACESSODATA = Date

Me!ACESSOHORA = Time

acesso.AddNew

acesso![usuario] = Me!ACESSOUSUARIO

acesso![Data] = Me!ACESSODATA

acesso![hora] = Me!ACESSOHORA

acesso.Update

Exit Sub

Else

T.MoveNext

End If

Wend

MsgBox "Usuário ou senha incorretos!", vbCritical, "AVISO !"

LOGON.SetFocus

SenhaDigitada.Visible = False

cada.Visible = False

cadf.Visible = True

SenhaDigitada.Value = Null

If IsNull([Nível]) Then

MsgBox "O nível para esse usuário precisa ser cadastrado!", vbCritical, "Erro"

LOGON.Value = Null

SenhaDigitada.Value = Null

LOGON.SetFocus

End If

End Sub

Private Sub senha_AfterUpdate()

If senha = senha Then

End Sub

Private Sub Fechar_Click()

DoCmd.Quit

End Sub

Private Sub Form_Open(Cancel As Integer)

Comando9.Enabled = False

cada.Visible = False

cadf.Visible = True

strTexto = "FEIC CADASTRO DE MÉDIUNS e TRABALHOS MEDIÚNICOS"

strEspacos = ""

Me.TimerInterval = 500

End Sub

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.txtTempo.Requery

End Sub

Private Sub LOGON_AfterUpdate()

Dim achacodigo

cod = LOGON

achacodigo = DLookup("[usuário]", "tbusuarios", "[cod]=usuário")

If IsNull(achacodigo) Then

MsgBox "Este usuário não existe!", vbCritical, " Erro"

LOGON.Value = Null

LOGON.SetFocus

SenhaDigitada.Visible = False

Comando9.Enabled = False

SenhaDigitada.Value = Null

Else

DoCmd.ApplyFilter , "[usuário]=[Forms]![frmlogin].[cod]"

SenhaDigitada.Visible = True

SenhaDigitada.SetFocus

cada.Visible = True

cadf.Visible = False

Comando9.Enabled = True

End If

End Sub

Private Sub SenhaDigitada_LostFocus()

Dim acesso As Recordset

Dim DB As Database

Set DB = CurrentDb

Set acesso = DB.OpenRecordset("ACESSOS")

Dim T As Recordset, D As Database

Set D = CurrentDb

Set T = D.OpenRecordset("tbusuarios", dbOpenDynaset)

While T.EOF = False

If LOGON = T!usuário And SenhaDigitada = T!Senhad Then

Me.Visible = False

DoCmd.OpenForm "Frm_Inicialização"

Me!ACESSOUSUARIO = LOGON

Me!ACESSODATA = Date

Me!ACESSOHORA = Time

acesso.AddNew

acesso![usuario] = Me!ACESSOUSUARIO

acesso![Data] = Me!ACESSODATA

acesso![hora] = Me!ACESSOHORA

acesso.Update

Exit Sub

Else

T.MoveNext

End If

Wend

MsgBox "Usuário ou senha incorretos!", vbCritical, "AVISO !"

LOGON.SetFocus

SenhaDigitada.Visible = False

cada.Visible = False

cadf.Visible = True

SenhaDigitada.Value = Null

If IsNull([Nível]) Then

MsgBox "O nível para esse usuário precisa ser cadastrado!", vbCritical, "Erro"

LOGON.Value = Null

SenhaDigitada.Value = Null

LOGON.SetFocus

End If

End Sub

Se puder me ajudar com isso fico grato desde já , um forte abraço e fique com Deus

Abraços Eduardo Engemann

e-mail:

eduardo.engemann@gmail.com

Editado por Eduardo Engemann
Link para o comentário
Compartilhar em outros sites
  • 0
Eduardo Engemann

Eduardo Engemann

Postado
  • Autor
Postado

Caro Leandro Abbade

Caro amigo mais ou menos já dei uma andada nesse caso, descobri que ao colocar na tabela no campo HoraAtula nas propriedades do campo com Valor Padrão Tempo(), e depois inserindo este memo campo no formulario Cadastro ao executar o formulario aparece no campo a hora altual mas ela não esta indexando, na propriedades do formulario tenho:

HoraCadastro - É o campo onde aparece a hora no formulario ( é a hora atual) , não esta indexando ou seja os segundo não rodam.

Napropriedade do formulario no item Intervalo do Cronometro está 1000

Tenho os seguintes procedimento dentro do formulario:

____________________________________________________________

Option Compare Database

Dim strTexto As String

Dim strEspacos As String

Dim strCaption As String

Dim intTexto As Integer

Dim intEspacos As Integer

Dim intCaption As Integer

_____________________________________________________________

Private Sub Comando9_Click()

Dim T As Recordset, D As Database

Set D = CurrentDb

Set T = D.OpenRecordset("SENHA", dbOpenDynaset)

While T.EOF = False

If LOGON = T!LOGON And senha = T!senha Then

MsgBox "SENHA CONFIRMADA!", vbInformation, "AVISO !"

DoCmd.OpenForm "MENU PRINCIPAL"

Me.Visible = False

Exit Sub

Else

T.MoveNext

End If

Wend

MsgBox "LOGON OU SENHA INCORRETOS!", vbCritical, "AVISO !"

End Sub

Private Sub Comando6_Click()

If senha <> Texto4 Then

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

Me.Undo

Else

MsgBox "SENHA ALTERADA/CADASTRADA COM SUCESSO!", vbExclamation, "AVISO!"

End If

End Sub

______________________________________________________________________________________________

Private Sub Comando23_Click()

On Error GoTo Err_Comando23_Click

DoCmd.GoToRecord , , acNewRec

Exit_Comando23_Click:

Exit Sub

Err_Comando23_Click:

MsgBox Err.Description

Resume Exit_Comando23_Click

End Sub

___________________________________________________________________________________________

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

_____________________________________________________________________________________

Private Sub Comando25_Click()

Me.Undo

DoCmd.Close

End Sub

_____________________________________________________________________________________

Private Sub Comando60_Click()

DoCmd.RunMacro "GERAL - USUÁRIOS"

End Sub

Private Sub Form_Open(Cancel As Integer)

senha.Enabled = False

Texto4.Enabled = False

End Sub

________________________________________________________________________________________

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.HoraCadastro.Requery

End Sub

________________________________________________________________

Private Sub LOGON_AfterUpdate()

Dim achacodigo

cod = LOGON

achacodigo = DLookup("[usuário]", "DataBase", "[cod]=[usuário]")

If LOGON = (achacodigo) Then

MsgBox "Já existe um usuário com esse login cadastrado!", vbCritical, " Erro"

senha.Enabled = False

Texto4.Enabled = False

LOGON.SetFocus

Else

senha.Enabled = True

Texto4.Enabled = True

End If

End Sub

_______________________________________________________________________________________________

Private Sub senha_AfterUpdate()

Dim achacodigo

cod = senha

achacodigo = DLookup("[senhad]", "DataBase", "[cod]=[senhad]")

If senha = (achacodigo) Then

MsgBox "Já existe uma senha igual cadastrada, por favor tente outra!", vbCritical, " Erro"

LOGON.Enabled = False

Texto4.Enabled = False

senha.SetFocus

Else

LOGON.Enabled = True

Texto4.Enabled = True

End If

End Sub

Ficarei Grato no que puder me ajudar desde já lhe agradeço vossa atenção e a de quem mais estiver a disposição.

Um Grande abraço Eduardo Engemann

e-mail: eduardo.engemann@gmail.com

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...