RunCode不在MS Access中运行公共功能

Question

我是MS Access的新手，我正在尝试通过调用VBA代码创建一个简单的宏。 这里的VBA代码是一个样本（也没有运行）

Public Function RunImport()
Dim N As Integer
Dim Message1, Message2, Title, Default1, Default2, JulianSD, JulianED

Message1 = "Enter Julian Start Date"
Message2 = "Enter Julian End Date"
Title = "User Input Section"
Default1 = "17365"
Default2 = "17000"

JulianSD = InputBox(Message1, Title, Default1)
JulianED = InputBox(Message2, Title, Default2)
End Function

你认为你可以在这里找到问题吗？ 谢谢！

PS。我使用的是版本14.0.7177.500（32位）。这不是我的选择..（如果是的话，我不会使用访问..：p）

Answer 1

函数最常见的用途是返回一个或多个值。您的函数似乎没有返回任何值。在函数结束时，您通常会有一行代码，说明函数将返回的值，例如....

    RunImport = JulianSD - JulianED
End Function

这样的行通常会在“结束函数”行之前插入。但是，如果你的意图不是返回一个值，而是你只想运行一个vba宏，那么你可能需要将你的函数更改为一个Sub例程......

Public Sub RunImport()
'code goes here
End Sub