由於某種原因,我在第一行發生錯誤。一切都命名正確。我使用按鈕創建者嚮導來打開我想要的報告。訪問2007年,VBA:與簡單的點擊打開報告錯誤
Private Sub cmdReport2013_Click()
On Error GoTo Err_cmdReport2013_Click
stDocName = "rptAnalyst_Comp_2013"
Exit_cmdReport2013_Click:
Exit Sub
Err_cmdReport2013_Click:
MsgBox Err.Description
Resume Exit_cmdReport2013_Click
End Sub
編輯:編譯錯誤:變量未定義
EDIT2:這份報告是根據關閉查詢。這有什麼關係嗎?
EDIT3:
Private Sub cmdReport2013_Click()
Dim stDocName As String
On Error GoTo Err_cmdReport2013_Click
stDocName = "rptAnalyst_Comp_2013"
DoCmd.OpenReport (stDocName, acViewNormal)
Exit_cmdReport2013_Click:
Exit Sub
Err_cmdReport2013_Click:
MsgBox Err.Description
Resume Exit_cmdReport2013_Click
End Sub
它在DoCmd.OperReport部分說語法錯誤。
編輯4:語法解決的工作代碼。
Private Sub cmdReport2013_Click()
Dim stDocName As String
On Error GoTo Err_cmdReport2013_Click
stDocName = "rptAnalyst_Comp_2013"
DoCmd.OpenReport stDocName, acViewReport
Exit_cmdReport2013_Click:
Exit Sub
Err_cmdReport2013_Click:
MsgBox Err.Description
Resume Exit_cmdReport2013_Click
End Sub
昏暗stDocName爲字符串? – Elias
我在哪裏放? –
初始化之前。 – Elias