
No.1ベストアンサー
- 回答日時:
レポートの詳細でサブレポートの高さを最小にして配置しその下にメインレポートのコントロールを配置し詳細の高さもコントロールを含めた最初の高さに調整すればサブフォームに表示するデータがあればレコード分表示し無ければサブフォームは非表示の状態になると思うのですが・・。
それではダメなのでしょうか。別の方法
サブフォームを詳細に配置しメインレポートのデータを表示するコントロールをグループフッターを作りそこに配置する。メインレポートの詳細部分フォーマット時にサブレポートで使用しているテーブルをDCountでレコード数を求めて値が0の場合詳細部をFalseとして表示させない。
Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
If DCount("*", "サブレポートで使用しているテーブル名") = 0 Then
Me.詳細.Visible = False
Else
Me.詳細.Visible = True
End If
End Sub
別の方法としてサブレポートで表示するデータがある時に出力するレポート1と無い場合にサブレポートを除いた同じ内容のレポート2を用意しておきサブレポートの元となるテーブルのレコードが0件の場合と0件でない場合で出力するレポートを変える方法。
フォームのレポートを出力するボタンのイベントに
Private Sub レポート出力ボタン_Click()
Dim stDocName As String
If DCount("*", "サブレポートで使用しているテーブル名") = 0 Then
stDocName = "レポート2"
DoCmd.OpenReport stDocName, acNormal
Else
stDocName = "レポート1"
DoCmd.OpenReport stDocName, acNormal
End If
End Sub
として出力するレポートを変える。
こんな感じでどうでしょうか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Accessのレポート上のテキスト...
-
ACCESS でフォームフィルターを...
-
Accessを使ってレポートを印刷...
-
BusinessObjectsについて教えて...
-
アクセスのレポートのヘッダー...
-
アクセスでファイル名をレポー...
-
アクセスのレポートで空白のテ...
-
Accessのフォーマット時イベント
-
エクセルで表を作り、ピボット...
-
Accessでレポートの項目をVBAで...
-
Access チェックボックスを使...
-
Access ページフッターとレポー...
-
Access2013でレポートを名前を...
-
ACCESS のレポートに、ある一つ...
-
ファイルメーカでのパスワード...
-
ExcelからAccessデータを検索す...
-
アクセスのレポートを印刷する...
-
Accessで値がnullの場合は計算...
-
Accessのクエリーのゼロデータ...
-
Access クエリで連結する文字...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Accessを使ってレポートを印刷...
-
アクセスのレポートのヘッダー...
-
Accessのレポート上のテキスト...
-
★お手上げ状態です。助けてくだ...
-
Accessでページヘッダーだけが...
-
accessレポートにwordの文...
-
テキストボックスにコントロー...
-
BusinessObjectsについて教えて...
-
Access レポートフッターを条...
-
レポートのコントロールソース...
-
ACCESS でフォームフィルターを...
-
エクセルで表を作り、ピボット...
-
Access上で作成したレポートのE...
-
Access チェックボックスを使...
-
レポートのラベルなどの非表示...
-
Accessのフォーマット時イベント
-
ACCESS2000 VBAで印刷時にサブ...
-
Access2007 総ページ数が狂う
-
Access ページフッターとレポー...
-
ACCESS レポートでグループご...
おすすめ情報