在Access中运行时出现简单的函数错误

Question

我是程序和VBA的新手。我试图在Access中使用VBA，所以我写了这个小东西来测试我的理解。但是，当我运行git时，它会弹出空的Macro对话框/窗口而不是消息框，说明代码中的内容（我认为会这样）。任何人都可以花5秒时间让我知道我想念的是什么。非常感谢你

Public Function AddOne(value As Integer) As Integer
AddOne = value + 1
End Function
MsgBox "Adding 1 to 5 gives:" & AddOne(5)

Answer 1

Run无法从“运行”对话框中获取任何参数/参数的宏。

因此，如果您按运行按钮或 F5 ，您将看到对话框，因为这是Excel询问您“您要运行哪个程序”。

它将显示任何可用的程序。采用任何参数的程序将不可见，因为不会提供参数。

其他几点：

您的MsgBox声明不在此功能范围内。它应该在函数内部

Function AddOne(val As Integer)
    Dim ret As Integer
    ret = val + 1
    'Display msgBox:
    MsgBox "Adding 1 to " & val & " gives:" & ret
    'return to caller:
    AddOne = ret
End Function

由于您无法从对话框中运行，因此需要从Immediate窗口手动调用：

或者，您可以使用“立即”窗格中的以下内容将结果打印到即时窗口：

?AddOne(5)

将在Immmediate中打印“6”。