Question

我的一位同事无意中弄乱了一个旧的Access导出脚本，我们现在收到了未定义的＆＃34;标签＆＃34;错误，我不是任何接近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

错误是突出显示黄色的顶行和＆＃34;恢复Macro2_Exit＆＃34;线。

任何人都有一个想法，因为它很可能是一个反对空间的胖手指，它会杀死一些东西。

感谢

Answer 1

Resume [Label]

该指令需要存在行标签，以便执行恢复。如果未定义标签，则无处可跳转，代码无法编译。

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

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

请注意使用Err.Description代替恐龙Error$字符串。只是一个建议。

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

1 个答案: