“编译错误：只有注释可能出现在 End Sub、End Function 之后。”Access 2010 VBA

Question

我正在创建一个表单，并在 VBA 窗口中创建了我的第一个函数。该函数创建按钮。在“结束功能”之后输入任何内容后，我收到错误 - “只有注释出现在 ..”之后，出了什么问题？我是否将该功能放在了错误的区域？

这是我的代码：

Option Compare Database 
Option Explicit

Function MainMenuOptions()

Dim frm As String
frm = "Main"

Dim SCFormB As Control
Dim SCSearchB As Control
Dim SCReportB As Control

Set SCFormB = CreateControl(frm, acOptionButton, , , , 0.5, 0.6, 1.5, 0.55)
Set SCSearchB = CreateControl(frm, acOptionButton, , , , 0.5, 1.5, 1.5, 0.55)
Set SCReportB = CreateControl(frm, acOptionButton, , , , 0.5, 2.4, 1.5, 0.55)


End Function

Answer 1

我最近遇到了这个问题。我正在创建一个新的股票/衍生品交易和管理应用程序，并且在创建表单方面取得了巨大进展，但在某一时刻，我开始为表单上控件的所有 _Click() 处理程序收到此错误。但是，表单上某一字段的 _Enter() 处理程序却没有发生这种情况。在任何“结束”语句之后都没有任何无关的文本 - 根本没有！我发现，不知何故，错误的行尾已经出现在“End”语句的末尾。

修复：转到每个“End”语句的末尾，点击 DELETE 直到下一个 Sub 语句出现到光标处（即，现在下一个过程的开始与前一个过程的 End 语句在同一行） )，然后按 ENTER 键将下一个 Sub 语句放回到它自己的行上。这将确保您在每个事件处理程序的末尾都有正确的 CR/LF（或该编辑器/编译器所需的任何内容）。