[Resolvido]SQL, para somar quantia de atendimentos por Terapia, num determinado período.

Olá caríssimos.

Estou com a seguinte dificuldade.

Estou montando um Formulário gerencial, onde são contadas as quantias de terapias/atendimentos feitos no período pré determinado no relatório. Já consegui fazer a busca pela data, corretamente.

Estou usando sql, para fazer essa, direto no VBA, mas existem casos em q a terapia em questão, pro ex, Triagem (cód 12), que pode ter um mês e não ter no outro, aí vem o erro, e não consigo achar uma forma de desviar desse erro.

O erro, em tempo de execução "-2147352567 (80020009):
O valor que você inseriu não é válido para este campo.

O código:

' Triagem no Período, me.TriagemPer
strSql = "SELECT tabAtServDet.CodServ, Count(tabAtendimentos.CodPac) AS ContarDeCodPac " _
& "FROM tabServicos INNER JOIN (tabAtendimentos INNER JOIN tabAtServDet ON " _
& "tabAtendimentos.NumOrdAtendID = tabAtServDet.ordAtendNum) ON tabServicos.CodServ = tabAtServDet.CodServ " _
& "WHERE (((tabAtendimentos.DataOAt) Is Not Null " _
& "And (tabAtendimentos.DataOAt) Between #" & Format([Forms]![MenuRelatoriosF]![DtInicial], "mm/dd/yyyy") & "# " _
& "And #" & Format([Forms]![MenuRelatoriosF]![DtFinal], "mm/dd/yyyy") & "#)) " _
& "GROUP BY tabAtServDet.CodServ " _
& "HAVING (((tabAtServDet.CodServ)=);"
Set Rst = CurrentDb.OpenRecordset(strSql)
On Error GoTo PossiveisErros58
Me.TriagemPer = Rst.Fields("ContarDeCodPac")
Rst.Close
Set Rst = Nothing
MsgBox Me.TriagemPer.Value
PossiveisErros58:
If Err.Number = -2147352567 Then
Me.TriagemPer.Value = 0
End If


A linha marcada como errada, é:
Me.TriagemPer = Rst.Fields("ContarDeCodPac")

Se eu colocar uma data onde exista pelo menos um serviço de triagem, não dá mais o erro.

Como eu posso contornar esse erro, ou dizer para ele que se houver erro, precisa preencher com 0, no campo pedido?

Já tentei NZ, sem sucesso...

Não sei mais o que fazer.

Tks

Olá Ledah,

Por gentileza, disponibilize uma copia do seu banco de dados para análise e solução do problema.

Att,

Alexandre

Bom dia.

O período testado, q dá erro, é de 01/01/23 a 31/01/23.  Se eu colocar o período de 01/01/23 até 31/01/24, não dá erro.

A opção está no Menu Principal \ Relatórios \ Resumo Pacientes - DRS.

LogIn Admin, senha 123

Obrigada

Bom dia Leda,

Segue sistema atualizado.


Att,

Alexandre Fim

Q legal, deu certo.

Para eu entender o que vc fez.

Vc testou se estava no fim do arquivo? Foi isso?

Eu não consegui usar com eficiência o tratamento de erro... Ele não lia o tratamento de erro que eu coloquei.

EU posso fazer o tratamento de erro do jeito q tinha feito? Qual foi o meu erro... onde eu falhei nesse raciocínio?

Obrigada.

Obrigada, pela ajuda.

Bom dia Leda,

Vc testou se estava no fim do arquivo? Foi isso?

R: Sim, isso mesmo. quando se trabalha com recordset's, é necessário que verifique se ele carregou os dados conforme a instrução SQL passada pra ele.
Se vc atribuir um valor de algum controle com o valor de algum campo do recordset e se ele vier carregado sem dados, vai dar erro.

Eu não consegui usar com eficiência o tratamento de erro... Ele não lia o tratamento de erro que eu coloquei.

R: O tratamento de erro deve ser colocado no final do procedimento, após o EXIT SUB, pois qualquer erro que ocorrer na rotina, vai cair no tratamento de erro.
E se não colocar o EXIT SUB, a rotina vai passar pelo tratamento de erro também, gerando Erro 0, ou seja, um Falso Erro.

OBS: Esqueci de colocar o tratamento de erro correto no teu sistema.

É isso

Att,

Alexandre Fim

Agora sim, ficou tudo mais claro.

Muito obrigada, mesmo.

Ok, Leda !!
Boa sorte e sucesso!