[Resolvido]Desfazer filtro

Boa tarde amigos,neste exemplo tenho um formulario que filtro o status com botões de opção,esta filtrando direitinho,mas quero ao clica no botão todos,que apareça todos os dados no form.Não to conseguindo.

Amigo como diz um programador experiente aqui do forum acho que é J Paulo, antes de enviar um projeto no forum para ser analisado,
compila o mesmo, para ficar mas fácil de identificar o seu problema.

Mas bha tche,veja agora se ta em ordem.

Passo 1.
Cria uma varivel na seção Geral

Dim SQL as string

'adicione no seu projeto o metodo mencionado.

Private Sub FiltraOpcoes(opcao As String)

If opcao = "Mostrando todos" Then
SQL = "SELECT * FROM viewOrdemServicos ORDER BY DTENTRADA DESC"
Else
SQL = "SELECT * FROM viewOrdemServicos WHERE STATUS = " & "'" & opcao & "'"
SQL = SQL & " ORDER BY DTENTRADA DESC"
End If

End Sub


'NAS OPÇÕES VOCÊ CHAMA O METO E PASSA O TXTSTATUS COMO PARAMENTRO.

If opFiltro = 1 Then
       txtSTATUS = "Em aberto"
       BotaoAlterar.Visible = True
       BotaoExcluir.Visible = True
       BotaoExportar.Visible = False
       BotaoReabrir.Visible = False
       
       'chama o metodo privado
       Call FiltraOpcoes(txtSTATUS)
   ElseIf opFiltro = 2 Then
       txtSTATUS = "Aguardando peças"
       BotaoAlterar.Visible = True
       BotaoExcluir.Visible = True
       BotaoExportar.Visible = False
       BotaoReabrir.Visible = False
       
       'chama o metodo privado
       Call FiltraOpcoes(txtSTATUS)
   ElseIf opFiltro = 3 Then
       txtSTATUS = "Aguardando aprovação"
       BotaoAlterar.Visible = True
       BotaoExcluir.Visible = True
       BotaoExportar.Visible = False
       BotaoReabrir.Visible = False
       
       'chama o metodo privado
       Call FiltraOpcoes(txtSTATUS)
   ElseIf opFiltro = 5 Then
       txtSTATUS = "Mostrando todos"
       BotaoAlterar.Visible = False
       BotaoExcluir.Visible = False
       BotaoExportar.Visible = False
       BotaoReabrir.Visible = False
       
       'chama o metodo privado
       Call FiltraOpcoes(txtSTATUS)
    ElseIf opFiltro = 4 Then
       txtSTATUS = "Finalizado"
       BotaoAlterar.Visible = True
       BotaoExcluir.Visible = True
       BotaoExportar.Visible = True
       BotaoReabrir.Visible = True
       
       'chama o metodo privado
       Call FiltraOpcoes(txtSTATUS)
   End If
   Set dbs = CurrentDb
   

   
   Set rst = dbs.OpenRecordset(SQL)
   
   If rst.RecordCount = 0 Then
       Beep
       If opFiltro = 2 Then
           MsgBox "Não ordem de serviços aguardando peças!", vbInformation, "Ordem serviços"
       ElseIf opFiltro = 3 Then
           MsgBox "Não ordem de serviços aguardando aprovação!", vbInformation, "Ordem serviços"
       ElseIf opFiltro = 4 Then
           MsgBox "Não ordem de serviços finalizadas!", vbInformation, "Ordem serviços"
       ElseIf opFiltro = 1 Then
           MsgBox "Não ordem de serviços em aberto!", vbInformation, "Ordem serviços"
       ElseIf opFiltro = 5 Then
           MsgBox "Mostrando todos!", vbInformation, "Ordem serviços"
       End If
   End If
   Me.RecordSource = SQL

infelizmente não sei anexar arquivo aqui no forum
espero ter ajudado

Conseguir enviar o arquivo, tem que está no formato zipado

Muito obrigado amigo,valeu mesmo.

Só mais um detalhe,pra mim colocar o código em um botão pra limpar o filtro qual seria o mesmo codigo?

Espero ter ajudado

Perfeito amigo,mas não sei porque que no meu bd original não da certo,aí fui fazer o mesmo que vc fez no exemplo e tambem da esse erro,
"Sub ou function não definida" que estou fazendo de errado se fiz igual ao teu.

Seu código está compilando normal?
faça detalhes com mas clareza, em qual momento aparece a mensagem informada?
outra coisa, verifique os erros de digitação.

Agora deu certo estava faltando mais uma linha de código que não tinha visto.
Obrigado amigo,valeu mesmo.

Colega procure estudar as boas práticas de programação, se você ver que o código está ficando longo, procura dividir em métodos, igualmente fiz,
evite redundância de código.


Private Sub VisibilidadeDoBotes()

BotaoAlterar.Visible = True
BotaoExcluir.Visible = True
BotaoExportar.Visible = False
BotaoReabrir.Visible = False

End Sub

quando eu coloquei o método especificado acima, é porque você estava repetindo a visibilidade dos botões mas de uma vez.
outra dica, sempre que tiver muitos IF, procure substituir por SELECT CASE



Select Case opFiltro

Case 1 'Em aberto

Call FiltraOpcoes("Em aberto")
Call VisibilidadeDoBotes

Case 2 'Aguardando peças

Call FiltraOpcoes("Aguardando peças")
Call VisibilidadeDoBotes

Case 3 'Aguardando aprovação

Call FiltraOpcoes("Aguardando aprovação")
Call VisibilidadeDoBotes

Case 4 'Finalizado

Call FiltraOpcoes("Finalizado")
Call VisibilidadeDoBotes

Case 5 'Todos

Call FiltraOpcoes("Mostrando todos")
Call VisibilidadeDoBotes

End Select


Abraço tópico resolvido.