～ kiku tips ～

標題変更：　帳票 + ３つのコンボ連携 + α　→　帳票 + ３つのコンボ変則連携 + α

記事化が、ずっと、ず～っと延び延びになっていたものです。

帳票フォームになりますが･･･（画面が結構ちらつくので･･･）
やってみた（レベル）という事に･･･

基本的なテーブルは４つで、リレーションシップの雰囲気（実際には設定していませんが）は
　　
となってます。
これを元に、帳票フォームを組み立てると、見た目
　　
になりますが、「コード」「業種」「業態」部分を連携した操作に････
「業種」を設定すれば、他の「コード」「業態」ではその「業種」に絞り込んだ表示に･･･
帳票フォームなので、他レコードの表示に影響がない様にコントロールを重ねる事をします。
　　過去にも記事にしてたかな････重ねる
今回は３段重ねあり････で
　　

＋α として、Excel １シートに、複数の結果をエクスポートするには････
エクスポートもどきになるのですが、割り当てている業種ごとに並べて出力しましょうか･･･
　　　　

 
テーブルを作る

　　
「**ID」部分は、全てオートナンバにしてみました。

サンプルデータを作るのは「Module1」に以下を用意しました。

 
業種は、連続した英小文字（３文字）
業態は、同じ英大文字（５文字）
部分は、
が良かったかも･･･
結果は同じになります。

で、これらを使って、「T業種一覧」をソコソコ作っておいて、「T企業」もソコソコに･･･
サンプルデータはこんな感じで、ソコソコに････

「T業種一覧」の各IDでは、元テーブルをコンボボックスでルックアップする様に設定しておきます。
例えば、「業種ID」では、

また、「T企業」の「コード」部分では、


フォームを作る

フォームウィザードを使った方が（大まかなものを）簡単に作れるので、
以下の様な感じで、仮のクエリ「Q1」を作って、それを元にフォームを作ります。



フォームが出来上がったら、レコードソース部分をクエリ「Q1」のSQLに置換え、クエリ「Q1」を削除します。（私の場合は、こんな感じの手順でするという事で････）
この手順･･･、どこに利点があるのか･･･考えてみてください。（･･･ ないかも）

※ 上記クエリを使ってフォームを作ると、「業種」「業態」部分は ID 付きになるので、
　　ラベル部分だけから ID の文字を削除しておきます。
　　また、表示を見ながら、各コントロールのサイズ等、調整しておきます。
　　（2007 で最初作っているので、最後に「レイアウトの調整」から解除しておきます）

さて、ここからですが･･･このフォームのまま操作してみると、
・既に登録されているレコードを更新してみる
「業種」「業態」を変更すると、「T業種一覧」の内容が書き変わる
・新規レコードを追加してみる
「業種」「業態」から操作すると、「T業種一覧」に新規レコードとして追加される
「コード」から操作すると、既存のものを選択できるが、
　その後で、「業種」「業態」を変更すると、「T業種一覧」の内容が書き変わる

つまり、現状では、「業種」「業態」を操作して、「T業種一覧」から選択する･･･
この操作が出来ない｡｡｡｡

ここから「コード」「業種」「業態」の連携を考えていきます。



１）現状の「コード」「業種」「業態」は、見るだけにする。

２）操作は、非連結の最背面に配置したコンボボックスで････

最背面に重ねて配置した非連結コントロールは、フォーカスを得ると前面に･･･
また、フォーカスがなくなると元の位置（最背面）に移動する･･･
（背面に居る時には、重ねているので、それ自体は見えない）
この動きを使っていく事になります。

「コード」「業種」「業態」に重ねて、最背面に配置するものを作成します。
「コード」「業種」「業態」を選択し、コピー＆貼り付け
名前を順に、「cbx0」「cbx1」「cbx2」に変更し、コントロールソースを削除しておきます。
背面に配置したものにフォーカスを移す･･･これは VBA でやりたいと思うので、
「cbx0」「cbx1」「cbx2」の「タブストップ」は「いいえ」とします。
この３つを選択後マウスで移動し、コピー元にうまく重ね、その後、最背面に移動させます。
最背面への移動は、マウス右クリック → 位置 → 最背面へ移動　の手順で･･･

３）操作途中の「業種」「業態」表示は、最前面の非連結テキストボックスで････

基本的には、２）の重ね方で良いのですが１つ問題点が････
「コード」は「業種」「業態」の２つが求まって、初めて決定されるもの･･･
つまり、「コード」が一意に決まっていなければ、途中の操作内容を表示してあげないと･･･
「cbx1」をいじって「コード」が決まっていなければ、「cbx2」を操作するんでしょう･･･
この時、「cbx1」からフォーカスが外れ、最背面に戻ったら･･･何も表示されない･･･
もちろん、見るためだけの「業種」は、「コード」が決まっていないので、空欄のまま･･･
で、今度は「業種」「業態」にテキストボックスを最前面として重ねる事をします。

「業種」「業態」を選択後、コピー＆貼り付け
マウス右クリックし、「コントロールの種類の変更」でテキストボックスへ
「業種」「業態」はテキストボックスの下になるので、「タブストップ」は「いいえ」としておきます。
テキストボックス名は「txt1」「txt2」としておきます。
このテキストボックスを最前面に設定してから、「業種」「業態」に綺麗に重ねます。
このテキストボックスの役目は、下に隠れた操作途中の「cbx1」「cbx2」の代わりに文字列を表示する･･･
なので、通常は下にある「業種」「業態」が見えないと困るので、背景スタイルは透明にします。


細工）

・テキストボックスの表示

テキストボックス「txt1」は、後ろに隠れたコンボボックス「cbx1」の表示内容を･･･
ただ、非連結なので、むやみに表示してしまうと、全レコード同じ表示になってしまう。
操作しているレコードだけで表示できれば良いので････

そこで、フォームのヘッダに非表示のテキストボックス「txt0」を設け、
現在の「企業ID」（オートナンバ）を「txt0」に設定するようにします。
この方法は、カレント行に色を付ける････の、基本的方法ですね。
タイミングとしては、「レコード移動時」「取り消し時」と「挿入前処理」の直後････
（ 2000 には「取り消し時」は無いので、意図通りには動きません）
新規レコード追加時のオートナンバは「挿入前処理」を戻った後に採番されるようです。
なので、「タイマー時」を 10ms で利用した「企業ID」→「txt0」設定に･･･
「レコード移動時」「取り消し時」でも同じ動きをさせるように、「タイマー時」を利用。

テキストボックス「txt1」のコントロールソースに以下を設定

で、その関数の処理は


・操作用コンボボックス

デザイン上で「cbx0」「cbx1」「cbx2」を作った時、「値集合ソース」は変更していなかったので、
「値集合ソース」に設定する SQL を定義し、フォームの「読み込み時」に設定します。
（動的に変更するものではないので、デザイン上で設定しても良いけど･･･）
ここで、他のコンボを参照する際、コントロール名だけで十分です。
コントロール名だけの記述にしておくと、
・１つのフォームとして表示････
・サブフォームとして組み込み････
どちらでも動くものになります。

ただ、フォームのレコードソース部分での記述では、自フォームにあるコントロールでも
Forms!フォーム名!コントロール名
と記述しないといけないみたい（？嘘かも）ですが････

「業種」「業態」の操作用途にあたる「cbx1」「cbx2」の「更新後処理」では、
設定により「コード」（「cbx0」）が一意になるか････これをチェックします。
まず、
・「cbx1」「cbx2」の変更により、「cbx0」の表示が１件になるか？　これを確認します。
・１件････これの判別は、(.ListCount + .ColumnHeads) = 1　で。
「列見出し」を「はい」としていると、１件でも ListCount は２となります。
つまり、列見出しの文字列部分も ListCount 内でカウントされているようです。
なので、列見出しがあった場合、 ColumnHeads は True（ -1 ）なので数値として利用しています。
・で、１件ならその値を設定し、それに伴い「cbx1」「cbx2」へ値を設定し直します。
１件にならなければ、Null を設定しておいて････
もし、更新操作で「コード」が設定されていたのなら、見る側の「コード」も Null へ･･･

・フォーカスの移動

「コード」「業種」「業態」部分はコントロールを重ねているので、
マウスでクリックできるのは、前面の「コード」「txt1」「txt2」になります。
これにフォーカスが入ろうとした場合、最背面に配置した操作用のコントロールにフォーカスを移します。
フォーカスが移されてくる先はコンボボックスなので、Requery し Dropdown 表示するようにします。
例えば、

※ サンプルファイルでは、
テキストボックスの幅が小さく、下のコンボボックス（見るだけ用途）がクリックできちゃいます。
これは間違いで、本来はコンボボックスの幅と同じ･･･が良いです。
動作確認時には、表示されているところ･･･下三角マークじゃない所をクリックしてください。

こんな感じで、処理を組み立てていきます。
記述した全部は以下

 

＋α として、Excel １シートに、複数の結果をエクスポートするには････

これは、おまけ的なものになります。
私は、ほとんど Access のレポート機能は使えません。
データの再利用/自由な縮尺･･･等考えると、直接 Excel に････
Excel に出力する････穴埋め的なもの等あるので、DoCmd 系のものは使いません。

自分で組めば、同一シートに複数のクエリの結果表示････容易です。
（穴埋め的なものは、コード量は増えますけど････）

処理の概要としては、
「T企業」に登録してある企業一覧を表示する際、業種別に表示してみましょうか。
業種別････
業種でソートすれば終わりじゃないの･････と言われれば、そこで終わるんですが
業種が変わったら、空白行を入れたい････
　（これも Excel に転記した後、Excel 側を順次チェックして、空白行を INSERT ･･･でも可能ですが）
また、もう１度フィールド名を表示したい････
とかを、（無駄に）想定したものになります。

共通に使える関数を用意しておいて

どのワークシートに、このレコードセットの内容を、レコードセットの概要（sQ）、
既にある記述から何行ずらして、フィールドの表示は？
この５つを与えてみます。

A列には、レコードセットの概要････B列以降に、レコードセットの中身を･･･

中では、自分がしたい処理を記述しておけば良いので･････
ワークシート････どの列･･･と言わずに使っている範囲から何行･･･
を使いましょうか････
でも、真っ白な時でも上記では 1 が得られるようで、書き出しが２行目からになってしまう。
なので、１行目からね････を指定させるために iSkip < 0 なら１行目から･･･
で、フィールド名を表示したら、その行は、中央寄せ（HorizontalAlignment = xlCenter）しましょう。

もし、この関数の呼び出し元で、レコードセットを使い回しするとしたら････
CopyFromRecordset により、EOF = True になるみたいなので、注意が必要････

共通の関数は作ったので、関数を呼ぶ側の記述では、
「T業種」に登録されているものすべてを対象に･･･
ではなく、「T企業」に登録されている業種だけを対象にしましょう。

「T企業」をベースに表示したいもの一覧を用意しておいて、
「T企業」に登録されている業種で順繰りに Filter して････
（この部分、複数のクエリで順次レコードセットを得る様にすると･･･同じ事になりますね）


 
で、
の部分を順に有効にした時の Excel 出力は、以下の様になります。

　　　　

この Excel 関係は、「Module2」に記述してあります。
フォームからは、
するだけです。


今回のサンプルでは、「コード」「業種」「業態」それぞれをいじれるようにしましたが、
通常は、いじれる部分は「コード」だけで、「業種」「業態」はテキストボックスにして、
コントロールソースを、=Me.コード.Column(1) / =Me.コード.Column(2) とかにすると思います。
（もちろん、Me.コード.Column(1) / (2) 部分は、それなりに得られるようにしておく必要あり･･･）



※ （ 2000 には「取り消し時」は無いので、その部分は意図通りには動きません）

※ 「cbx0」も非連結にしちゃったけど･･･連結にしていたら、もう少し楽だったのかも･･･

関連記事

• フィールド順 クエリ編 (2011/06/04)
• Excel VBA をやってみた その４ (2012/09/23)
• タイマ時の動き (2013/05/26)
• フィールドの順って (2011/05/22)
• 自前スクロールバー (2011/12/07)
• 再帰処理にはまる（その４ 乾杯!!） (2012/04/20)
• Excel VBA をやってみた その９ (2013/12/10)
• Excel VBA をやってみた その１１ (2014/08/26)
• Excel VBA をやってみた その１２ (2014/09/27)
• フィールド順 フォーム編 (2011/06/06)
• 検索急上昇 (2014/07/05)
• 奥が深い (2014/08/31)
• 指定時間に強制終了させたい･･･かな (2014/04/29)

2013/05/05

Category: やってみる