Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1221 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【8116】サブレポートが空の場合にテキストボック... tetsu 06/7/1(土) 8:07 質問[未読]
【8124】Re:サブレポートが空の場合にテキストボッ... 小僧 06/7/3(月) 10:56 回答[未読]
【8184】Re:サブレポートが空の場合にテキストボッ... tetsu 06/7/10(月) 5:18 お礼[未読]
【8116】サブレポートが空の場合にテキストボック...
質問  tetsu E-MAIL  - 06/7/1(土) 8:07 -
引用なし
パスワード
   メインレポートの詳細に設定したサブレポートのデータ件数が０の場合に
今月のデータはありません。と表示させたいと試みております。
　サブレポートのソースは今月分を抽出させるクエリです。
　よろしくお願いします。
【8124】Re:サブレポートが空の場合にテキストボッ...
回答  小僧  - 06/7/3(月) 10:56 -
引用なし
パスワード
   ▼tetsu さん：
こんにちは。

> メインレポートの詳細に設定したサブレポートのデータ件数が０の場合に
> 今月のデータはありません。と表示させたいと試みております。

まずはサブレポートに重ねるような感じでラベルを貼り付けます。

名前：Lbl詳細なし
表題：今月のデータはありません。
可視：いいえ

次に 詳細 のフォーマット時に

Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
　　Me.Lbl詳細なし.Visible = (DCount("*", "Q_Sub") = 0)
End Sub

のようなイベントを組み込むとお望みの様な事が実現できるかと思われます。
【8184】Re:サブレポートが空の場合にテキストボッ...
お礼  tetsu E-MAIL  - 06/7/10(月) 5:18 -
引用なし
パスワード
   返信遅れてすみません。

小僧さん、ありがとうございました。
早速、使えます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1221 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1080802
(SS)C-BOARD v3.8 is Free