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]Trancar formulário entre horário determinado

    avatar
    CjuniorAJ10
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 52
    Registrado : 02/08/2018

    [Resolvido]Trancar formulário entre horário determinado Empty [Resolvido]Trancar formulário entre horário determinado

    Mensagem  CjuniorAJ10 7/8/2018, 17:07

    boa tarde!
    Gostaria de saber se existe como trancar um formulário entre 13:30 as 19:00hrs,
    tentei algumas formulas no VB, porém foi sem sucesso.

    Poderiam me ajudar?

    seguem formulas que já tentei e foi tentativa falha: (não sei se estão certas) auehaueh
    "'Dim msg As Integer
    'Dim contador
    'contador = txbHora.Value
    'While contador >= "08:54"
    'Me.btn_limpapesq.Enable = False
    'msg = MsgBox("programação fechada")
    'While contador >= "09:00"
    'btn_limpapesq.enable = True
    'Wend
    'Wend

    'If txbHora.Value > 11:00 Then
       'btn_limpapesq.Enabled = False
      ' Else
       'btn_limpapesq.Enabled = True
    'End If

    'If txbHora.Value > "13:59:00" Then
    'MsgBox ("zzzz"), vbOKOnly
    'btn_limpapesq.Enabled = True

    'ElseIf txbHora.Value > "14:49" Then
    'MsgBox ("xxxxx"), vbOKOnly
    'btn_limpapesq.Enabled = False
    'End If

    '
    'Select Case (txbHora.Value)
    'Case > 14:00 to  19:00
    'MsgBox ("1"), vbOKOnly

    'End Select
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2115
    Registrado : 13/04/2012

    [Resolvido]Trancar formulário entre horário determinado Empty Re: [Resolvido]Trancar formulário entre horário determinado

    Mensagem  Fernando Bueno 7/8/2018, 18:10

    Boa tarde;
    No evento ao carregar do formulário

    Código:
    If txt_time >= "13:30" And txt_time <= "19:00" Then
    MsgBox "Programação fechada"
    Else
    MsgBox "liberado"
    End If

    Um exemplo, a partir dai pode atribuir as ações que necessita.



    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Resolvido]Trancar formulário entre horário determinado 16rzeq
    thiagomcosta
    thiagomcosta
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 377
    Registrado : 23/01/2017

    [Resolvido]Trancar formulário entre horário determinado Empty Re: [Resolvido]Trancar formulário entre horário determinado

    Mensagem  thiagomcosta 7/8/2018, 18:14

    Tenta usar da seguinte maneira:

    if Time > "13:30" and time <= "19:00"
    avatar
    CjuniorAJ10
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 52
    Registrado : 02/08/2018

    [Resolvido]Trancar formulário entre horário determinado Empty Botões

    Mensagem  CjuniorAJ10 7/8/2018, 18:32

    E para habilitar e desabilitar botões entre estes horários?
    tentei:
    btnbotao.enabled=false (funcionou)

    o problema no geral é voltar o botão pra ativa depois do horário.

    If txt_time >= "13:30" And txt_time <= "19:00" Then
    btnbotao.enabled = false
    Else
    btnbotao.enabled = true
    End If

    ficaria assim? Pois tentei e não foi Sad
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2115
    Registrado : 13/04/2012

    [Resolvido]Trancar formulário entre horário determinado Empty Re: [Resolvido]Trancar formulário entre horário determinado

    Mensagem  Fernando Bueno 7/8/2018, 23:02

    Boa noite,

    Coloque então o comando no evento No Timer

    Código:
    Private Sub Form_Timer()
    Me.txt_time.Requery
    If txt_time >= "13:30" And txt_time <= "19:00" Then
    btnbotao.Enabled = False
    Else
    btnbotao.Enabled = True
    End If
    End Sub

    Em intervalo do cronometro 1000
    Anexos
    [Resolvido]Trancar formulário entre horário determinado AttachmentExemplo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (19 Kb) Baixado 24 vez(es)


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Resolvido]Trancar formulário entre horário determinado 16rzeq
    avatar
    CjuniorAJ10
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 52
    Registrado : 02/08/2018

    [Resolvido]Trancar formulário entre horário determinado Empty Botão

    Mensagem  CjuniorAJ10 8/8/2018, 13:00

    O código com o timer funcionou, agora verifiquei outro problema.

    O meu projeto consiste em adicionar atividades no intervalo da semana,por exemplo entre os dias 6 a 10, porém apartir das 13 horas, não podemos mais adicionar nada para o dia seguinte.

    O problema é que este codigo:
    "Private Sub Form_Timer()
    Me.txt_time.Requery
    If txt_time >= "13:30" And txt_time <= "19:00" Then
    btnbotao.Enabled = False
    Else
    btnbotao.Enabled = True
    End If
    End Sub"

    é que bloqueia o botão em todos os dias, sendo que só precisamos bloquear para o dia seguinte, no caso de hoje (08/08) seria bloqueado as 13 horas o botão do dia (09/08), porém de todos os outros ainda estaria disponível.

    Caso eu esteja embolando as coisas, pode falar que tento explicar melhor kkk

    Obrigado a cada um pela ajuda!

    obs:  tem como fazer resposta de post? eu não achei onde é kk
    thiagomcosta
    thiagomcosta
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 377
    Registrado : 23/01/2017

    [Resolvido]Trancar formulário entre horário determinado Empty Re: [Resolvido]Trancar formulário entre horário determinado

    Mensagem  thiagomcosta 8/8/2018, 13:29

    Tudo tem solução, mas depende muito de como é sua aplicação.

    Onde está a data? Onde está botão?
    avatar
    CjuniorAJ10
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 52
    Registrado : 02/08/2018

    [Resolvido]Trancar formulário entre horário determinado Empty botões

    Mensagem  CjuniorAJ10 8/8/2018, 13:49

    Bom dia!
    Data e hora estão no formulário principal e botão de adicionar no subformulário.
    thiagomcosta
    thiagomcosta
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 377
    Registrado : 23/01/2017

    [Resolvido]Trancar formulário entre horário determinado Empty Re: [Resolvido]Trancar formulário entre horário determinado

    Mensagem  thiagomcosta 8/8/2018, 14:55

    Tem como colocar esta parte do BD para verificarmos?
    avatar
    CjuniorAJ10
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 52
    Registrado : 02/08/2018

    [Resolvido]Trancar formulário entre horário determinado Empty Re: [Resolvido]Trancar formulário entre horário determinado

    Mensagem  CjuniorAJ10 8/8/2018, 16:29

    Tem sim, o problema é que não sei qual parte exatamente mandar.

    Essa imagem já te ajuda?
    avatar
    CjuniorAJ10
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 52
    Registrado : 02/08/2018

    [Resolvido]Trancar formulário entre horário determinado Empty Re: [Resolvido]Trancar formulário entre horário determinado

    Mensagem  CjuniorAJ10 8/8/2018, 16:34

    Não tinha ido a imagem, segue abaixo.
    Anexos
    [Resolvido]Trancar formulário entre horário determinado Attachmentiamgem.png
    Você não tem permissão para fazer download dos arquivos anexados.
    (23 Kb) Baixado 11 vez(es)
    thiagomcosta
    thiagomcosta
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 377
    Registrado : 23/01/2017

    [Resolvido]Trancar formulário entre horário determinado Empty Re: [Resolvido]Trancar formulário entre horário determinado

    Mensagem  thiagomcosta 10/8/2018, 14:22

    Primeiramente: dá para tirar o <=19.

    Sobre a data, pelo que eu entendi tem que colocar ela no if:

    Código:
    If txt_time >= "13:30" And txt_date <= Date+1 Then
      btnbotao.Enabled = False
    Else
      btnbotao.Enabled = True
    End If

    Sendo que txt_date é o campo com a data que deseja verificar.
    avatar
    CjuniorAJ10
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 52
    Registrado : 02/08/2018

    [Resolvido]Trancar formulário entre horário determinado Empty Re: [Resolvido]Trancar formulário entre horário determinado

    Mensagem  CjuniorAJ10 14/8/2018, 14:15

    Da para retirar o 19hrs? dai ele vai bloquear até 00hrs?

    Vou testar este método que me passou e volto com retorno. (meu pc no trabalho deu pau, jájá respondo vcs)
    avatar
    CjuniorAJ10
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 52
    Registrado : 02/08/2018

    [Resolvido]Trancar formulário entre horário determinado Empty Re: [Resolvido]Trancar formulário entre horário determinado

    Mensagem  CjuniorAJ10 16/8/2018, 12:27

    Não funcionou, com o comando:
    If txt_time >= "13:30" And txt_date <= Date+1 Then
      btnbotao.Enabled = False
    Else
      btnbotao.Enabled = True
    End If

    ele bloqueia de todos os registros e não somente do dia seguinte, o formulário é continuo, então quando eu coloco ao atualizar,ao modificar,ao clicar, ele bloqueia tudo.

    Não sei mais o que fazer para bloquear Sad

    segue código utilizado no botão de salvar:

    Código:
    Private Sub btnTeste_Click()
    'para nulo, não há como aplicar select case/switch
    If IsNull(dataServ) Then
    MsgBox "Favor preencher a data de solicitação", vbOKOnly
                dataServ.SetFocus
                ElseIf IsNull(newRequisitante) Then
                    MsgBox "Favor preencher campo requisitante", vbOKOnly
                        newRequisitante.SetFocus
                            ElseIf dataProv <= txbdata_hoje Then
                            MsgBox "Não é possivel adicionar nesta data.", vbOKOnly
                            dataServ = Null
                            newRequisitante = Null
                                                          
    Else

     Select Case (dataServ)
                      
        
        Case Is = dataBD.Value
        dataServ = Null
        newRequisitante = Null
        MsgBox "Atividade já na programação.", vbOKOnly
        
        Case Is <> dataBD.Value
        Cadastrar
        dataServ = Null
        newRequisitante = Null
        MsgBox "Atividade solicitada com sucesso", vbOKOnly
        

    End Select

    End If

    End Sub

    eu consigo fazer esse esquema do horario com o select case?
    avatar
    CjuniorAJ10
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 52
    Registrado : 02/08/2018

    [Resolvido]Trancar formulário entre horário determinado Empty Re: [Resolvido]Trancar formulário entre horário determinado

    Mensagem  CjuniorAJ10 20/8/2018, 17:24

    Alguem?
    thiagomcosta
    thiagomcosta
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 377
    Registrado : 23/01/2017

    [Resolvido]Trancar formulário entre horário determinado Empty Re: [Resolvido]Trancar formulário entre horário determinado

    Mensagem  thiagomcosta 20/8/2018, 18:27

    Eu não sou muito bom em formluários contínuos.

    A minha sugestão é colocar o código no evento "Ao pintar" do formulário. Tenho algo aqui que funciona semelhante ao que vocÊ precisa.
    avatar
    CjuniorAJ10
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 52
    Registrado : 02/08/2018

    [Resolvido]Trancar formulário entre horário determinado Empty Re: [Resolvido]Trancar formulário entre horário determinado

    Mensagem  CjuniorAJ10 27/8/2018, 12:45

    Entendo, eu coloquei o primeiro código que falamos aqui.

    Deixei o form fechado das 13:30 às 14:30 porém ele fecha geral, de todos os dias.

    Vou por como Resolvido até então.

    Obrigado a todos!
    avatar
    CjuniorAJ10
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 52
    Registrado : 02/08/2018

    [Resolvido]Trancar formulário entre horário determinado Empty Re: [Resolvido]Trancar formulário entre horário determinado

    Mensagem  CjuniorAJ10 27/8/2018, 12:45

    .

    Conteúdo patrocinado


    [Resolvido]Trancar formulário entre horário determinado Empty Re: [Resolvido]Trancar formulário entre horário determinado

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 04:22