[Resolvido]Filtrar Tabela Marcando mais de uma opção por ComboBox

Bom dia!
Possuo um formulário frmRota (inclusive foram vocês que me ajudaram a montá-lo). Neste formulário existe uma tabela que é filtrada por vários ComboBox. Até aí está funcionando perfeitamente, porém muitas vezes eu preciso selecionar mais de um campo por ComboBox e não estou conseguindo achar nenhuma opção que permita selecionar várias opções. É possível?
Desde já obrigado!


Segue link do projeto:
http://alantaru.000webhostapp.com/BANCO_DE_DADOS/MAIS_DE_UM_CAMPO.zip

Bom dia Alan,

Por gentileza, especifique qual combo deseja selecionar ais de um item.

GRato

No formulário frmRota, todos os combos.

ok...
vou verificar

Alan,

Pra que as caixas de combinação apareçam com checkboxes para selecionar 1 ou mais itens, é necessário criar tabela com um campo que tenha tipo de dados do Assistente de pesquisa. Insira alguns valores e marque a caixa "Permitir vários valores". Isso configura um campo com vários valores.

Boa sorte

Desculpe, não entendi.
Como faço isso?

alguém teria algum exemplo ou link de algo parecido? Sou inexperiente no Access, não estou conseguindo encontrar.

Veja

Olá Boa Tarde,

desculpem a minha intromissão

aqui fica mais um exemplo, em cada comb pode selecionar  quantos item's necessitar e na parte inferior irá aparecer cada item selecionado que mostrará na lista


JSilva

IvanJr.
Seu modelo é exatamente o que eu preciso, só tem um porém:
No meu código, a Caixa de Combinação executa o seguinte código ao receber foco:

Código:

Private Sub cboEmpresa_GotFocus()
    Me.ActiveControl.RowSource = fncMontaRowSource(Me.ActiveControl.Name)
End Sub

Que leva para esta função:

Código:

Private Function fncMontaRowSource(strComboNome As String) As String
    Dim strFiltro As String
    Dim ctl As Control
   
    For Each ctl In Me.Controls
        If ctl.ControlType = acComboBox Then
            If ctl.Name <> strComboNome And Not IsNull(ctl.Value) Then
                Select Case ctl.Name
                    Case "cboEmpresa", "cboPlantaInstalada", "cboDeptoAlmox", "cboRua", "cboStatus", "cboModelo", "cboPorcentagemToner2", "cboHorario"
                        strFiltro = strFiltro & fncNomeCampoTab(ctl.Name) & " = '" & ctl.Value & "' And "
                    Case "cboContrato", "cboProtocolo"
                        strFiltro = strFiltro & fncNomeCampoTab(ctl.Name) & " = " & ctl.Value & " And "
                    Case "cboDataEntrega"
                        strFiltro = strFiltro & fncNomeCampoTab(ctl.Name) & " = #" & Format(ctl.Value, "mm/dd/yyyy") & "# And "
                End Select
            End If
        End If
    Next ctl
   
    If strFiltro <> "" Then strFiltro = "where " & Left(strFiltro, Len(strFiltro) - 5) & " "
   
    fncMontaRowSource = "select distinct " & fncNomeCampoTab(strComboNome) & " from tabRota " & strFiltro & "order by " & fncNomeCampoTab(strComboNome) & ";"

End Function

Essa função faz com que os dados apareçam um por um na Caixa de Combinação.
Para permitir aquele checkbox com múltiplas escolhas, eu precisaria colocar item por item na Caixa de Combinação separado por ponto e vírgula na propriedade "Origem da linha", estou certo? É isso que não estou conseguindo fazer.

No seu exemplo, a Caixa de Combinação "Categoria" está assim:
Origem da Linha: VERMELHO;AZUL;ROXO;AMARELO;PRETO;BRANCO
Tipo de Origem da Linha: Lista de valores

Nessa Origem da Linha que eu queria colocar os valores.
Minhas Caixas de Combinação no frmRota estão assim:
Origem da Linha: (vazio)
Tipo de Origem da Linha: Tabela/Consulta

Espero ter explicado bem.

Acho que compliquei a explicação acima.
Resumindo: os combos do meu formulário frmRota filtram os itens e os exibe em forma de lista para o usuário escolher apenas um.
Eu queria saber como permitir que o usuário possa escolher mais de um item dentro desses combos (já que o combo esta filtrando esses itens por meio de codigo)

Não consigo pensar em outra coisa senão indicar que refaça seu formulário trocando comboboxes por listboxes onde nelas seja permitido múltiplas seleções. Talvez outros colegas tenham outras dicas.

Também pensei nessa opção, mas como seria possível popular os listboxes e usá-los para filtrar a tabela? Tem jeito? Pensei que só se podia fazer isso com comboboxes.

Um dos mandamentos de python diz que "Simples é melhor do que complexo". Não vejo porque não estender também para MS Access/VBA

Para o que pretendes, talvez o melhor mesmo seja usar o recurso nativo do Access. Exclua suas comboboxes e use seu subformulário no modo folha de dados que tudo fica resolvido.

OK, vou fazer isso.
Muito obrigado pela ajuda! Marquei como respondido.

Boa noite,
Não altere o título
Par dar por resolvido, prima o botão "Resolvido" do formulário do fórum