2013-08-30 49 views
-1

由於某種原因,我在第一行發生錯誤。一切都命名正確。我使用按鈕創建者嚮導來打開我想要的報告。訪問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 
+0

昏暗stDocName爲字符串? – Elias

+0

我在哪裏放? –

+0

初始化之前。 – Elias

回答

1
Private Sub cmdReport2013_Click() 
On Error GoTo Err_cmdReport2013_Click 

docmd.openReport "rptAnalyst_Comp_2013" 


Exit_cmdReport2013_Click: 
Exit Sub 

Err_cmdReport2013_Click: 
MsgBox Err.Description 
Resume Exit_cmdReport2013_Click 

End Sub 
+0

當我點擊它時不做任何事情。不知道爲什麼。名字是正確的。如果我選擇一個宏而不是[事件過程],宏將起作用。 –

+0

編譯錯誤:語法錯誤:docmd.open報告「rptAnalyst_Comp_2013」​​ –

+0

單詞「打開」和「報告」之間不應有空格。這是DoCmd.OpenReport。 –

1
Private Sub cmdReport2013_Click() 
Dim stDocName as String 

On Error GoTo Err_cmdReport2013_Click 

    stDocName = "rptAnalyst_Comp_2013" 
    DoCmd.OpenReport (stDocName) 


Exit_cmdReport2013_Click: 
    Exit Sub 

Err_cmdReport2013_Click: 
    MsgBox Err.Description 
    Resume Exit_cmdReport2013_Click 

End Sub 
+0

太棒了,你只是讓我打印16頁。 –

+1

但它工作。您需要確保您的報告只打印您想要的內容。 ; o) –

+0

我不希望它打印。我想讓它出現。它自動打印了16頁。不是我想要的東西。 –