Função If

[Ferreira Filho]

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!

[MrMALJ]

Observe que no código SQL você encerra a expressão antes de executar a função basta tirar um ";" e colocar "," ok!

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;