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


2 participantes

    [Resolvido]Desabilitar controle se listbox nao for nula

    leoavila7
    leoavila7
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 149
    Registrado : 04/12/2011

    [Resolvido]Desabilitar controle se listbox nao for nula Empty Desabilitar controle se listbox nao for nula

    Mensagem  leoavila7 6/3/2013, 12:14

    Bom dia amigos;

    Tenho uma listbox baseada em uma consulta e uso uma combo para filtrar os registros nesse controle. Gostaria de saber como posso desabilitar a combo apos a atualização, e a listbox esteja carregando os dados. Do contrario ela fica habilitada para procurar novos criterios.Ja tentei usando If is Null, mas to arrastando na arte de dominar esse VBA. Me deem uma luz, sabios camaradas.

    Obrigado,


    Leonardo
    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009

    [Resolvido]Desabilitar controle se listbox nao for nula Empty Re: [Resolvido]Desabilitar controle se listbox nao for nula

    Mensagem  Leandro 6/3/2013, 14:42

    Se a combo não tiver valores você quer desabilitá-la?
    Assim você conta os registros na combo, coloque no evento "Após atualizar" da combo:

    Dim NRCombo
    NRCombo = Me!SuaCombo.ListCount

    If NRCombo = 0 Then
    Me!Combo.Enable = False 'Desabilita
    Else
    Me!Combo.Enable = True 'Habilita
    End If

    leoavila7
    leoavila7
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 149
    Registrado : 04/12/2011

    [Resolvido]Desabilitar controle se listbox nao for nula Empty Re: [Resolvido]Desabilitar controle se listbox nao for nula

    Mensagem  leoavila7 6/3/2013, 15:12

    Ola Leandro,

    na verdade a combo tem q ser desabilitada no caso da listbox apresentar registros, que são buscados por meio de consulta nessa combo. É como se fosse uma busca por registros, se o criterio for encontrado, a combo fica desabilitada, do contrario não...

    Obrigado pela atenção

    Um abraço

    Leonardo
    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009

    [Resolvido]Desabilitar controle se listbox nao for nula Empty Re: [Resolvido]Desabilitar controle se listbox nao for nula

    Mensagem  Leandro 6/3/2013, 16:26

    Então inverta:

    Dim NRCombo
    NRListBox = Me!SuaListBox.ListCount

    If NRListBox > 0 Then
    Me!Combo.Enable = False 'Desabilita
    Else
    Me!Combo.Enable = True 'Habilita
    End If

    Porém no mesmo evento "Após atualizar" da combo

    leoavila7
    leoavila7
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 149
    Registrado : 04/12/2011

    [Resolvido]Desabilitar controle se listbox nao for nula Empty Re: [Resolvido]Desabilitar controle se listbox nao for nula

    Mensagem  leoavila7 7/3/2013, 11:31

    Deu certo...obrigado Leandro

    Conteúdo patrocinado


    [Resolvido]Desabilitar controle se listbox nao for nula Empty Re: [Resolvido]Desabilitar controle se listbox nao for nula

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/11/2024, 01:36