MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Múltipla Escolha (Combobox)

    Compartilhe

    Maurício Bruno
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]Múltipla Escolha (Combobox)

    Mensagem  Maurício Bruno em Ter 18 Jul 2017, 20:40

    Boa Tarde!

    Venho mais uma vez, busca uma orientação.

    Tenho uma combobox de múltipla escolha, onde tenho a opção FQ e MB, e gostaria de ao seleciona a opção FQ o campo Analise aparecesse (visible=true) e o MB outro campo Pesquisa aparecesse (visible=true) e terei situação que marcarei a opção FQ e MB e gostaria os campos ficasse visíveis.

    Não consegui achar uma alternativa abaixo e não obtive sucesso, já pesquisei em vários lugares e não achei.

    Código:
    Private Sub txt_tipo_analise__AfterUpdate()
    If txt_tipo_analise = "FQ" Then
    Me.txt_analise_fq.Enabled = True
    Me.txt_analise_mb.Enabled = False
    If txt_tipo_analise = "MB" Then
    Me.txt_analise_fq.Enabled = False
    Me.txt_analise_mb.Enabled = True
    End If
    End If

    End Sub

    Agradeço a ajuda e atenção.
    avatar
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 229
    Registrado : 05/12/2016

    Re: [Resolvido]Múltipla Escolha (Combobox)

    Mensagem  caiosouza em Qua 19 Jul 2017, 19:31

    Tente:

    Código:
    Private Sub txt_tipo_analise__AfterUpdate()
    If txt_tipo_analise <> "FQ" Or txt_tipo_analise <> "MB" Then
        Me.txt_analise_fq.Enabled = True
        Me.txt_analise_mb.Enabled = True
    ElseIf txt_tipo_analise = "MB" Then
            Me.txt_analise_fq.Enabled = False
            Me.txt_analise_mb.Enabled = True
        Else
            Me.txt_analise_fq.Enabled = True
            Me.txt_analise_mb.Enabled = False
        End If
    End If
    End Sub


    .................................................................................
    A persistência leva ao sucesso!

    Maurício Bruno
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Múltipla Escolha (Combobox)

    Mensagem  Maurício Bruno em Qua 19 Jul 2017, 19:40

    Deu certo.
    Muito Obrigado pela ajuda Caio
    avatar
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 229
    Registrado : 05/12/2016

    Re: [Resolvido]Múltipla Escolha (Combobox)

    Mensagem  caiosouza em Qua 19 Jul 2017, 19:46

    Obrigado pelo retorno, bons estudos.


    .................................................................................
    A persistência leva ao sucesso!

    Maurício Bruno
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]Múltipla Escolha (Combobox)

    Mensagem  Maurício Bruno em Ter 01 Ago 2017, 18:56

    Caio,

    Como eu faria para ao clicar em outro botão limpar a combobox de multi valores.

    já utilizei o código abaixo e outras variaveis, como Null, Empty, combobox.text, combobox.value, e não funcionou.

    Código:
    If me.check = 0
    me.combobox = ""
    end if

    Grato pela atenção e ajuda.
    avatar
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 229
    Registrado : 05/12/2016

    Re: [Resolvido]Múltipla Escolha (Combobox)

    Mensagem  caiosouza em Ter 01 Ago 2017, 19:17

    Para limpar depende do Campo Check?

    Se sim, tente focar no campo antes de limpar:

    Código:
    Private Sub SeuBotao_Click()
    If Me.Check = 0 Then
    Me.txt_analise_fq.SetFocus
    Me.txt_analise_fq = Null
    End if
    End Sub


    .................................................................................
    A persistência leva ao sucesso!

    Maurício Bruno
    Avançado
    Avançado

    Respeito às Regras 100%

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

    [Resolvido]Múltipla Escolha (Combobox)

    Mensagem  Maurício Bruno em Qua 13 Set 2017, 13:14

    caiosouza,

    Obrigado... Deu certo.
    avatar
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 229
    Registrado : 05/12/2016

    Re: [Resolvido]Múltipla Escolha (Combobox)

    Mensagem  caiosouza em Qua 13 Set 2017, 14:00

    Obrigado pelo retorno, bons estudos!


    .................................................................................
    A persistência leva ao sucesso!

      Data/hora atual: Ter 21 Nov 2017, 17:34