[Resolvido]Filtro de multipla seleção

Boa Tarde, a todo o Fórum,

Estou construindo um filtro em formulário que dê para selecionar com base numa consulta, vários funcionários

já tenho um exemplo parecido que me foi facultado pelo Prof Avelino, mas tentei agora adaptar a outro exemplo e não está a funcionar

pf alguém pode ajudar, onde estou a errar

o exemplo anexo vai ter vários filtros, mas nesta fase já está dando erro no 1º filtro que montei para selecionar vários funcionários

o código pára em:

Private Sub fncFiltraConsulta(strFiltro$)
Dim qry As QueryDef
Dim strSQl$
Set qry = CurrentDb.QueryDefs("qryFicheiro_Mestre_Consulta")
strSQl = Left(qry.SQL, InStr(qry.SQL, "HAVING") - 1)
strSQl = strSQl & " HAVING " & strFiltro
strSQl = strSQl & " ORDER BY Ficheiro_Mestre.Nº ORDEM;"
qry.SQL = strSQl
Me.Refresh
Set qry = Nothing
End Sub

Ola

O seu campo "Nº ORDEM" tem um espaço no nome, e sempre que isso acontece tem de isolar esse nome entre colchetes [Nº ORDEM].

Tem de corrigir em todos os eventos que usa esse nome;

Código:

Private Sub Form_Open(Cancel As Integer)
    Call fncFiltraConsulta("Ficheiro_Mestre.[Nº ORDEM] > 0")
End Sub


Código:

Private Sub fncFiltraConsulta(strFiltro$)
Dim qry As QueryDef
Dim strSQl$
Set qry = CurrentDb.QueryDefs("qryFicheiro_Mestre_Consulta")
    strSQl = Left(qry.SQL, InStr(qry.SQL, "HAVING") - 1)
    strSQl = strSQl & " HAVING " & strFiltro
    strSQl = strSQl & " ORDER BY Ficheiro_Mestre.[Nº ORDEM];"
    qry.SQL = strSQl
    Me.Refresh
Set qry = Nothing
End Sub

Note que numa correta modelagem de dados, não se deve usar espaços nem caracteres especiais em nome de campos, consultas, formularios, relatorios, etc...

Olá JPaulo,

muito obrigado, vou ter algum trabalho mas vou corrigir na BD todos os campos que estiverem nesta situação

Grade Abraço