функция возвращает значение 0 в Ms Access

Question

Я создал функцию в Ms Access и вызвал ее в подпроцедуре в форме, но она возвращает 0. Это код в функции:

Public Function Sum(a, b) As Double
    Dim total
    total = a + b
End Function

Код в подпроцедуре в форме:

Private Sub cmdDisplay_Click()
    Dim a As Double
    Dim b As Double

    a = Val(Text0)
    b = Val(Text2)

    MsgBox (Sum(a, b))
End Sub

отображается 0 каждый раз, когда я проверял кнопку, к которой нужно было добавить a и b вместе. Пожалуйста, помогите

Answer 1

Чтобы вернуть значение, вы должны присвоить имя функции, которое ведет себя так же, как локальная переменная, типизированная для типа возвращаемого значения функции;

Public Function Sum(a, b) As Double
    Dim total
    total = a + b
    Sum = total '//sum is the function name and a variable of type double
End Function

или лучше (если вам действительно нужна функция суммы):

Public Function Sum(a as double, b as double) As Double
    Sum = a + b
End Function