2012-04-24 33 views
0

當我運行下面的代碼時,出現「Object Required」錯誤。我希望能夠點擊一個按鈕,並將該文件與數字字段一起保存在名爲Market_ID的報告中,然後報告名稱爲市場匯率通知最終報告。該報告確實顯示,但我沒有保存對話框。另外,如果我從strReportName中刪除 Report![Market Rate Notification Final].Market_ID +,我會得到一個保存對話框,其文件的名稱爲Market Rate Notification Final.pdf。嘗試在Access 2010中將其另存爲PDF時自定義報告名稱

Option Compare Database 

'------------------------------------------------------------ 
' Export_MLR 
' 
'------------------------------------------------------------ 
Function Export_MLR() 
On Error GoTo Export_MLR_Err 
    Dim strReportName As String 

    strReportName = Report![Market Rate Notification Final].Market_ID + "Market Rate Notification Final" 
    DoCmd.OutputTo acOutputReport, strReportName, "PDFFormat(*.pdf)", "", False, "", , acExportQualityScreen 


Export_MLR_Exit: 
    Exit Function 

Export_MLR_Err: 
    MsgBox Error$ 
    Resume Export_MLR_Exit 

End Function 
+0

用「&」替換「+」,然後重試。同時檢查「Report![Market Rate Notification Final] .Market_ID'是否給出並輸出? – 2012-04-24 15:22:05

回答

1

您不能引用這樣一個報表控件的內容:

strReportName = _ 
    Report![Market Rate Notification Final].Market_ID + "Market Rate Notification Final" 

的各種錯誤的結果是,strReportName爲空。首先,它是Reports,而不是Report,接下來,您無法從報表中獲取控件的值,您將獲得的是報表最後一行的值,並且連接器不是+,除非你正在做一些很花哨的事情。

+0

+ 1報告與報告# – 2012-04-24 15:51:36

+0

Remou,謝謝。我沒有意識到「s」,我改變了+然後添加了DoCmd.OpenReport一切都很好!功能Export_MLR() 對錯誤轉到Export_MLR_Err 昏暗strReportName作爲字符串 DoCmd.OpenReport「市場利率的通知決賽」,acViewPreview strReportName =報道![市場利率通知最後] .Market_ID與「市場利率的通知最終」 DoCmd.OutputTo acOutputReport,strReportName, 「PDFFormat(* PDF)」, 「」 假 「」,acExportQualityScreen Export_MLR_Exit: 退出功能 Export_MLR_Err: MSGBOX錯誤$ 恢復Export_MLR_Exit 端功能 – Nick 2012-04-24 19:34:05

相關問題