0

以下のコードを実行すると、「オブジェクトが必要です」というエラーが表示されます。ボタンをクリックできるようにしたいのですが、このファイルは として知られるレポートの数値フィールドとともに保存されますMarket_ID。レポートの名前は Market Rate Notification Final です。レポートは表示されますが、保存ダイアログ ボックスが表示されません。また、削除する Report![Market Rate Notification Final].Market_ID +strReportName、Market Rate Notification Final.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
4

1 に答える 1

1

次のようにレポート コントロールの内容を参照することはできません。

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

さまざまなエラーの結果、strReportName が Null になります。まず、それはReportsではなくReport、次に、レポートからこの方法でコントロールの値を取得することはできません。取得するのはレポートの最後の行の値であり、連結子は & ではなく + です。かなり派手なことをしています。

于 2012-04-24T15:48:11.113 に答える