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

    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: 16/10/2021, 22:18