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 18/7/2017, 19: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 : 265
    Registrado : 05/12/2016

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

    Mensagem  caiosouza em 19/7/2017, 18: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 19/7/2017, 18:40

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

    Respeito às Regras 100%

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

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

    Mensagem  caiosouza em 19/7/2017, 18: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 1/8/2017, 17: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 : 265
    Registrado : 05/12/2016

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

    Mensagem  caiosouza em 1/8/2017, 18: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 13/9/2017, 12:14

    caiosouza,

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

    Respeito às Regras 100%

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

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

    Mensagem  caiosouza em 13/9/2017, 13:00

    Obrigado pelo retorno, bons estudos!


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

      Data/hora atual: 20/2/2018, 05:22