[Resolvido]Problema na filtragem

Colegas bom dia.
Estou com problema na filtragem e não sei o porque.
tenho 2 campos: NProceddosAdministrativo, NProcessosJudicial.

Ele filtra muito bem no campo administrativo já no judicial ele filtra, mas deixa de filtrar alguns.
sendo que o codigo é:

Código:

If DCount("*", "tbl_cad_rotinas", "NProcessoJudicial ='" & Me.cbo_porN_judicial & "'") < 1 Then
    MsgBox "Não existe esse número de processo", vbExclamation, "Serviço Social"
    Me.cbo_porN_judicial.SetFocus
   
Else
    DoCmd.OpenForm "from_area_do_paciente", , , "NProcessoJudicial = """ & Me!cbo_porN_judicial & """"
    DoCmd.Close acForm, "from_filtro"
End If

A tabela é o formulário e o subforms estão na mesma formatação

0000000\-00\.0000\.0\.00\.0000;;_
Oque ocorre?

Bom dia,

Tente isso:

DoCmd.OpenForm "from_area_do_paciente", , , "NProcessoJudicial = '" & Me!cbo_porN_judicial & "'"

Boa noite, não vai não, sem saber qual o problema pois tanta o campo de Processo administrativo e judicial estão com mascara e formato de texto.
Não quero vincular campos mestres.

Descobrir o problema, está na mascara de entrada do formulário, mas eu preciso dessa mascara.
Eu preciso dessa máscara para facilitar que os técnicos administrativos e outros setores vejam e sejam mais ágil para entender quantos dígitos tem em cada.
Sem a máscara mesmo com os pontos e traços no formulário funciona legal , mas com mascara no formulário não funciona, é essencial que ela fique no formulário.
Vai dar problemas futuro, pois já tem números de processo com os formatos e quando cadastrar novos ,vai sem mascara na tabela.
Estava funcionando e porque parou de repente.

Boa tarde colegas.
Já nao estou entendendo o porque dos erro.
Se coloar os pontos e traços no campo ele está filtrando, mas se colocar a máscara na propiedade ele não filtra o sistema emite como não se tem processo no banco sendo que tem.

Tem como enviar uma cópia reduzida do banco de dados, mesmo sem dados?

Boa noite colega,
drive.google.com/drive/folders/1OohhIV0QgT1tyJX65a2iOXUXDK52U0GE?usp=sharing

Boa noite,

Acho que agora vai:

Private Sub cbo_porMome_AfterUpdate()
If DCount("*", "tbl_cad_rotinas", "Paciente ='" & Me.cbo_porMome & "'") < 1 Then
MsgBox " Não foi cadastrado nunhuma rotina para esse usuário", vbExclamation, "Serviço Social"
Else
DoCmd.OpenForm "from_area_do_paciente", , , "Nome = '" & Me!cbo_porMome.Column(1) & "'"
DoCmd.Close acForm, "from_filtro"
MsgBox "ATENÇÃO!!!" & vbCrLf & "Veja se os números dos processsos são os mesmo, caso não seja cadastre outra rotina.", vbExclamation, "Serviço Social"
End If
End Sub


Private Sub cbo_porADM_AfterUpdate()
If DCount("*", "tbl_cad_rotinas", "NProcessoAdministrativo ='" & Me.cbo_porADM & "'") < 1 Then
MsgBox "Não existe esse número de processo", vbExclamation, "Serviço Social"
Me.cbo_porADM.SetFocus
Else
DoCmd.OpenForm "from_area_do_paciente", , , "NProcessoAdministrativo = '" & Me!cbo_porADM & "'"
DoCmd.Close acForm, "from_filtro"
End If
End Sub


Private Sub cbo_porN_judicial_AfterUpdate()
If DCount("*", "tbl_cad_rotinas", "Replace(Replace(Cstr(Nz(NProcessoJudicial,'')),'-',''),'.','') ='" & Me.cbo_porN_judicial & "'") < 1 Then
MsgBox "Não existe esse número de processo", vbExclamation, "Serviço Social"
Me.cbo_porN_judicial.SetFocus

Else
DoCmd.OpenForm "from_area_do_paciente", , , "Replace(Replace(Cstr(Nz(NProcessoJudicial,'')),'-',''),'.','') ='" & Me.cbo_porN_judicial & "'"
DoCmd.Close acForm, "from_filtro"
End If
End Sub

Deu certo Claudio, mas por gentileza me explica o porque da função de conversão(Cstr) com o NZ, mesmo tendo colocado replace deixando a mascara., essa não entendi

A função Cstr() converte para string, parece que mesmo o campo sendo do tipo texto, o conteúdo é numérico e por isso a necessidade de converter.

Como a tabela tem alguns registros com esse campo nulo, ao tentar converter com Cstr esses campos nulos, dá erro, por isso o uso do NZ().

Entendi. Qualquer coisa volto nesse tópico.
Obrigao

Nada