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]Múltipla Escolha (Combobox)

    avatar
    Maurício Bruno
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Múltipla Escolha (Combobox) Empty [Resolvido]Múltipla Escolha (Combobox)

    Mensagem  Maurício Bruno 18/7/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.
    caiosouza
    caiosouza
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  caiosouza 19/7/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


    .................................................................................
    Caio Souza

    Engenheiro de Software
    avatar
    Maurício Bruno
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Múltipla Escolha (Combobox) Empty Múltipla Escolha (Combobox)

    Mensagem  Maurício Bruno 19/7/2017, 19:40

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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  caiosouza 19/7/2017, 19:46

    Obrigado pelo retorno, bons estudos.


    .................................................................................
    Caio Souza

    Engenheiro de Software
    avatar
    Maurício Bruno
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Múltipla Escolha (Combobox) Empty [Resolvido]Múltipla Escolha (Combobox)

    Mensagem  Maurício Bruno 1/8/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.
    caiosouza
    caiosouza
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  caiosouza 1/8/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


    .................................................................................
    Caio Souza

    Engenheiro de Software
    avatar
    Maurício Bruno
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Múltipla Escolha (Combobox) Empty [Resolvido]Múltipla Escolha (Combobox)

    Mensagem  Maurício Bruno 13/9/2017, 13:14

    caiosouza,

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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  caiosouza 13/9/2017, 14:00

    Obrigado pelo retorno, bons estudos!


    .................................................................................
    Caio Souza

    Engenheiro de Software

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 23:13