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


    ComboBox Vazio

    mjuliani25
    mjuliani25
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 18/01/2017

    ComboBox Vazio Empty ComboBox Vazio

    Mensagem  mjuliani25 27/1/2021, 15:30

    Boa tarde pessoal.

    Tenho dois combos no meu formulário e sempre terá retorno do banco em um deles, ou seja, se tiver informação num combo o outro não terá e vice-versa. Como faço pra deixar o combo que está sem informação invisível. Não consegui achar nada aqui sobre isso.

    Inseri no "No atual" e "após atualizar"
    Meu exemplo:
       If Me.CBO1 = "" Then
           Me.CBO2.Visible = False
           Me.CBO1.Visible = True
       Else
           Me.CBO2.Visible = True
           Me.CBO1.Visible = False
       End If

    Tentei isso também:

       If IsNull(Me.CBO1) Then
           Me.CBO2.Enabled = True
           Me.CBO1.Enabled = False
       Else
           Me.CBO2.Enabled = False
           Me.CBO1.Enabled = True
       End If
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 440
    Registrado : 25/02/2016

    ComboBox Vazio Empty Re: ComboBox Vazio

    Mensagem  FranklinJSP 27/1/2021, 18:54

    Olá Marcelo

    Tenta assim:

    Código:
      If isnull(Me.CBO1) or Me.CBO1 = "" Then
           Me.CBO2.Visible = True
           Me.CBO1.Visible = False
       Else
           Me.CBO2.Visible = False
           Me.CBO1.Visible = True
       End If

    Saludos


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"

      Data/hora atual: 17/5/2021, 14:23