vba सकत कैसे एमएस एक्सेस में FileDialog के माध्यम से बचत करते समय रिपोर्ट ऑब्जेक्ट को फ़िल्टर करना



सेविंग अकाउंट में कितना पैसा जमा कर सकते है 2017 (1)

मैं FileDialog का उपयोग करते हुए एक आरटीएफ फ़ाइल को सहेजने का प्रयास कर रहा हूं और एक खंड का उपयोग करके फ़िल्टर करना चाहता हूं। यह वही है जो मेरे पास है:

Set dlgSave = FileDialog(msoFileDialogSaveAs)
With dlgSave
  .Title = "Provide the place to save this file"
  .ButtonName = "Save As..."
  .InitialFileName = Me.cmbPickAReportToPrint.Value & "-" & Format(Date, "mmddyy") & ".rtf"
  .InitialView = msoFileDialogViewDetails

  If .Show Then
      DoCmd.OutputTo acOutputReport, Me.cmbPickAReportToPrint.Value, acFormatRTF, .SelectedItems(1)
  End If
End With

किसी भी विचार के रूप में मैं कैसे जोड़ सकता है, जहां अन्यथा रिपोर्ट को बदलने के बिना क्लॉज?


मैंने पाया है कि यह रिपोर्ट कोड को छूने के बिना ऐसा करने का सबसे आसान तरीका है कि वह फ़िल्टर लागू करने के साथ पूर्वावलोकन मोड में रिपोर्ट को खोलना है, और उसके बाद आपको जो भी स्वरूप की आवश्यकता होती है उसे रिपोर्ट आउटपुट कराना है।

If .Show Then
    DoCmd.OpenReport Me.cmbPickAReportToPrint.Value, acViewPreview, , "fieldToFilterOn = 'value'"
    DoCmd.OutputTo acOutputReport, Me.cmbPickAReportToPrint.Value, acFormatRTF, .SelectedItems(1)
End If