[Resolvido]Consultas que alimentam SubFormularios dá #Erro e não consigo consertá-la.

Boa noite, galera do Forum.

Meu BD está dando um erro nos subformulários. Acredito que seja nas consultas que os alimentam, por isso coloquei na sala de Consultas.
Vejam na foto abaixo, no local destacado que há 3 subformularios ali, mas apresentam erro.
O estranho é que ao abrir o BD pela primeira vez o erro NÃO APARECE. Mas clicar nas Calculadoras e criar novos registros nos subformularios eles atualizam com erro. Não sei o que pode estar provocando isso e peço a ajuda de vocês.

[/url]

Sai e entrei várias vezes no aplicativo e depois nos pacientes "Walter e Maria", tudo normal em ambos. Tente, compactar e reparar o aplicativo.

Bom dia, Tauron.
Obrigado pela atençao.

Clique nas calculadoras e faça nos calculos colocando quaisquer valores, nas tres calculadoras e o erro DEVE APARECER...

Por favor.

Bom dia a todos.
Resolvi simplificar o BD para facilitar a análise dos amigos do Forum e tentarem descobrir porque está dando o Erro.
Veja bem: Ao abrir o BD os tres subformulários funcionarão perfeitamente, mas quando se clica nas calculadoras que tem do lado deles para se inserir outros calculos é que dá o problema. Ao FECHAR e RETORNAR ao formulario principal aparece Erro. E não consigo identificar porque isso acontece...

Abaixo o BD resumido. Alguns erros vão aparecer porque exclui vários subformularios que nada têm a ver com o ERRO.

Alguém, por favor, poderia me ajudar com esse problema?

Acredito que o erro poderá estar aqui;

Você manda fechar o form, mas depois manda abrir outro filtrado por um campo do form que mandou fechar,

Código:

       Else
            DoCmd.Close acForm, "Fml_CalculaEstadiamRenalCron"
            DoCmd.OpenForm "Fml_ReceitaMedica", , , "CódigoMembrosFamilia=" & Me!CódigoMembrosFamilia


Faça o teste invertendo a ordem;

Código:

       Else
            DoCmd.OpenForm "Fml_ReceitaMedica", , , "CódigoMembrosFamilia=" & Me!CódigoMembrosFamilia
            DoCmd.Close acForm, "Fml_CalculaEstadiamRenalCron"


Nota importante:
Dentro do VBA, vá a debug e compile, corriga todos os erros que encontrar e acredite são muitos e até em controles que não existem dentro destes formularios.

Boa tarde JPaulo.
Agradeço pela atenção.
Fiz as alterações que você sugeriu, mas continuou dando o mesmo erro.

O problema está nas consultas que alimentam os subformulários? Ou será nos subformulários?

Não consigo identificar...

Oh! Meu Deus!!!!
Estou revisando meu Banco de Dados há várias semanas, gastando horas e horas procurando o erro! Onde está o erro meu Deus do céu?
Refiz Forms e SubForms... Refiz as Consultas... Reavaliei as Tabelas... Os Relacionamentos... Os Módulos...
Nada de encontrar a m... do erro.

Aí, pensando em desistir do Access no outro dia pela manhã, resolvi tomar uma loira gelada e ir dormir o sono dos desesperados...

Não é que sonhei que o Banco de Dados estava funcionando certinho no Notebook da minha esposa!

Acordei agora as 5 da manhã, peguei um pendrive e fui testar.

Voilà!!! Não é que funcionou?

Desenvolvi o aplicativo no meu computador que tem:

Windows 11 Home Single Professional
Office Professional Plus 2016 - PT-BR
64 bits.

E o Notebook de minha esposa é:

Windows 8.1
Office Profissional Plus 2013
64 bits.

Por orientação desse Forum sempre desenvolvo os BD em .mdb (2003).

Mas parece que houve alguma incompatibilidade...

Será algum problema nas Referências? Não entendo nada disso... O que devo fazer?

Gostaria de pedir a algum colega que, por gentileza, baixe o arquivo acima e faça o teste em seu computador (ou Notebook) para ver se o mesmo erro acontece.
Estou tendo muita dificuldade com isso e não consigo encontrar o motivo que leva a esse erro para conseguir resolve-lo. Achei que era um problema de configuração do Office, mas continua dando o mesmo problema.

Obrigado.

Bom dia.

Por gentileza, teste dessa forma, comentando essa linha que se encontra em vermelho

Private Sub Combinação49_AfterUpdate()

DoCmd.ApplyFilter , "CódigoMembrosFamilia=" & Me!Combinação49.Column(0)
'Me!Combinação49 = Null
Me.SubFml_CondicoesCronicas.Requery

Boa tarde, Silvio.
Obrigado pela sugestão.
Fiz o que você falou, de "comentar" aquela linha, mas nada mudou...
Veja por favor que ao abrir o formulário ele carrega os dados corretamente, mas ao se fazer novos calculos, ao retornar ao Fml_ReceitaMedica os dados NÃO SÃO CARREGADOS CORRETAMENTE. E a partir daí todos os pacientes ficam com erro no subformulario, mas se eu fechar o BD e abrir novamente ele carrega corretamente...

Boa tarde....

Estarei sim dando uma olhada nisso.

Fico muito agradecido, e aguardo.

Um abraço.

Apenas uma tentativa...

Private Sub Form_Current()
On Error Resume Next
Me.Escore = Nz([PontosIdade] + Nz([PontosColesterol] + Nz([PontosHDL] + Nz([PontosPressao] + Nz([PontosDiabetes] + Nz([PontosTabagismo]))))))
End Sub

Na origem de dados, coloque apenas escore e a sua tabela.

Creio que poderá dar certo isso. Só não mexo mais, pois estou meio atarefado aqui.

Não compreendi bem essa sua sugestão.

Colocar aquele código no Evento "No Atual" de qual subformulário? Ou do Fml_ReceitaMedica?
Na origem dos dados devo deixar quais campos da Tabela?

Para quando você tiver um tempinho, claro!

Um abraço.

No sub formulário...
É o primeiro...de cima para baixo.
Estou no transito indo a cliente.

Bom dia, Silvio.

Não consegui implementar sua sugestão. Acho que não entendi bem...

Na sua frase:
"Na origem de dados, coloque apenas escore e a sua tabela."

O que você quis dizer com "apenas escore e sua tabela"?

É no....SubFrml_riscoCardioVasc

1- vai na origem de dados desse formulário
2- em ESCORE
3- copia tudo depois de ESCORE:
3a- não se esqueça de apagar tudo despois de ESCORE:
4- entra no código desse formulário citado acima, evento ao abrir.
5- digite.. ME.ESCORE= Nz([PontosIdade]+Nz([PontosColesterol]+Nz([PontosHDL]+Nz([PontosPressao]+Nz([PontosDiabetes]+Nz([PontosTabagismo]))))))

Teste e nos informe.

Desculpe a demora, mas estou com muito trabalho por aqui.

Bom dia , Silvio.

A Origem dos dados desse SubFml é uma consulta e tentei fazer nela o que você sugeriu: Apagar tudo depois de ESCORE: . Mas o Access não aceita. Dá mensagem de Erro de Sintaxe. ESCORE é o Nome do Campo Calculado, mas depois de ESCORE: tenho que colocar os camandos e campos para que a consulta faça os calculos. O Access não aceitou deixar apenas "NOME:".

Boas....de uma olhada.

Perfeito, Silvio.
Demorei um pouco para responder porque o trabalho estava me estrangulando...

Mas consegui fazer hoje usando a sua sugestão.

Muito obrigado, novamente.
Um grande abraço e excelente final de semana.

Walter

Bom dia / Boa tarde / Boa noite a todos.

Walter, eu creio que terá que colocar alguns cálculos que estão em consulta no sub formulário, isso é apenas uma hipótese.
Mas, se funfou....ótimo !

Abraços.