MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    Ajuda Com Botão para inserir hora entrada e saida

    wagnermarinsjc
    wagnermarinsjc
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    Ajuda Com Botão para inserir hora entrada e saida Empty Ajuda Com Botão para inserir hora entrada e saida

    Mensagem  wagnermarinsjc 15/7/2017, 00: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)
    avatar
    Phillip_Junior
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Phillip_Junior 15/7/2017, 03: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
    Ajuda Com Botão para inserir hora entrada e saida Attachmentexhrentradahrsaida.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (41 Kb) Baixado 13 vez(es)


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

      Data/hora atual: 28/3/2024, 17:15