MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Ajuda Com Botão para inserir hora entrada e saida

    Compartilhe
    avatar
    wagnermarinsjc
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 97
    Registrado : 23/03/2013

    Ajuda Com Botão para inserir hora entrada e saida

    Mensagem  wagnermarinsjc em Sab 15 Jul 2017, 04:49

    Boa noite a todos.

    Estou com uma pequena dúvida:

    Eu tenho dois campos: HORA_ENTRA e HORA_SAIDA e um botão "REGISTRO

    Eu queria que ao clicar no botão "Registro", ele registrasse a hora de entrada e saída (tipo algum comando que registrasse a hora, e quando
    fosse clicar novamente ele verificasse se a entrada foi efetuada caso positivo, ele automaticamente registrava a saída.
    ao invés de criar dois botões para entrada e saída.


    .................................................................................
    "Não basta ser inteligente; é necessário persistir. Pois os que persistem sempre alcançam a meta final" (autor desconhecido)

    Phillip_Junior
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 179
    Registrado : 09/12/2016

    Re: Ajuda Com Botão para inserir hora entrada e saida

    Mensagem  Phillip_Junior em Sab 15 Jul 2017, 07:41

    Olá


    Veja se esse exemplo em anexo que fiz lhe ajuda


    Procedimento para o feito

    Nas propriedades do formulário frm_exemplo na Aba Eventos:

    No Timer coloque 1000
    '1000 é = a 1 segundo, esse procedimento faz com que ao abrir o form ele atualize a cada 1 segundo

    e no
    Intervalo do Cronômetro insira esse código

    'Insere a hora do sistema no campo hora_sai
    Private Sub Form_Timer()
    Me.HORA_SAIDA.Value = Time()
    End Sub
     

    No Ao Abrir Insira esse código

    'Abre o form para inserir registro novo e insere a hora atual do sistema no campo hora_entra
    Private Sub Form_Open(Cancel As Integer)
    DoCmd.GoToRecord , , acNewRec
    Me.HORA_ENTRA.Value = Now()
    End Sub


    No botão Registrar no Evento ao clicar

    'Salva o registro na tabela, fecha o form atual e abre o form resultado com registro da tabela registros
    Private Sub btn_registrar_Click()
    DoCmd.RunCommand acCmdSaveRecord
    DoCmd.Close
    DoCmd.OpenForm "resultado"
    End Sub

    Abraços e sucesso
    Anexos
    exhrentradahrsaida.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (41 Kb) Baixado 10 vez(es)


    .................................................................................
    Phillip_Junior
    Analista de Sistemas

      Data/hora atual: Qua 22 Nov 2017, 10:47