Criar Caixa de mensagem

[soba 0]

Oi Malta. Estou tentando obter resposta visual do resultado de uma operação através da função MsgBox, após o resultado ser atribuido a uma variável.

Sei que no VBA EXCEL a função funciona, mas não consigo a mesma resposta no ACCESS 2007.

Criei um botão e fui criar um evento onde coloquei, depois do calculo a mensagem para ver se o resultado era o correcto.

 

Não obtenho nada!!!!!

 

Aguém me ajuda?

[Julien.Sorel 0]

Olá,

 

Tenta este...

 

Sub Idade()
Dim numIdade As Date
Dim numDay  As Date
Dim numMonth As Date
Dim strFase As String

On Error GoTo Err_Idade

Age:
numIdade = InputBox("Informe a data do seu nascimento", "Aniversário")


    If Not IsDate(numIdade) Then
        
        If MsgBox("Informação digitada com o formato incorreto!" & vbLf & vbLf & "Deseja tentar novamente?" & _
        vbLf & vbLf & "Formato: dd/mm/aaaa", vbQuestion + vbYesNo) = vbYes Then
            GoTo Age
        End If
    
    Else
                
        Select Case CalcNiver(numIdade)
            Case 0 To 12
                strFase = "Ainda é uma criança!"
            Case 13 To 19
                strFase = "Está na adolescência!"
            Case 20 To 40
                strFase = "Já é um adulto!"
            Case 41 To 55
                strFase = "Está ficando velho!"
            Case Else
                strFase = "Chegou na melhor idade!"
            End Select
            
        MsgBox "Você tem " & CalcNiver(numIdade) & " anos de idade." & vbLf & _
        vbLf & strFase, vbInformation
        
    End If

Exit_Idade:
    Exit Sub

Err_Idade:
MsgBox "Erro número: " & Err.Number & vbLf & vbLf & Err.Description, vbCritical

End Sub
Function CalcNiver(IdadeN)

    CalcNiver = CByte((Date - IdadeN) / 365)

End Function