Ms access VBA中的“按引用传递”不起作用

我想在access中测试按引用传递和按值传递，但它不起作用

Sub passByRef(ByRef a As Integer)
   a = a + 1
End Sub
Sub passByVal(ByVal a As Integer)
   a = a + 1
End Sub

Private Sub cmdByRef()
   Dim i as Integer
   i = 10
   passByRef i
   MsgBox i
End Sub
Private Sub cmdByVal()
   Dim i as Integer
   i = 10
   passByVal i
   MsgBox i
End Sub

在pass by ref中，它没有声明它是pass by REFEREF函数。有什么想法吗

maybe you should do this.

Private Sub cmdByRef()
   Dim i as Integer
   i = 10
   passByRef i
   MsgBox "Result of passByRef " + i
End Sub
Private Sub cmdByVal()
   Dim i as Integer
   i = 10
   passByVal i
   MsgBox "Result of passByVal " + i
End Sub