こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

レポート印刷時のエラー

いつもお世話になっております。
下記のコードで、レポート印刷時にプリンタダイアログを表示させて、保存するファイル名を「仕分け作業登録リスト_AWB」にしたいと思いますが、下記のエラーがでてしまいます。
※AWBはR-Sorting NoteのAWBの値を持ってきたいです。

エラー内容
予期せぬエラーが発生しました。
エラーナンバー:3265
エラー内容:要求された名前、または序数に対応する項目がコレクションで見つかりません。

エラー3265についてネットで調べてみましたが、自分ではわからないので、
対処方法を教えていただければと思います。
※コードも独学なのできれいでなくてすみません。


Private Sub Cmd_Report_Click()

On Error GoTo Err_Cmd_Report_Click

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset

'指定したレポートを印刷プレビューで開く
Dim strReportName1 As String

strReportName1 = "R_Sorting Note"
pdfName = "仕分け作業登録リスト_" & rs!AWB

DoCmd.OpenReport strReportName1, acViewPreview
DoCmd.OutputTo acOutputReport, strReportName1, acFromatPDF, pdfName, True
DoCmd.RunCommand acCmdPrint 'ダイアログの表示

'プレビューを閉じる
DoCmd.Close acReport, strReportName1

Exit_Cmd_Report_Click:
'プレビューを閉じる
DoCmd.Close acReport, strReportName1
Exit Sub

Err_Cmd_Report_Click:

If Err.Number = 2501 Then
'エラーを無視する
Resume Exit_Cmd_Report_Click

Else
MsgBox "予期せぬエラーが発生しました" & Chr(13) & _
"エラーナンバー:" & Err.Number & Chr(13) & _
"エラー内容:" & Err.Description, vbOKOnly
End If
Resume Exit_Cmd_Report_Click
End Sub

投稿日時 - 2019-06-05 16:40:58

QNo.9623216

困ってます

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(3)

ANo.3

スペルが違っています
✖ , acFromatPDF, pdfName, True
✖ , acFormatPDF, pdfName, True

投稿日時 - 2019-06-15 23:14:38

ANo.2

>Dim rs As ADODB.Recordset
 Set rs = New ADODB.Recordset

Dim rs As Report
に置換え
Err_Cmd_Report_Click:
以下の数行を修正しました。
--------------------------------------------------------------
Private Sub Cmd_Report_Click()
On Error GoTo err_Cmd_Report_Click
Dim rs As Report
'指定したレポートを印刷プレビューで開く
Dim strReportName1 As String
strReportName1 = "R_Sorting Note"
pdfName = "仕分け作業登録リスト_" & rs!AWB
DoCmd.OpenReport strReportName1, acViewPreview
DoCmd.OutputTo acOutputReport, strReportName1, acFromatPDF, pdfName, True
DoCmd.RunCommand acCmdPrint 'ダイアログの表示
'プレビューを閉じる
DoCmd.Close acReport, strReportNaReport_Click:
'プレビューを閉じる
DoCmd.Close acReport, strReportName1
Exit Sub
err_Cmd_Report_Click:
If Err.Number = 2501 Then
'エラーを無視する
Resume
Exit Sub
Else
MsgBox "予期せぬエラーが発生しました" & Chr(13) & _
"エラーナンバー" & Err.Number & Chr(13) & _
"エラー内容" & Err.Description, vbOKOnly
End If
End Sub

投稿日時 - 2019-06-06 23:21:59

ANo.1

エラー番号で検索してみたところ、どうもデータが無いからのようです。
rsとかレコードがあるかどうか確認してみてください。
もしくは、"R_Sorting Note"の中のスペースがダメとかもあるのかな?スペースを_に変えてみてはどうでしょうか。

頑張ってください。

投稿日時 - 2019-06-06 00:14:48

あなたにオススメの質問