0

私のデータベースには 28 個の接続されたテーブルがあります。これらのテーブルのうち 10 個は、マルチタブ フォームを使用して見積もりを作成するために使用されます。記入したら、レポートに印刷する必要があります。レポートは、多くのサブ レポートに分割されています... そのうちの 31 ～ 32 個です。次に、フォームを印刷するか、PDF にエクスポートする必要があります。

16 Gig RAM と 8 コア CPU を搭載した PC を実行しています。

メイン レポートの RecordSource を設定するには、次のコードを使用します。

Private Sub Report_Open(Cancel As Integer)

  Dim dbs As Database
  Dim rstSQL As DAO.Recordset
  Dim strSQL As String

  Set dbs = CurrentDb

  strSQL = "SELECT fJobID FROM tblJobs GROUP BY fJobID " _
      & "HAVING (((fJobID)= " & [Forms]![frmHub2]![Combo0].[Value] & "));"

  Debug.Print strSQL

  Me.RecordSource = strSQL

End Sub

[Forms]![frmHub2]![Combo0].[Value]の値をSQL 定義に挿入するには、VBA を使用する必要がありました。

機能するもの

フォームが読み込まれ、以前のジョブを選択して更新し、レポート ビューでレポートを表示できます。

ないもの

  1. レポート ビューから印刷プレビューに移動しようとすると、「システム リソースが超過しました」というエラーが表示されます。
  2. 印刷プレビュー モードで直接開くと、正常に表示できますが、印刷しようとすると同じエラーが発生し、複数回発生します (サブ レポートの処理中に発生していると思われます)。部分的な用紙が印刷され、まったく印刷されない場合もあります。

何かご意見は？

いつものように、私は質問に答え、画像を投稿し、状況を理解するために必要なことは何でもします.

4

2 に答える 2