访问VBA“编译错误：标签未定义”

Question

我的一个同事无意中搞砸了一个旧的Access导出脚本，我们现在收到“Label not defined”错误，并且我没有接近Access大师的任何地方，帮助会很好。

Function Macro2() 
On Error GoTo Macro2_Err 

    DoCmd.TransferText acExportDelim, "golfexport", "ctcexport", "P:\transferdata\golfexport05052017" 
    Exit Function 

Macro2_Err: 
    MsgBox Error$ 
    Resume Macro2_Exit 

End Function 

该错误突出显示黄色的顶行和“恢复Macro2_Exit”行。

任何人都有一个想法，因为它很可能是一个胖手指退格，杀死了一些东西。

感谢

Answer 1

Resume [Label] 

该指令要求行标签存在，使得执行可以恢复那里。如果标签未定义，则无处可跳，并且代码无法编译。

如果这就是程序的全部内容，您可以删除Resume指令并在一天内调用它。如果有DoCmd和Exit Function之间的代码，你可以定义有标签：

Macro2_Exit: 
    Exit Function 
Macro2_Err: 
    MsgBox Err.Description 
    Resume Macro2_Exit 

注意使用Err.Description而不是恐龙Error$字符串。只是一个建议，但。