Access VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
875 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【9678】「重複データ非表示」と「グループフッター」の関連について pinetree 07/7/9(月) 16:42 質問[未読]
【9681】Re:「重複データ非表示」と「グループフッタ... hatena 07/7/9(月) 22:12 回答[未読]
【9688】Re:「重複データ非表示」と「グループフッタ... pinetree 07/7/11(水) 10:14 質問[未読]
【9690】Re:「重複データ非表示」と「グループフッタ... hatena 07/7/11(水) 13:34 回答[未読]
【9694】Re:「重複データ非表示」と「グループフッタ... pinetree 07/7/11(水) 17:16 質問[未読]
【9695】Re:「重複データ非表示」と「グループフッタ... hatena 07/7/11(水) 17:58 回答[未読]
【9697】Re:「重複データ非表示」と「グループフッタ... pinetree 07/7/13(金) 10:12 質問[未読]
【9698】Re:「重複データ非表示」と「グループフッタ... hatena 07/7/13(金) 17:22 回答[未読]
【9699】Re:「重複データ非表示」と「グループフッタ... pinetree 07/7/18(水) 9:43 質問[未読]
【9700】Re:「重複データ非表示」と「グループフッタ... hatena 07/7/18(水) 9:49 回答[未読]
【9701】Re:「重複データ非表示」と「グループフッタ... pinetree 07/7/18(水) 15:40 質問[未読]
【9702】Re:「重複データ非表示」と「グループフッタ... hatena 07/7/18(水) 23:28 回答[未読]
【9713】Re:「重複データ非表示」と「グループフッタ... pinetree 07/7/27(金) 14:01 質問[未読]
【9714】Re:「重複データ非表示」と「グループフッタ... hatena 07/7/27(金) 15:07 回答[未読]
【9717】Re:「重複データ非表示」と「グループフッタ... pinetree 07/7/30(月) 9:38 お礼[未読]
【9678】「重複データ非表示」と「グループフッタ...
質問  pinetree  - 07/7/9(月) 16:42 -
引用なし
パスワード
   質問　「重複データ非表示」と「グループフッター」の関連について

下記のようなデータがあります。

NO　　　　会社名　　　　事業所名　　　　担当者名
1　　　　東北商事　　　　本社　　　　山田
2　　　　東北商事　　　　本社　　　　佐藤
3　　　　東北商事　　　　仙台支社　　田中
4　　　　北陸物産　　　　本社　　　　鈴木
5　　　　北陸物産　　　　金沢支店　　安倍
6　　　　北陸物産　　　　金沢支店　　塩崎

会社名・事業所名を「重複データ非表示」
にして下記のようにレポートを作成したい
のですが

NO　　　　会社名　　　　事業所名　　　　担当者名
1　　　東北商事　　　 本社　　　山田
2　　　　　　　　　　　　　　　佐藤
3　　　　　　　　　　仙台支社　 田中
4　　　北陸物産　　　 本社　　　鈴木
5　　　　　　　　　　金沢支店　 安倍
6　　　　　　　　　　　　　　　 塩崎


事業所名のところにグループフッターを「あり」
にすると下記のようになってしまいます。
NO　3　と　5　の会社名は非表示にしたいのですが
良い方法があればご教示ください。

NO　　　　会社名　　　　事業所名　　　　担当者名
1　　　東北商事　　　本社　　　　山田
2　　　　　　　　　　　　　　　 佐藤
3　　　東北商事　　　 仙台支社　 田中
4　　　北陸物産　　　 本社　　　 鈴木
5　　　北陸物産　　　 金沢支店　 安倍
6　　　　　　　　　　　　　　　 塩崎
【9681】Re:「重複データ非表示」と「グループフッ...
回答  hatena  - 07/7/9(月) 22:12 -
引用なし
パスワード
   会社名ヘッダーを表示させて、そこに「会社名」テキストボックスを移動させます。
プレビューすると下記のようになります。

NO　　　　会社名　　　　事業所名　　　　担当者名
　　　　　東北商事
1　　　　　　　　　　　　本社　　　　　 山田
2　　　　　　　　　　　　　　　　　　　 佐藤
3　　　　　　　　　　　仙台支社　　　　 田中
　　　　　北陸物産
4　　　　　　　　　　　本社　　　　　　 鈴木
5　　　　　　　　　　　金沢支店　　　　 安倍
6　　　　　　　　　　　　　　　　　　　 塩崎

デザインビューにして、会社名ヘッダーのフォーマット時の
イベントプロシージャで、

Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
　　Me.MoveLayout = False
End Sub

と１行のみ記述します。これでプレビューすると下記のように
希望の結果になると思います。

NO　　　　会社名　　　　事業所名　　　　担当者名
1　　　　東北商事　　　　本社　　　　　 山田
2　　　　　　　　　　　　　　　　　　　 佐藤
3　　　　　　　　　　　仙台支社　　　　 田中
4　　　　北陸物産　　　本社　　　　　　 鈴木
5　　　　　　　　　　　金沢支店　　　　 安倍
6　　　　　　　　　　　　　　　　　　　 塩崎
【9688】Re:「重複データ非表示」と「グループフッ...
質問  pinetree  - 07/7/11(水) 10:14 -
引用なし
パスワード
   ▼hatena さん：
>会社名ヘッダーを表示させて、そこに「会社名」テキストボックスを移動させます。
>プレビューすると下記のようになります。
>
>NO　　　　会社名　　　　事業所名　　　　担当者名
>　　　　　東北商事
>1　　　　　　　　　　　　本社　　　　　 山田
>2　　　　　　　　　　　　　　　　　　　 佐藤
>3　　　　　　　　　　　仙台支社　　　　 田中
>　　　　　北陸物産
>4　　　　　　　　　　　本社　　　　　　 鈴木
>5　　　　　　　　　　　金沢支店　　　　 安倍
>6　　　　　　　　　　　　　　　　　　　 塩崎
>
>デザインビューにして、会社名ヘッダーのフォーマット時の
>イベントプロシージャで、
>
>Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
>　　Me.MoveLayout = False
>End Sub
>
>と１行のみ記述します。これでプレビューすると下記のように
>希望の結果になると思います。
>
>NO　　　　会社名　　　　事業所名　　　　担当者名
>1　　　　東北商事　　　　本社　　　　　 山田
>2　　　　　　　　　　　　　　　　　　　 佐藤
>3　　　　　　　　　　　仙台支社　　　　 田中
>4　　　　北陸物産　　　本社　　　　　　 鈴木
>5　　　　　　　　　　　金沢支店　　　　 安倍
>6　　　　　　　　　　　　　　　　　　　 塩崎


早速ご教示いただきありがとうございました。
会社名ヘッダーのフォーマット時のイベントプロシージャを選択すると、

Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
　　Me.MoveLayout = False
End Sub

ではなくて

Private Sub グループヘッダー0_Format(Cancel As Integer, FormatCount As Integer)
　　Me.MoveLayout = False
End Sub

になります。

詳細・グループヘッダー0　のいずれも　望みどおりの結果にはなりませんでした。

OSはWIN2000 access2003です。
お忙しいところ恐縮ですが、よろしくお願い致します。
【9690】Re:「重複データ非表示」と「グループフッ...
回答  hatena  - 07/7/11(水) 13:34 -
引用なし
パスワード
   >会社名ヘッダーのフォーマット時のイベントプロシージャを選択すると、
>
>Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
>　　Me.MoveLayout = False
>End Sub
>
>ではなくて
>
>Private Sub グループヘッダー0_Format(Cancel As Integer, FormatCount As Integer)
>　　Me.MoveLayout = False
>End Sub
>
>になります。

私の間違いです。こちらの方でいいです。

>詳細・グループヘッダー0　のいずれも　望みどおりの結果にはなりませんでした。

どのような結果になりましたか。
当方の実験では、うまくいってます。
【9694】Re:「重複データ非表示」と「グループフッ...
質問  pinetree  - 07/7/11(水) 17:16 -
引用なし
パスワード
   ▼hatena さん：
>>会社名ヘッダーのフォーマット時のイベントプロシージャを選択すると、
>>
>>Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
>>　　Me.MoveLayout = False
>>End Sub
>>
>>ではなくて
>>
>>Private Sub グループヘッダー0_Format(Cancel As Integer, FormatCount As Integer)
>>　　Me.MoveLayout = False
>>End Sub
>>
>>になります。
>
>私の間違いです。こちらの方でいいです。
>
>>詳細・グループヘッダー0　のいずれも　望みどおりの結果にはなりませんでした。
>
>どのような結果になりましたか。
>当方の実験では、うまくいってます。

早速ご教示いただきありがとうございました。

会社名　　グループヘッダー0
事業所名　グループヘッダー1

で　事業所名ヘッダーを無くせば望みどおりになりますが
事業所ヘッダーを「あり」にすると事業所が変わったところで、
会社名が表示てしまいます。
【9695】Re:「重複データ非表示」と「グループフッ...
回答  hatena  - 07/7/11(水) 17:58 -
引用なし
パスワード
   >会社名　　グループヘッダー0
>事業所名　グループヘッダー1
>
>で　事業所名ヘッダーを無くせば望みどおりになりますが

では、事業所名ヘッダー を無くせばいいのでは。
そうでないのなら、どうしたいのかもう少し具体的に
説明してください。

>事業所ヘッダーを「あり」にすると事業所が変わったところで、
>会社名が表示てしまいます。

会社名 が会社名グループヘッダーにあるのなら、そんな
はずはないと思いますが。
【9697】Re:「重複データ非表示」と「グループフッ...
質問  pinetree  - 07/7/13(金) 10:12 -
引用なし
パスワード
   ▼hatena さん：
>>会社名　　グループヘッダー0
>>事業所名　グループヘッダー1
>>
>>で　事業所名ヘッダーを無くせば望みどおりになりますが
>
>では、事業所名ヘッダー を無くせばいいのでは。
>そうでないのなら、どうしたいのかもう少し具体的に
>説明してください。
>
>>事業所ヘッダーを「あり」にすると事業所が変わったところで、
>>会社名が表示てしまいます。
>
>会社名 が会社名グループヘッダーにあるのなら、そんな
>はずはないと思いますが。

事業所名は変わっても会社名は変わらないので
（会社名は重複データ非表示ということで）表示したくありません。
事業所名ヘッダーを「あり」にして、なおかつ重複している会社名は
表示したくありません。
（事業所ヘッダーを「あり」にすると事業所が変わったところで、上と同じ
会社名を表示てしまいます。）
【9698】Re:「重複データ非表示」と「グループフッ...
回答  hatena  - 07/7/13(金) 17:22 -
引用なし
パスワード
   >>>会社名　　グループヘッダー0
>>>事業所名　グループヘッダー1

このようなデザインで、「重複データ非表示」は「いいえ」の
状態で、各セクションのイベントプロシージャもなしで、
レポートのプレビューでは、どのような表示になりますか。

下記のようになりますか。

NO　　　　会社名　　　　事業所名　　　　担当者名
　　　　　東北商事
　　　　　　　　　　　　本社
1　　　　　　　　　　　　　　　　　　　 山田
2　　　　　　　　　　　　　　　　　　　 佐藤
　　　　　　　　　　　　仙台支社
3　　　　　　　　　　　　　　　　　　　 田中
　　　　　北陸物産
　　　　　　　　　　　　本社
4　　　　　　　　　　　　　　　　　　　 鈴木
　　　　　　　　　　　　金沢支店
5　　　　　　　　　　　　　　　　　　　 安倍
6　　　　　　　　　　　　　　　　　　　 塩崎
【9699】Re:「重複データ非表示」と「グループフッ...
質問  pinetree  - 07/7/18(水) 9:43 -
引用なし
パスワード
   ▼hatena さん：
>>>>会社名　　グループヘッダー0
>>>>事業所名　グループヘッダー1
>
>このようなデザインで、「重複データ非表示」は「いいえ」の
>状態で、各セクションのイベントプロシージャもなしで、
>レポートのプレビューでは、どのような表示になりますか。
>
>下記のようになりますか。
>
>NO　　　　会社名　　　　事業所名　　　　担当者名
>　　　　　東北商事
>　　　　　　　　　　　　本社
>1　　　　　　　　　　　　　　　　　　　 山田
>2　　　　　　　　　　　　　　　　　　　 佐藤
>　　　　　　　　　　　　仙台支社
>3　　　　　　　　　　　　　　　　　　　 田中
>　　　　　北陸物産
>　　　　　　　　　　　　本社
>4　　　　　　　　　　　　　　　　　　　 鈴木
>　　　　　　　　　　　　金沢支店
>5　　　　　　　　　　　　　　　　　　　 安倍
>6　　　　　　　　　　　　　　　　　　　 塩崎

会社名ヘッダーのところで「会社名」を表示させ、
事業所名ヘッダーのところに「事業所名」を表示させ、
詳細セクションに「担当者名」を表示させれば、
このような表示になりますが、詳細セクションに
会社名・事業所名・担当者を表示させると、
事業所が変わったところで会社名が表示されてしまいます。
事業所が変わっても会社名は変わらないので表示したくありません。
【9700】Re:「重複データ非表示」と「グループフッ...
回答  hatena  - 07/7/18(水) 9:49 -
引用なし
パスワード
   >会社名ヘッダーのところで「会社名」を表示させ、
>事業所名ヘッダーのところに「事業所名」を表示させ、
>詳細セクションに「担当者名」を表示させれば、
>このような表示になりますが、詳細セクションに
>会社名・事業所名・担当者を表示させると、
>事業所が変わったところで会社名が表示されてしまいます。
>事業所が変わっても会社名は変わらないので表示したくありません。

詳細セクションには、会社名、事業者名 は配置する必要は
ありません。
【9701】Re:「重複データ非表示」と「グループフッ...
質問  pinetree  - 07/7/18(水) 15:40 -
引用なし
パスワード
   ▼hatena さん：
>>会社名ヘッダーのところで「会社名」を表示させ、
>>事業所名ヘッダーのところに「事業所名」を表示させ、
>>詳細セクションに「担当者名」を表示させれば、
>>このような表示になりますが、詳細セクションに
>>会社名・事業所名・担当者を表示させると、
>>事業所が変わったところで会社名が表示されてしまいます。
>>事業所が変わっても会社名は変わらないので表示したくありません。
>
>詳細セクションには、会社名、事業者名 は配置する必要は
>ありません。

ご指導のとおりにすると、会社名ヘッダーで1行、事業所ヘッダーで1行増えて
しまいます。
会社名ヘッダー・事業所名ヘッダーでは区切りの罫線だけを引き
詳細セクションに
会社名、事業者名、担当者名を1行に表示するような形にして
なおかつ、重複データ非表示にしたいのですが、
【9702】Re:「重複データ非表示」と「グループフッ...
回答  hatena  - 07/7/18(水) 23:28 -
引用なし
パスワード
   9698 で例示したようになるのですか。

ならば、あとは、会社名ヘッダー、事業所ヘッダー の各フォーマット時イベントで
最初に回答したイベントプロシージャを設定して、印字位置が移動しないようにすれば
いいと思います。

Me.MoveLayout = False
【9713】Re:「重複データ非表示」と「グループフッ...
質問  pinetree  - 07/7/27(金) 14:01 -
引用なし
パスワード
   ご指導に従っていろいろ試してみましたがうまくいきません。
再度確認のために条件を整理します。

下記のようなデータがあります。

（A）
NO　　　　会社名　　　　事業所名　　　　担当者名
1　　　　東北商事　　　　本社　　　　山田
2　　　　東北商事　　　　本社　　　　佐藤
3　　　　東北商事　　　　仙台支社　　田中
4　　　　北陸物産　　　　本社　　　　鈴木
5　　　　北陸物産　　　　金沢支店　　安倍
6　　　　北陸物産　　　　金沢支店　　塩崎

詳細SECTION　で会社名・事業所名を「重複データ非表示」
にして下記のようにレポートを作成したい
のですが

（B)
NO　　　　会社名　　　　事業所名　　　　担当者名
01　　　東北商事　　　 本社　　　山田
02　　　　　　　　　　　　　　　佐藤
03-----------------------------------
04　　　　　　　　　　仙台支社　 田中
05===================================
06　　　北陸物産　　　 本社　　　鈴木
07-----------------------------------
08　　　　　　　　　　金沢支店　 安倍
09　　　　　　　　　　　　　　　 塩崎
10===================================

会社名・事業所名のところにグループフッターを「あり」
にすると事業所が変わったところで会社名が表示され
下記のようになってしまいます。
NO　04　と　08　の会社名は非表示にしたいのです。

（C)
NO　　　　会社名　　　　事業所名　　　　担当者名
01　　　東北商事　　　 本社　　　山田
02　　　　　　　　　　　　　　　佐藤
03-----------------------------------
04　　　東北商事　　　仙台支社　 田中
05===================================
06　　　北陸物産　　　 本社　　　鈴木
07-----------------------------------
08　　　北陸物産　　　 金沢支店　 安倍
09　　　　　　　　　　　　　　　 塩崎
10===================================

ご指導に従って
事業所フッター のフォーマット時イベントで

Me.MoveLayout = False

とすると

事業所フッター印字後の改行がされなくて
03と04行及び07と08行が重なって
印字されてしまいます。
【9714】Re:「重複データ非表示」と「グループフッ...
回答  hatena  - 07/7/27(金) 15:07 -
引用なし
パスワード
   >事業所フッター のフォーマット時イベントで
>
>Me.MoveLayout = False

事業所フッターではなくて、会社名ヘッダー、事業所ヘッダー に
このコードを記述します。

もう一度、最初から私の回答を読み直して、
その通りにしてください。
【9717】Re:「重複データ非表示」と「グループフッ...
お礼  pinetree  - 07/7/30(月) 9:38 -
引用なし
パスワード
   ▼hatena さん：
>>事業所フッター のフォーマット時イベントで
>>
>>Me.MoveLayout = False
>
>事業所フッターではなくて、会社名ヘッダー、事業所ヘッダー に
>このコードを記述します。
>
>もう一度、最初から私の回答を読み直して、
>その通りにしてください。

お騒がせして申し訳ありませんでした。
ご指導どおりにしたら、望みどおりになりました。
ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
875 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078201
(SS)C-BOARD v3.8 is Free