Olá, boa tarde a todos. Preciso da ajuda de vocês para resolver a seguinte questão: Criei a consulta MencaoCons SELECT dados.Post_Grad, dados.Nome, dados.Idt, dados.Dta_Nasc, dados.Corrida, DateDiff("yyyy",[Dta_Nasc],Now())+Int(Format(Now(),"mmdd")<Format([Dta_Nasc],"mmdd")) AS Idade; Men(Idade,Corrida) AS Mencao FROM dados; Testei a seguinte função: Function Men(Idade As Integer, Corrida As Integer) As String
If (Idade < 20) Then
If (Corrida < 2700) Then
Mencao = "I"
ElseIf (Corrida < 2800) Then
Mencao = "R"
ElseIf (Corrida < 3100) Then
Mencao = "B"
ElseIf (Corrida < 3200) Then
Mencao = "MB"
ElseIf (Corrida > 3199) Then
Mencao = "E"
End If
End If
If (Idade > 19) Then
If (Corrida < 2750) Then
Mencao = "I"
ElseIf (Corrida < 2850) Then
Mencao = "R"
ElseIf (Corrida < 3150) Then
Mencao = "B"
ElseIf (Corrida < 3250) Then
Mencao = "MB"
ElseIf (Corrida > 3249) Then
Mencao = "E"
End If
End If
End Function Na consulta, apenas o campo Mecao não está retornando. Alguém pode me ajudar pois não sei onde errei, ou se tem outra maneira de resolver . Desde já agradeço!