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


3 participantes

    [Resolvido]Verificar horário

    avatar
    IngridSmith
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 8
    Registrado : 03/07/2013

    [Resolvido]Verificar horário Empty [Resolvido]Verificar horário

    Mensagem  IngridSmith 7/8/2013, 14:21

    Olá!

    Gostaria que me ajudassem por favor.

    Estou fazendo um controle de horas. Então o funcionário digita a matrícula dele e já registra. Até aí perfeito.

    Os funcionários tem um horario limite para bater o ponto: 08:15. Após esse horário abre uma tela informando que ele terá que justificar o atraso, por exemplo.

    O que eu preciso é de um código, macro.... que checa esse horário.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Verificar horário Empty Re: [Resolvido]Verificar horário

    Mensagem  JPaulo 7/8/2013, 15:10

    Ola seja bem vinda ao forum.

    Dê-nos mais detalhes por favor;

    Quer que ao digitar a hora, a mesma seja validada se é maior que 08:15 ?


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Verificar horário Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Verificar horário Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Verificar horário Folder_announce_new Instruções SQL como utilizar...
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    [Resolvido]Verificar horário Empty Re: [Resolvido]Verificar horário

    Mensagem  Avelino Sampaio 7/8/2013, 15:40

    Olá!

    Algo asim:

    if format(now,"hh:mm") > #08:15 AM# then
    msgbox "vocês esta atrasado"
    else
    msgbox "Você esta no horário"
    en if

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    IngridSmith
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 8
    Registrado : 03/07/2013

    [Resolvido]Verificar horário Empty Re: [Resolvido]Verificar horário

    Mensagem  IngridSmith 8/8/2013, 16:59

    Isso mesmo, esse código que o Avelino postou parece que funcionou. E coloquei a opção de abrir um formulário"justificativa" para colocar o motivo.
    Quando o funcionario justifica, aperta em okay, salva o registro e fecha o "form justificativa".

    E aí volta na tela novamente para inserir a matricula e registrar a hora, beleza.
    Mas como eu coloquei um codigo para verificar se o fucnionario estava atrasado vai ficar aparecendo isso tda vez.

    Como faço para checar um campo na tabela de justificativa, pra ver se realmente o funcionario inseriu o motivo do atraso?

    Vou ser mais clara:

    Após 8:15 = MSG: Você está atrasado, justifique!
    Abre formulario "justificativa"

    Ao clica ou atualizar o campo, fecha o form e volta ao relogio de ponto.

    Após inserir a matricula, no evento apos atualizar,
    verifica tabela "Justificativa" se os campos "matr" e "motivo" estão preenchidos, se sim MSG BOM DIA, se não MSG Você ainda não justificou.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    [Resolvido]Verificar horário Empty Re: [Resolvido]Verificar horário

    Mensagem  Avelino Sampaio 11/8/2013, 07:53

    Uma opção é não deixar sair do formulário sem justificar.   Use o evento "ao descarregar" do formulário,que possui o argumento CANCEL

    Exemplo:

    Private Sub Form_Unload(Cancel As Integer)
    If Len(Me!Motivo & "") = 0 Then
       MsgBox "Por gentileza, justifique o atraso ...", vbInformation, "Aviso"
       Cancel = True
    End If
    End Sub


    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    IngridSmith
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 8
    Registrado : 03/07/2013

    [Resolvido]Verificar horário Empty Re: [Resolvido]Verificar horário

    Mensagem  IngridSmith 14/8/2013, 14:40

    Perfeito! Muito obg pela ajuda de vcs!

    Conteúdo patrocinado


    [Resolvido]Verificar horário Empty Re: [Resolvido]Verificar horário

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 09:47