Relatório filtrado com checkbox

Fala ae galera, já procurei aqui no forum mas não encontrei nada parecido.
Segue o BD em anexo!
Minha duvida eh a seguinte: gostaria de gerar um relatório filtrando com checkbox marcadas pelo usuário, utilizando o OU. No caso seria: etapa 1 ou etapa 3 ou variação 1 ou variação 901, por exemplo. O que devo utilizar como critério??
Os campos são ET e VAR na Tbl_Dados.
Desde já, agradeço a atenção e ajuda, pois já estou apanhando a dias

Bom dia e bem-vindo ao fórum.
Em formato não reconhecido. A maioria utiliza a versão 2003/2007

Opa! Valeu pelo toque, segue versão 2007

Nomeie os objectos de forma normalizada. Procure aqui no fórum, temos abordado várias vezes o assunto.
- Retire a consulta 1
- Coloque o código seguinte no relatório, no acontecimento AoAbrir
   RecordSource = "SELECT Tbl_Dados.Código, Tbl_Dados.ET, Tbl_Dados.NRO_UNICO_OPR, Tbl_Dados.AGEN, Tbl_Dados.OPER, Tbl_Dados.VAR, Tbl_Dados.DT_LANC, Tbl_Dados.HST, Tbl_Historicos.HISTORICO, Tbl_Historicos.TIPO, Tbl_Historicos.HISTM, Tbl_Lancamentos.Entrada, Tbl_Lancamentos.Saida FROM Tbl_Historicos INNER JOIN (Tbl_Dados INNER JOIN Tbl_Lancamentos ON Tbl_Dados.Código = Tbl_Lancamentos.Cod) ON Tbl_Historicos.HST = Tbl_Dados.HST;"
- coloque as caixas de verificação "var" com valor pré-definido=0
- Coloque código no botão GerarRelatorio
   Dim strFiltro As String
   
   'cria o filtro
   If Et1 Then strFiltro = " and et=1"
   If Et3 Then strFiltro = " and et=3"
   If Et4 Then strFiltro = " and et=4"
   If Et5 Then strFiltro = " and et=5"
   
   If Var1 Then strFiltro = " and var=1"
   If Var2 Then strFiltro = " and var=2"
   If Var3 Then strFiltro = " and var=3"
   If Var4 Then strFiltro = " and var=4"
   If Var5 Then strFiltro = " and var=5"
   If Var6 Then strFiltro = " and var=6"
   If Var16 Then strFiltro = " and var=16"
   If Var901 Then strFiltro = " and var=901"
   If Var902 Then strFiltro = " and var=902"
   If Var903 Then strFiltro = " and var=903"
   If Var904 Then strFiltro = " and var=904"
   If Var905 Then strFiltro = " and var=905"
   If Var906 Then strFiltro = " and var=906"
   If Len(strFiltro) > 0 Then strFiltro = Mid(strFiltro, 5)
   DoCmd.OpenReport "Rel_1", acViewPreview, , strFiltro

Perfeito!! Muito obrigadooo!!    


Edit:
Reparei aqui que esse cod ta filtrando com o valor apenas de uma das checkboxes.
Tem como filtrar com mais de uma checkbox marcada, no mesmo relatório?


Por exemplo, na primeira linha tem:
If Et1 Then strFiltro = " and et=1"
Se essa expressão for verdadeira, ele para por aqui e não analisa o restante do código, estabelecendo como critério de filtro, etapa 1.
Teria como analisar todo o código e usar como critério todas as checkboxes marcadas?
Etapa 1, variação 901, variação 1??

Ooobrigado!!

Ele estará a filtrar por qualquer combinação conjuntiva de marcações. Se isso não acontecer, informe qual(ais) combinação(ões) não funciona(m)
Logo que esteja resolvido, marque no botão apropriado (zona inferior direita do formulário do fórum)

Na verdade não funciona combinação nenhuma.
Poderia verificar o que estou a fazer errado?

Boa noite,
A bd que agora diz não funcionar não corresponde à bd que pediu ajuda anteriormente.
Indique uma combinção que não funcione