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]VBA-Dois critérios para desbloquear um TextBox

    avatar
    Baumgratz
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 25
    Registrado : 05/10/2015

    [Resolvido]VBA-Dois critérios para desbloquear um TextBox Empty [Resolvido]VBA-Dois critérios para desbloquear um TextBox

    Mensagem  Baumgratz 14/11/2015, 23:52

    Olá Pessoal !
    Pesquisei muito e tentei muito, mas não consegui. Tive que vir aqui postar minha dúvida.

    Tenho um formulário que contem uma Caixa de Alternancia, intitulada de QdrRelatorio, que lança na tabela TabDemanda o numero "1" ou "2" no campo RelatorioTipo.

    Também tenho um TextBox chamado de TxtVolume que eu envio para esta mesma tabela quantos quilos de pão (de sal e doce) o cliente comprou.

    Já o ultimo TextBox, intitulado TxtNunEntregas, que se refere a quantidade de entregas realizadas para o cliente, só pode estar habilitado se:
        _1) a Caixa de Alternancia enviou “1”, e
        _2) o TxtVolume for maior que “0” (zero)


    Seria algo mais ou menos assim, ó:  (este não funciona)
    ------------------------------------------------------------
    Private Sub Form_Load()
       Me.TxtNumEntregas.Enabled = False
    End Sub

    Private Sub TxtVolume_AfterUpdate()
       If Me.QdrRelatorio = 1 Then
       If Me.TxtVolume > 0 Then
          Me.TxtNumEntregas.Enabled = True
       Else
           Me.TxtNumEntregas.Enabled = False
       End If
    End Sub
    ------------------------------------------------------------

    Obrigado!

    .
    Uilson Brasil
    Uilson Brasil
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1039
    Registrado : 23/04/2013

    [Resolvido]VBA-Dois critérios para desbloquear um TextBox Empty Re: [Resolvido]VBA-Dois critérios para desbloquear um TextBox

    Mensagem  Uilson Brasil 15/11/2015, 01:08

    Código:
    If Me.QdrRelatorio = 1 or Me.TxtVolume > 0 Then
          Me.TxtNumEntregas.Enabled = True
    Else
          Me.TxtNumEntregas.Enabled = False
    End If


    .................................................................................
    ::: Uilson Brasil
    ::: Design in Microsoft Access
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]VBA-Dois critérios para desbloquear um TextBox Empty Re: [Resolvido]VBA-Dois critérios para desbloquear um TextBox

    Mensagem  Avelino Sampaio 15/11/2015, 09:22

    Olá!

    veja esta outra forma:

    http://www.redeaccess.com.br/viewtopic.php?f=4&t=432&p=1706#p1706

    Sucesso!


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

    Conteúdo patrocinado


    [Resolvido]VBA-Dois critérios para desbloquear um TextBox Empty Re: [Resolvido]VBA-Dois critérios para desbloquear um TextBox

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/4/2024, 16:14