アクセス2013：レポートを使用してフォームの現在のレコードのみをPDFに送信

Question

ユーザーがすべてのデータを入力するフォームがあります。レコードを保存し、フォームを立ち上げてアクティブにしておく「保存」ボタンがあります。 フォームを閉じる前に、新しく保存したレコードを取得し、関連付けられたレポートをPDFファイルに出力する必要があります。 今私の問題は、PFDへの出力は、フォームのレコードだけでなく、テーブル内のすべてのレコードを送信していることです。 ここに私のコードがあります。サイドノートとして

Private Sub cmdSave_Click() 

    Dim outl As Outlook.Application 
    Dim mi As Outlook.MailItem 
    Dim strWhere As String 

    Cause = "SaveButton" 
    DoCmd.RunCommand acCmdSaveRecord 
    'Save the Record 
    Me.btnClose.SetFocus 

    If Me.DateOfVisit <> "" Then 
     Me.RepStatus = "Report Saved!" 
     Me.btnNewReport.Visible = True 

    'Now, print the report to a PDF File 
    DoCmd.OutputTo acOutputReport, "rptReports", acFormatPDF,"C:\ReportTest.pdf", False 

    End If 

End Sub 

、ユーザーがレポートが消えてすぐに、画面にポップアップ表示し、見ないであろうことが必要です。

ありがとうございます。

Answer 1

私は最終的にそれを鼻づまりのように見えます。 次の行を追加しましたが、現在は動作しています。 OutputToには検索条件を渡す方法がないことが分かります。 したがって、ユーザーは何も表示されず、OutputToを使用してPDFに送信できるように、非表示モードでレポートを開きました。

'Now, print the report to a PDF File 

DoCmd.OpenReport "rptReports", acViewReport, , "[ReportID] = " & [ReportID], acHidden 
DoCmd.OutputTo acOutputReport, "rptReports", acFormatPDF, "C:\TG QUOTE SYSTEM\Meeting Reports\ReportTest.pdf", False 
DoCmd.Close acReport, "rptReports" 

エンド

おかげで、すべての場合。