訪問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$字符串。只是一個建議，但。