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

boa tarde meus queridos..

alguem pode me ajudar?



eu tenho botão com o nome Encerrar com uma macro if com o codigo:


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

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

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

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:





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

Boa noite RlSS , coloque assim

 

Código:

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

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?

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

mais uma vez obrigado amigos...

agora consegui...

Vlw. Sucesso