Como Filtrar Contem na Combobox na Ribbon

Pessoal boa noite,

precisando daquela forca de sempre, com os melhores, alguem poderia me ajudar nessa situação, tem como eu filtrar um contem de 2 campos na ribbons, para facilitar segue imagem abaixo, coloquei o numero 40 na ribbon ele não trouxe todos que contem 40, como no formulario ao lado, não consegui adaptar na ribbon a mesma funcionalidade que fiz no formulario. algume poderia me ajudar nesse desafio ?

Carvalho, a ribbon não tem evento para essa situação. Isto é, não tem como usar o "Ao digitar/Ao alterar" que os formulários tem.

Boa noite damasceno,

Certo, porem não tem como adaptar a consulta de apetar o filtro do combobox e ele puxar na tabela que está escrito na ribbons ? é só uma ideia sei ainda como fazer mais estou testando aqui sem sucesso ainda.

seria mais ou mesmos assim: com esse código do mestre avelino sampaio, para adaptar ao que estou precisando, só até o momento sem sucesso.

Código:


Sub fncGetItemCountCbx(control As IRibbonControl, ByRef count)
    Select Case control.Id
        Case "cbx2" ' esta é a combobox do formulário frmClientes
            Dim rs As DAO.Recordset
            Dim strSql As String
            Dim j As Long
           
            'Para combobox do formulário cliente, faremos aqui duas tarefas.
            '1º - Informar a quantidade de item da lista
            '2º - Armazenar na memoria do computador, os nomes dos clientes, que irão preencher a listt do controle Combobox.
            '    Este conteúdo da memória será utilizado na função fncGetItemLabelCbx que será disparada, que será logo após a esta.
           
           
            strSql = "SELECT nomePaciente, numcirurgia FROM tblpaciente where NomePaciente like '*" & cbx1 & "*' ORDER BY nomePaciente;"
           
            Set rs = CurrentDb.OpenRecordset(strSql)
            rs.MoveLast: rs.MoveFirst
            count = rs.RecordCount
            ReDim strNomeCliente(rs.RecordCount) As String
            j = 0
            Do While Not rs.EOF
                strNomeCliente(j) = rs!NomePaciente
                j = j + 1
                rs.MoveNext
            Loop
            rs.Close
            Set rs = Nothing
           
    End Select
End Sub



Carvalho, pode detalhar melhor?

Quer digitar um texto na ribbon, apertar um botão e filtrar os dados em um formulário?

Quer digitar um texto na ribbon, apertar um botão e filtrar os dados na própria ribbon?

Dê detalhes de como quer que aconteça.

Damasceno, percebi que a lista so carrega depois que apertamos a seta, circulada em vermelhor, a minhia ideia seria digitar no campo e apertar a seta ele carregaria com esse criterio e com isso apareceria conforme o formulario abaixo, porem é só uma ideia que estou tentando adaptar.

É como eu disse na mensagem 2, o controle na ribbon não tem evento "ao digitar" que o formulário (que é mais completo de eventos) tem.