[Resolvido]Filtrar caixa de listagem com grupo de opções

Olá boa tarde,
mais uma vez necessito da vossa ajuda se possível.
Tenho um formulário com um grupo de opções e uma caixa de listagem, gostaria de filtrar essa caixa de listagem através desse grupo de opções, estou a utilizar o seguinte código. está a fazer a faz a contagem dos registos numa caixa de texto, mas não estou a conseguir filtrar a caixa d listagem quando faz a contagem dos registo selecionados no grupo de opções. Obrigado

Private Sub Quadro1_AfterUpdate()
If Me.Quadro1.Value = 1 Then
Me.txtcontar = DCount("*", "tbl_folha_serviço", "Situação='" & "Aberto" & "'")
Me.txtFiltro.Value = "Aberto"
ElseIf Me.Quadro1.Value = 2 Then
Me.txtcontar = DCount("*", "tbl_folha_serviço", "Situação='" & "Anulado" & "'")
Me.txtFiltro.Value = "Anulado"
ElseIf Me.Quadro1.Value = 3 Then
Me.txtcontar = DCount("*", "tbl_folha_serviço", "Situação='" & "Executado" & "'")
Me.txtFiltro.Value = "Executado"
ElseIf Me.Quadro1.Value = 4 Then
Me.txtcontar = DCount("*", "tbl_folha_serviço", "Situação='" & "Suspenso" & "'")
Me.txtFiltro.Value = "Suspenso"
Else
Me.txtFiltro.Value = ""

End If


End Sub

Envie-nos um modelo do bd para que possamos ver isso pra ti.

Cumprimentos.

Obrigado pela atenção, junto envio bd teste

Haverá ou não solução para esta situação?

Boa tarde, matutano
Private Sub Quadro1_AfterUpdate()
If Me.Quadro1.Value = 1 Then
Me.txtcontar = DCount("*", "tbl_folha_serviço", "Situação='" & "Aberto" & "'")
Me.txtFiltro.Value = "Aberto"
Lista0.RowSource = "SELECT IDservico, NOrdem, Format([DtPedido],'yyyy') AS Ano, Format([DtPedido],'mmmm') AS Mes, Usuario, TipEdificio, NEdoc, NProc, DespSuperior, DtPedido, Area, Freg, Obra, DtInicio, TrabExecutar, DtExecucao, Situação, PrevD, DTS([DtInicio],[DtExecucao]) AS DTrab, ([DiferenD]/[PrevD]) AS DesvioD, ([DTrab]-[PrevD]) AS DiferenD, MaoObra, Material, Transportes, ([MaoObra]+[Material]+[Transportes]) AS TotalObra FROM tbl_folha_Serviço WHERE Situação='Aberto';"
ElseIf Me.Quadro1.Value = 2 Then
Me.txtcontar = DCount("*", "tbl_folha_serviço", "Situação='" & "Anulado" & "'")
Me.txtFiltro.Value = "Anulado"
Lista0.RowSource = "SELECT IDservico, NOrdem, Format([DtPedido],'yyyy') AS Ano, Format([DtPedido],'mmmm') AS Mes, Usuario, TipEdificio, NEdoc, NProc, DespSuperior, DtPedido, Area, Freg, Obra, DtInicio, TrabExecutar, DtExecucao, Situação, PrevD, DTS([DtInicio],[DtExecucao]) AS DTrab, ([DiferenD]/[PrevD]) AS DesvioD, ([DTrab]-[PrevD]) AS DiferenD, MaoObra, Material, Transportes, ([MaoObra]+[Material]+[Transportes]) AS TotalObra FROM tbl_folha_Serviço WHERE Situação='Anulado';"
ElseIf Me.Quadro1.Value = 3 Then
Me.txtcontar = DCount("*", "tbl_folha_serviço", "Situação='" & "Executado" & "'")
Me.txtFiltro.Value = "Executado"
Lista0.RowSource = "SELECT IDservico, NOrdem, Format([DtPedido],'yyyy') AS Ano, Format([DtPedido],'mmmm') AS Mes, Usuario, TipEdificio, NEdoc, NProc, DespSuperior, DtPedido, Area, Freg, Obra, DtInicio, TrabExecutar, DtExecucao, Situação, PrevD, DTS([DtInicio],[DtExecucao]) AS DTrab, ([DiferenD]/[PrevD]) AS DesvioD, ([DTrab]-[PrevD]) AS DiferenD, MaoObra, Material, Transportes, ([MaoObra]+[Material]+[Transportes]) AS TotalObra FROM tbl_folha_Serviço WHERE Situação='Executado';"
ElseIf Me.Quadro1.Value = 4 Then
Me.txtcontar = DCount("*", "tbl_folha_serviço", "Situação='" & "Suspenso" & "'")
Me.txtFiltro.Value = "Suspenso"
Lista0.RowSource = "SELECT IDservico, NOrdem, Format([DtPedido],'yyyy') AS Ano, Format([DtPedido],'mmmm') AS Mes, Usuario, TipEdificio, NEdoc, NProc, DespSuperior, DtPedido, Area, Freg, Obra, DtInicio, TrabExecutar, DtExecucao, Situação, PrevD, DTS([DtInicio],[DtExecucao]) AS DTrab, ([DiferenD]/[PrevD]) AS DesvioD, ([DTrab]-[PrevD]) AS DiferenD, MaoObra, Material, Transportes, ([MaoObra]+[Material]+[Transportes]) AS TotalObra FROM tbl_folha_Serviço WHERE Situação='Suspenso';"
Else
Me.txtFiltro.Value = ""
End If
Forms!Frm_Folha_Serviço.Form!txtFiltro.Requery
End Sub

Não sei como agradecer Alexandre, muito obrigado está a funcionar ***** Não quero ser abusador mas despois de selecionar uma das quatro opções, como é que posso voltar a ter a listagem toda outra vez? sem ter que fechar o formulário.

Obrigado

Grande Alexandre.... Obrigado por ajudar.. estive ocupado resolvedo coisa do meu tratamento.. e não tive tempo de acompanha..

Valeu Amigão..

muito obrigado, agradeço ao Alexandre pela sua boa vontade de ensinar os que menos sabem.
Ao Piloto o meu Agradecimento pelo seu interesse em me ajudar.
MUITO OBRIGADO E TUDO DE BOM PARA VOCÊS.
Resolvido com o acrescimo desta linha no código, para voltar a ter a listagem toda de volta

ElseIf Me.Quadro1.Value = 5 Then
Me.txtcontar = DCount("*", "tbl_folha_serviço", "NOrdem")
Me.txtFiltro.Value = "Todos"
Lista0.RowSource = "SELECT IDservico,Format([DtPedido],'yyyy') AS Ano, Format([DtPedido],'mmmm') AS Mes, NOrdem, NEdoc, NProc, DespSuperior, DtPedido, Area, Freg, Obra, DtInicio, TrabExecutar, DtExecucao, Situação, PrevD, DTS([DtInicio],[DtExecucao]) AS DTrab, ([DiferenD]/[PrevD]) AS DesvioD, ([DTrab]-[PrevD]) AS DiferenD, MaoObra, Material, Transportes, ([MaoObra]+[Material]+[Transportes]) AS TotalObra FROM tbl_folha_Serviço';"

O Fórum agradece o Retorno.

Obrigado amigo Avelino, pela sua boa vontade de ajudar. Isto foi ótimo para quem não sabia 1 aprendeu 2
bem haja