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

    autofiltro em uma caixa de combinação melhoria

    alozs
    alozs
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 298
    Registrado : 07/02/2018

    autofiltro em uma caixa de combinação melhoria Empty autofiltro em uma caixa de combinação melhoria

    Mensagem  alozs 22/9/2021, 21:24

    Boa tarde pessoal tudo bem?

    Aproveitando o tópico do autofiltro em uma caixa de combinação

    https://www.maximoaccess.com/t36638-combobox-autofiltro-string

    gostaria de uma ajuda da comunidade, se baixarem o exemplo e tentar filtrar um nome duplicado (exemplo: Humberto), se eu tentar pressionar pra baixo pra selecionar o 2º Humberto, ele não vai, fica travado na primeira opção.

    até agora não achei ainda uma alternativa pra ele ir pra 2º opção com nome igual Crying or Very sad

    o código que estou usando é esse
    Código:
    Dim strSQL As String

        Me.cboAutoFilter.Dropdown
        Select Case KeyCode
            Case vbKeyDown
                Me.cboAutoFilter = Me.cboAutoFilter.ItemData(Me.cboAutoFilter.ListIndex + 1)
                KeyCode = 0
            Case vbKeyUp
                Me.cboAutoFilter = Me.cboAutoFilter.ItemData(Me.cboAutoFilter.ListIndex - 1)
                KeyCode = 0
                
            Case vbKeyEscape
                Me.cboAutoFilter = Null 'Limpa a combo
                KeyCode = 0
                strSQL = "SELECT Tabela1.NomeCompleto, Tabela1.Profissao, Tabela1.Idade " & _
                "FROM Tabela1 " & _
                "ORDER BY [NomeCompleto];"
                Me.cboAutoFilter.RowSource = strSQL
                Me.cboAutoFilter.Dropdown
            Case Else
        End Select
    alozs
    alozs
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 298
    Registrado : 07/02/2018

    autofiltro em uma caixa de combinação melhoria Empty Re: autofiltro em uma caixa de combinação melhoria

    Mensagem  alozs 23/9/2021, 21:46

    up
    alozs
    alozs
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 298
    Registrado : 07/02/2018

    autofiltro em uma caixa de combinação melhoria Empty Re: autofiltro em uma caixa de combinação melhoria

    Mensagem  alozs 28/9/2021, 00:02

    up

      Data/hora atual: 24/9/2022, 20:19