函數返回0在Access女士值

Question

我創建在訪問了Ms的函數，並且它被稱爲在形成子步驟，但它返回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 

其每我測試它應該已經被添加A和b一起按鈕時顯示0。請幫助

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 

或更好（如果你真的需要一個SUM函數）：

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