[Resolvido]Filtro em Subformulário não funciona.

Salve salve.
Preciso da ajuda de vocês. Criei um sistema para gerenciar meus processos, tenho um formulário raiz onde alimento com os subfomulários através de controle de navegação.
Tudo funciona normal, mas quando aplico o filtro no sub formulário através do formulário raiz ele não filtra.
Se abrir só sub formulário filtra normal, mas usando ele no form raiz não.
eis o VBA:

Option Compare Database
Option Compare Database
Option Explicit
Private Sub btnProcurarCliente_Click()
On Error Resume Next
Dim strFiltro As String
Dim strOpcao As String
strOpcao = Me!cbxCriterioProcesso
Select Case strOpcao
Case Is = "Cliente"
strFiltro = "[Dados_Processos.CLIENTE] Like'*" & Me.txtPesquisaProc & "*'"
Case Is = "Municipio"
strFiltro = "[Dados_Processos.NÚMERO] Like'*" & Me.txtPesquisaProc & "*'"
End Select
Forms!lst_Processos.Form.Filter = strFiltro
Forms!lst_Processos.Form.FilterOn = True
End Sub

Apenas ressaltando que coloquei a caixa de texto no rodapé do sub formulário.

Formulário Raiz nome = index
formulário nome = lst_Processos

Olá,

Acredito que faltou isso:

Forms!lst_Processos.Form.Requery

Testa ai e veja se funciona.

Att,

Alexandre Fim

Não funcionou amigo.
Tirei a tratativa de erro e aparece
Erro em tempo de execução 2450 e referencia o sub formulário como "não pode localizar"
Mas somente aparece o erro quando executo pela raiz. direto no subform não da erro

Tente assim:

Me.lst_Processos.Filter = strFiltro
Me.lst_Processos.FilterOn = True
Me.lst_Processos.Requery


Se não funcionar, disponibiliza uma copia do seu bd para análise e solução.

Valeu

Att,

Alexandre Fim

Infelizmente não rolou.

To compartilhando através do gdrive pois o arquivo supera o tamanho permitido.


https://drive.google.com/file/d/1HTbucSnOqHr8aSWBP4ZfAJNwHYFOu_L_/view?usp=sharing

Olá,

Copie e cole o código abaixo:

Código:



Private Sub btnProcurarCliente_Click()
On Error GoTo trata_erro
Dim strFiltro  As String
Dim strOpcao    As String
   
    strOpcao = Me!cbxCriterioProcesso
   
    Select Case strOpcao
        Case Is = "Cliente"
          strFiltro = "[Dados_Processos.CLIENTE] Like'*" & Me.txtPesquisaProc & "*'"
        Case Is = "Estado"
          strFiltro = "[Dados_Processos.UF] Like'*" & Me.txtPesquisaProc & "*'"
    End Select
   
    With Me
      .Filter = strFiltro
      .FilterOn = True
      .Requery
    End With
   
    Exit Sub

trata_erro:
    MsgBox "Erro ocorrido: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
    Exit Sub
   
End Sub




É isso

Vai funcionar !

Att,

Alexandre Fim

Fenomenal amigo.

Solução do Alexandre funcionou perfeitamente.

Ficou fenomenal!!!

Valeu Rodrigo
O fórum agradece.

Sucesso.