MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Macros - definir valor ao clicar apos as 19:00 hrs

    avatar
    rlss
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 44
    Registrado : 19/12/2017

    [Resolvido]Macros - definir valor ao clicar apos as 19:00 hrs Empty [Resolvido]Macros - definir valor ao clicar apos as 19:00 hrs

    Mensagem  rlss em 22/7/2020, 20:29

    boa tarde meus queridos..

    alguem pode me ajudar?



    eu tenho botão com o nome Encerrar com uma macro if com o codigo:
    [Resolvido]Macros - definir valor ao clicar apos as 19:00 hrs Macro111

    esse botão definirá um valor para uma caixa sim/não [fim], porém, gostaria que somente fosse permitido definir o valor apos as 19:00 horas ou se possível as 07:00 horas do outro dia, com a mensagem descrita na imagem.


    obs: o campo [hora] é a hora do sistema função Agora().
    tentei de varias formas utilizando os sinais <>= com todas sequencias possíveis mas nada. uma ocasião funciona apos as 19:00 hrs e tbm as 14:00, ao mudar os sinais da certo de primeira depois muda o horário já não funciona, me ajudem por favor

    desde já agradeço a colaboração de todos...
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1296
    Registrado : 23/01/2018

    [Resolvido]Macros - definir valor ao clicar apos as 19:00 hrs Empty Re: [Resolvido]Macros - definir valor ao clicar apos as 19:00 hrs

    Mensagem  crysostomo em 24/7/2020, 03:31

    Boa noite. eu fiz numa correria aqui , vê ai. Vou entrar na estrada agora
    Private Sub Comando4_Click()
    Código:
      Me.txtinseriHoras = Time
        If Me.txtinseriHoras = #7:00:00 AM# Or Me.txtinseriHoras = #7:00:00 PM# Then

    Me.txtinseriHoras = Me.Texto2

    Else
        Me.txtinseriHoras = Null
        MsgBox " Data Noturna só é permitida deposi das 19:00hs", vbInformation
       
    End If
    End Sub



    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    rlss
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 44
    Registrado : 19/12/2017

    [Resolvido]Macros - definir valor ao clicar apos as 19:00 hrs Empty Re: [Resolvido]Macros - definir valor ao clicar apos as 19:00 hrs

    Mensagem  rlss em 24/7/2020, 12:53

    Bom dia amigo crysostomo, valeu pela atenção

    colequei o codigo no botão, aparece mensagem (erro de compilação: projeto ou biblioteca não encontrada)
    na time grifada abaixo

    estou com problemas de referencia no meu Access!
    e o pior que mesmo tentando corrigir estes problemas não consigo..
    clicando nas referencias e mesmo assim não resolve, ja tentei de varias formas corrigir essas referencias



    Me.txtinseriHoras = Time
       If Me.txtinseriHoras = #7:00:00 AM# Or Me.txtinseriHoras = #7:00:00 PM# Then

    Me.txtinseriHoras = Me.Texto2

    Else
       Me.txtinseriHoras = Null
       MsgBox " Data Noturna só é permitida deposi das 19:00hs", vbInformation
       
    End If
    avatar
    rlss
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 44
    Registrado : 19/12/2017

    [Resolvido]Macros - definir valor ao clicar apos as 19:00 hrs Empty Re: [Resolvido]Macros - definir valor ao clicar apos as 19:00 hrs

    Mensagem  rlss em 24/7/2020, 13:43

    olá amigo crysostomo

    fiz estas alterações...
    porem somente apareceu a msg, mas não definiu o campo encerrar como sim
    Na verdade tem que aparecer a mensagem e tambem definir um caixa sim/não como sim

    exemplo:
    [Resolvido]Macros - definir valor ao clicar apos as 19:00 hrs Exempl10




    essa foi a alteração:

    me.fim = de time para timer

    Private Sub Comando97_Click()
    Me.fim = Timer
       If Me.fim = #7:00:00 AM# Or Me.fim = #7:00:00 PM# Then

    Me.fim = Me.fim

    Else
       Me.fim = Null
       MsgBox " Data Noturna só é permitida deposi das 19:00hs", vbInformation
       
    End If
    End Sub

    agradeço desde já amigo...
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1296
    Registrado : 23/01/2018

    [Resolvido]Macros - definir valor ao clicar apos as 19:00 hrs Empty Re: [Resolvido]Macros - definir valor ao clicar apos as 19:00 hrs

    Mensagem  crysostomo em 30/7/2020, 01:26

    Boa noite RlSS , coloque assim

     
    Código:
      If IsNull(Me.fim) Then
        ''nada acontece
       Else
         Me.Sua CaixaDeSeleção = True
    End If
    End Sub


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    rlss
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 44
    Registrado : 19/12/2017

    [Resolvido]Macros - definir valor ao clicar apos as 19:00 hrs Empty Re: [Resolvido]Macros - definir valor ao clicar apos as 19:00 hrs

    Mensagem  rlss em 30/7/2020, 16:28

    olá amigão e bom dia a todos,


    crys, então eu coloquei o codigo mas não estou conseguindo,

    então na verdade é o seguinte essa minha aplicação é entrada e saída de e veículos e pessoas, e cada equipe de seguranças criam um registro um as 07:00hrs e a outra equipe as 19:00hrs e trabalham em cima dos seus horários, oque acontece meu supervisor me propôs que o registro
    fosse de período de 24hrs ou seja começa a 07hrs e finaliza as 07hrs do outro dia sendo que duas equipes trabalharão nesse periodo, então eu tive a ideia de que o formulario não aceita inclusão de outro registro na mesma data ou ainda só no outro dia e apos as 07hrs.
    mas eu não sei como fazer esse bloqueio. utilizei o codigo fornecido pelo sr. mas da errado, as vezes erro de referencia do proprio access, as vezes o sinais de <>=07:00 hrs quando clico no botão não vai de jeito nenhum.

    então fiz dessa forma:


    Private Sub Comando97_Click()
    If Me.data_emissão.Value < Now() Then

    Me.fim = True

    Else
       MsgBox " Para definir outra equipe neste periodo só após as 19:00 horas", vbInformation

    End If
    End Sub

    este codigo ele esta inserindo somente o campo [fim] como true sem comparar o campo [data emissão] como maior ou menor

    campo [data emissão] é data de registro,  campo [fim] é valor de sim/não

    baseado neste dados como posso fazer pra somente definir o valor em campo [sim] como verdadeiro se o período da data emissão inicial com a data e hora do sistema for mair que 24hrs?
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1296
    Registrado : 23/01/2018

    [Resolvido]Macros - definir valor ao clicar apos as 19:00 hrs Empty Re: [Resolvido]Macros - definir valor ao clicar apos as 19:00 hrs

    Mensagem  crysostomo em 31/7/2020, 20:00

    Segue aí .
    se a txtCotagem for igual ou maior que 24 a caixa de seleção é marcada
    você deve colocar das horas pelos botões
    Anexos
    [Resolvido]Macros - definir valor ao clicar apos as 19:00 hrs Attachmentcalculo de horas determinado para bloqueio.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (30 Kb) Baixado 3 vez(es)


    Última edição por crysostomo em 1/8/2020, 19:41, editado 1 vez(es)


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

    rlss gosta desta mensagem

    avatar
    rlss
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 44
    Registrado : 19/12/2017

    [Resolvido]Macros - definir valor ao clicar apos as 19:00 hrs Empty Re: [Resolvido]Macros - definir valor ao clicar apos as 19:00 hrs

    Mensagem  rlss em 1/8/2020, 18:56

    mais uma vez obrigado amigos...

    agora consegui...
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1296
    Registrado : 23/01/2018

    [Resolvido]Macros - definir valor ao clicar apos as 19:00 hrs Empty Re: [Resolvido]Macros - definir valor ao clicar apos as 19:00 hrs

    Mensagem  crysostomo em 1/8/2020, 19:40

    Vlw. Sucesso cheers


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

      Data/hora atual: 15/8/2020, 05:04