[Resolvido]"Função 'PtsColesterolSexo' indefinida na expressão"

Boa noite, amigos.
Estou tentando fazer um módulo com uma função e não estou tendo sucesso. Sigo uma outra que o Alexandre generosamente fez prá mim, e funcionou legal. Segui os mesmos passos (acho que segui), mas não funciona. Me ajudem por favor a encontrar onde errei.

Minha consulta tem os Campos: ColesterolTotal e SexoMF. Combinando esses valores quero calcular um terceiro, e para isso criei um campo calculado, na consulta: PtsColesterol: PtsColesterolSexo([ColesterolTotal];[SexoMF])

O Função que criei foi:

Function PtsColesterolSexo(ColesterolTotal As Byte, SexoMF As String) As Byte

Select Case SexoMF
   SexoMF = "M"
       Select Case ColesterolTotal
       Case Is < 160
           PtsColesterolSexo = 0
       Case Is < 200
           PtsColesterolSexo = 1
       Case Is < 240
           PtsColesterolSexo = 2
       Case Is < 280
           PtsColesterolSexo = 3
       Case Else
           PtsColesterolSexo = 4
   SexoMF = "F"
       Select Case ColesterolTotal
       Case Is < 160
           PtsColesterolSexo = 0
       Case Is < 200
           PtsColesterolSexo = 1
       Case Is < 240
           PtsColesterolSexo = 3
       Case Is < 280
           PtsColesterolSexo = 4
       Case Else
           PtsColesterolSexo = 5
End Select
       
End Function

Porém, quando rodo a consulta dá a mensagem: "Função 'PtsColesterolSexo' indefinida na expressão"

Onde está o êrro?

Obrigado,
Walter

Desculpem. Colei o código errado. Na verdade ele é assim:

Function PtsColesterolSexo(ColesterolTotal As Byte, SexoMF As String) As Byte

Select Case SexoMF
Case "M"
Select Case ColesterolTotal
Case Is < 160
PtsColesterolSexo = 0
Case Is < 200
PtsColesterolSexo = 1
Case Is < 240
PtsColesterolSexo = 2
Case Is < 280
PtsColesterolSexo = 3
Case Else
PtsColesterolSexo = 4
End Select

Case "F"
Select Case ColesterolTotal
Case Is < 160
PtsColesterolSexo = 0
Case Is < 200
PtsColesterolSexo = 1
Case Is < 240
PtsColesterolSexo = 3
Case Is < 280
PtsColesterolSexo = 4
Case Else
PtsColesterolSexo = 5
End Select
End Select

End Function

Mas não quer funcionar...

Olá, boa noite!

Function PtsColesterolSexo(ColesterolTotal As Byte, SexoMF As String) As Byte

Select Case SexoMF
Case "M"
Select Case ColesterolTotal
Case Is < 160
PtsColesterolSexo = 0
Case Is < 200
PtsColesterolSexo = 1
Case Is < 240
PtsColesterolSexo = 2
Case Is < 280
PtsColesterolSexo = 3
Case Else
PtsColesterolSexo = 4
End Select

Case "F" 'Esse Case está "solto" aqui, pois na linha acima tem End Select e abaixo é que inicia o novo select!

Select Case ColesterolTotal
Case Is < 160
PtsColesterolSexo = 0
Case Is < 200
PtsColesterolSexo = 1
Case Is < 240
PtsColesterolSexo = 3
Case Is < 280
PtsColesterolSexo = 4
Case Else
PtsColesterolSexo = 5
End Select
End Select

End Function

Bom dia, Marcelo.
Obrigado por me auxiliar com essa função.
Acontece que são dois Select. O primeiro seleciona SexoMF, e o segundo seleciona ColesterolTotal. O Select que você falou que está solto fecha apenas o ColesterolTotal.
Veja a estrutura no Word onde dá prá ver melhor o que quero...

Desculpe, não tinha percebido isso...
Poderia postar seu banco para analise?

Grande Marcelo, penso que o problema é que a função não é Publica;

Tente alterar de:

Function PtsColesterolSexo(ColesterolTotal As Byte, SexoMF As String) As Byte

Para:

Public Function PtsColesterolSexo(ColesterolTotal As Byte, SexoMF As String) As Byte

Boa tarde, JPaulo.

Mudei para função pública, mas a mensagem continua a mesma:

"Função 'PtsColesterolSexo' indefinida na expressão"

Walter

É verdade JPaulo, não observei isso também.

Walter, onde está essa função? Num módulo ou em um formulário?

Boa tarde, Marcelo,

Essa função será acionada atraves de uma consulta:

PtsColesterol: PtsColesterolSexo([ColesterolTotal];[SexoMF])

Veja a estrutura da consulta no anexo. Não coloquei o BD porque ele é muito grande, mas se precisar retiro algumas coisas e posto, Ok?

Sei que vc chama a função de uma consulta, mas onde foi criada a função? Num Módulo ou formulário?

Desculpe. Entendi errado a sua pergunta ...

A função foi criada em um módulo.

Walter

Posta o arquivo, mesmo sem dados.

Ok, está em um módulo, e declarada como pública, confirma? caso sim, meu amigo, só mesmo postando o
aplicativo para darmos uma olhada.

No aguardo.

Olá, Cláudio. Quanto tempo...
Tudo bem com você?
Aí vai o aplicativo zipado.

Vá em Cnslt_CalculaRiscoCV

Walter

Walter, terá que ter mais cuidado com as nomenclaturas usadas no seu projeto...
Todo o seu transtorno é causado porque tem um módulo com nome: PtsColesterolSexo e uma função com esse mesmo nome!
Apenas renomei o módulo para algo do tipo: modPtsColesterolSexo, que daí sim irá funcionar corretamente!
Observe ainda que há algumas funções que serão usado em outras partes do seu projeto, mas não etão declaradas como publicas.

Declare como publicas (Public) todas as funções (como já observou o JPaulo) que irá usar nas consultas ou em outros locais para evitar problemas.

Aguardamos.

Perfeito Marcelo.

Funcionou legal!
Antes de fechar o tópico queria saber se você, ou outro amigo do Forum tem algum texto ou tutoria que ensine como fazer essas funçoes e módulos. Tenho algumas dúvidas ainda. Por exemplo
1. Quando usar Função Publica ou não?
2. Quando usar Byte, Data, Integer, Long , etc.?
Se tiver e puder disponibilizar prá mim, eu agradeço. Essa do nome da Função não poder ser o mesmo nome do Módulo, eu não sabia, e fez toda a diferença, não é?, Mas, afinal, esse foi primeiro modulo...

Um abraço,

Walter

Opa, você poderá começar por aqui: https://www.youtube.com/user/PlinioMabesi e por aqui: www.usandoaccess.com.br

O primeiro, terá uma série de vídeos onde lhe introduzirá ao ambiente VBA e o segundo, terá soluções mais avançadas, códigos
prontos e muita informações adicionais de como e onde poderá chegar com Access/VBA.

Aqui mesmo no fórum tem muita coisa. Tem a sala de "Documentação" que tem muito material, a exemplo: http://maximoaccess.forumeiros.com/t14416-funcoes-x-sub-rotinas

Valeu, Marcelo.
Muito obrigado pela ajuda. Tenha uma boa noite.
O Forum está de parabéns

Walter

O Fórum que agradece o retorno meu amigo, apenas esquecestes do resolvido. Dessa vez eu coloco!