〜 kiku tips 〜

 
まず、どういう回答をしていたのか、以下に（テーブル名、フィールド名部分はチョッと変更しています）


以降、この回答に沿ってフォームサンプルを作っていきたいと思います。

使用するテーブル情報になりますが
テーブル「T得意先」

フィールド	型 等々
得意先ID	オートナンバ （主キー）
得意先名	テキスト
よみ	テキスト

テーブル「T受付」

フィールド	型 等々
an	オートナンバ
受付ID	長整数 （主キー）
得意先ID	長整数 「T得意先」の得意先IDと
年月日	日付/時刻
備考	テキスト

※「得意先ID」部分にルックアップを設定
表示コントロール：　コンボボックス
値集合タイプ：　テーブル/クエリ
値集合ソース：
　SELECT T得意先.得意先ID, T得意先.得意先名, T得意先.よみ FROM T得意先 ORDER BY T得意先.よみ;
連結列：　1
列数：　3
列幅：　0cm;3cm;0cm
入力チェック：　はい

このルックアップを設定しておくと、
フォームウィザードでフォームを作成した際、得意先ID 部分をコンボボックスで作成してくれます。
※ 回答では「よみ」部分を対象外にしてましたが、本サンプルでは表示はしないものの抽出対象に。

※ フィールド「an」は本来は不要です。
※ が、回答後半でオートナンバを使った時の例があるので追加しておきます。

なお、「T得意先」の内容は以下の様になってます（雰囲気で）

得意先ID	得意先名	よみ
1	狩野 A	かあ ＡBC
2	京本 B	かきい ＢCD
3	熊谷 C	かくう ＣDE
4	監物 D	かけえ ＤEF
5	小林 E	かこお ＥFG
6	安藤 A	あ ＡBC
7	伊藤 B	あい ＢCD
8	上野 C	あう ＣDE
9	江頭 D	あえ ＤEF
10	奥村 E	あお ＥFG
11	高橋 A	たあ ＡBC
12	千葉 B	たちい ＢCD
･･･	･･･	･･･

フォーム「F1」

まずは、単票フォームで動きを確かめますか･･･という事で、
「T受付」を元にフォームウィザードで、表形式（横に並べたかっただけ）として作成後、単票に変更。
配置を調整し、ヘッダ部に検索用テキストボックス「txt検索」を配置します。
「受付ID」部分は、VBAで採番するので「編集ロック」を「はい」としておきます。
コンボボックス「得意先ID」の値集合ソースを以下に変更します

VBAで以下を記述します

「受付ID」の処理はどちらか一方の記述で良いですが、
・既定値の表示は、あくまで候補
・更新前で新規なら正式に採番する
という意味合いになってます。


フォーム「F2」

フォーム「F1」を帳票フォームにしていきます。
フォーム「F1」を「F2」としてコピー後、既定のビューを帳票フォームとします。
いきなりコンボボックスを重ねる･･･
どちらの表示がどうなっているかわかりやすいように、縦に並べておくこととします。
コンボボックス「得意先ID」をコピーして、下側に配置します。
今までの上側コンボボックス名を「コンボ前」に変更し、背景スタイルを透明に変更します。
コピーしてできた下側のコンボボックスを変更していきます。
名前：　コンボ後
値集合ソース：　SELECT 得意先ID, 得意先名, よみ FROM T得意先 ORDER BY よみ;
タブストップ：　いいえ

画面上の修正は以上ですが、コンボボックス名「得意先ID」を「コンボ前」に変更したことによる
VBA記述は自動で置き換わってくれないようです。
自分で修正します。

 
起動後、新規行に移って、検索文字に「CD」を入力して Enter キー押下すると以下の様な表示に。

受付ID=1 の「コンボ前」（上側コンボボックス）の表示はなくなりましたね。


フォーム「F3」

では次に、検索文字用の非連結テキストボックス「txt検索」をヘッダ部から詳細に位置変更します。
フォーム「F2」を「F3」にコピー後、テキストボックスのラベル部分と切り離し、本体部分を詳細に･･･
なお、タブ移動順を見た目左から順に移動するように変更しておきます。（必須ではありません）

VBA記述は変更ありません。

起動後、新規行に移って、検索文字に「CD」を入力して Enter キー押下すると以下の様な表示に。

全レコード同じ表示になるので、新規行以外が邪魔かぁ〜〜


フォーム「F4」

そこで、処理しているレコード以外の表示を隠しましょう････と
ここから、帳票フォームにしているテーブル「T受付」のオートナンバ「an」の出番になります。

フォーム「F3」を「F4」にコピーします。
ヘッダ部に非表示のテキストボックス「txt0」を配置します。
詳細部分に「txt検索」より、ひと回り大きいテキストボックス「txt1」を配置します。
「txt1」のプロパティを変更していきます。
背景スタイル：透明
境界線スタイル：透明
フォント名：Webdings
フォントサイズ：28
前景色：詳細の背景と同じ色（#FFFFFF）
コントロールソース：
　=IIf(IsNull([an]) And IsNull([txt0]),"",IIf([txt0]=[an],"","gggg"))

この「txt1」を「txt検索」に重ねて、「txt1」が上（前面）になるようにします。

で、VBA記述したのが以下

 
起動後、新規行に移って、検索文字に「CD」を入力して Enter キー押下すると以下の様な表示に。

レコードを移動していくと、移動した先だけに「txt検索」が表示されるようになります。
ただ、注意事項として記述していた、新規行で編集状態に突入した際の表示に難点があり
　　　　
（図左）「備考」に入力すると、編集状態になり「txt検索」表示は、さらなる新規行に移る
（図中）あるべきところをクリックすると入力することはできる
（図右）Enter 後は、消えて絞り込んだ表示はされるけど

ここまでの動きでオートナンバ「an」を使ってきましたが、実際に必要なのは次の改善策において。
レコードを特定できる主キー「受付ID」があるので、上記「an」を「受付ID」に変更しても動くはずです。


フォーム「F5」

新規行が編集状態に移行した際の「txt検索」表示位置を改善していきます。
フォーム「F4」を「F5」でコピーします。

画面上の変更はないので、VBA 記述を追加していきます。

 
起動後、新規行に移って、「備考」に入力し編集状態に移行しても表示は意図どおりに。

オートナンバが、いつ採番されるのかのタイミングを使っただけで、
新規行に移動した時「an」は Null
編集状態に移行する前の Form_BeforeInsert / Form_Dirty 内でも「an」は Null
Form_Dirty を戻って、次に何かをやろうとした時には 「an」は Not Null に。
Form_BeforeInsert / Form_Dirty は連続して発生すると思っているので、終わった後を Timer で･･･

主キーである「受付ID」を使おうとしたら、Form_BeforeInsert 時に採番して、それを「txt0」に設定･･･
従来の Form_BeforeUpdate での採番はやめる･･･
で、うまくいくと思います（未検証）
もちろん「an」となっているところは全て「受付ID」に変更します。


フォーム「F5完」

フォーム「F5」で動きとして完成しました。
フォーム「F5」を「F5完」としてコピー後、コンボボックス「コンボ前」「コンボ後」を重ねます。

どちらのコンボボックス表示が見えているか、重ねてもわかりやすいように
「コンボ前」の前景色を赤（#FF0000）に、「コンボ後」の前景色を緑（#00FF00）に設定し、
「コンボ後」を「コンボ前」に重ね、「コンボ後」を最背面に設定します。
空いた詳細部分を詰めます。

起動後、新規行に移って、検索文字に「CD」を入力して Enter キー押下すると以下の様な表示に。


フォーム「F6」

このフォームでは、
・「txt検索」は、普段表示しておかない
・「txt検索」があるべきところをクリックした時に表示しましょう
・コンボボックスに絞り込み表示されたら「txt検索」は消えても良いです

確認用なので、フォーム「F5」を「F6」としてコピーします。
ヘッダ部の非表示テキストボックス「txt0」を削除します。
詳細にあるテキストボックス「txt1」を、コントロールの変更でラベルにします。
名前を「lab1」に変更、背景スタイルを「普通」に変更します。
（文字は表示しないのでフォント名は何でもいいです。そのままでも。MS Pゴシックに変更しましたけど）

VBAの記述を以下にします。

 
動き的には、こんな感じかなぁ〜っていう位でしょうか。

動きとして「F5」「F6」の大きな違いは、
レコード移動する時、「txt検索」があるべきところをクリックした場合････
・「F5」ではレコード移動できる
・「F6」ではレコード移動できない

単独のラベルをクリックしてもフォーカス移動しない
何かにくっ付いているラベルは、クリックすることでくっ付いている先にフォーカスが移動する

「F5」で「txt検索」を覆っているのはテキストボックス本体･･･フォーカス移動が発生する

の差になるのだと思います。


今回作ってきたフォームのサンプルと、回答内容は大きく違ってないような･･･
（私が両方やっているので、思い込みなのかも･･･）

気をつけていこう。


今回の収穫

2007 で Form_Undo を使うものを 2000 形式で保存。
これを Win2k + Access 2000 で動かすと Form_Undo は動かない。
でも、この mdb を 2007 で動かすと、Form_Undo は動く。

Win2k + Access 2000 で新規に作って、Form_Undo を組み込んでおくと、2007 で動くのかなぁ
後でやってみよう。


おまけ

新規登録中、次の「受付ID」が編集中の「受付ID」と同じ数値になっている件を改善したものになります。
フォームのサンプルはありません。（VBA記述のみ）そこそこ動くと思います。

オートナンバ「an」を使った時

 
オートナンバ「an」を使わずに、主キー「受付ID」を使った時

また、「txt1」のコントロールソース内の [an] を [受付ID] に変更します
（動いているように見えるけど、詳しくは追っていないので無理/無駄部分があるかも････）

Form_Undo　の際、「an」を使用していた時には
と txt0 に Null を設定していましたが、
今回の「受付ID」では既定値を設定しているので、新規行には値が振られている状態になっているようです。
なので、値を戻す処理は不要そうです。

黄色い部分は、入れ替えた方が良いのかも


余談

絞り込み表示をしたい････絞り込まれたもの以外表示すべきではないと思っています。
できないのなら、そのほかの方法を模索すべきと思います。

もし、Form.Filter で、絞り込まれたもの/でないものを、並び順だけで表示されても････
私はそう思う････っていうだけですけど。



※ Form_Undo を使っているので、2000 ではうまく動きません。

≪--- 続きを閉じちゃえ

 
テーブル「T選手」内の「よみ」は、必ず設定されているものとして記述していきます。
また、「T試合」を表示しているフォームでは、削除操作がないものとしてします。
なので、フォームでの「削除の許可」は「いいえ」としておきます。

これは、「T試合」のレコードを削除した際、「T出場」のレコードをどういう方法で削除するか･･･
自力で？
使った事ないけど、リレーションシップで「連鎖削除」を設定しておく？
今回、削除については触れないという事で････


１）帳票フォームに帳票サブフォーム（F1M/F1S）
　　　　
メインのフォーム「F1M」は「T試合」を元にフォームウィザードで「試合ID」以外を表示するように。
「試合ID」はオートナンバなので、表示はいらないでしょう･･･という事で。
サブフォームがフォームのイベントを取得できるように、プロパティ「コード保持」を「はい」に。

サブフォームになる「F1S」は、フォームデザインで作っていきます。
レコードソースを　SELECT T選手.選手ID, T選手.選手名, T選手.よみ FROM T選手 ORDER BY T選手.よみ;
ヘッダ部分に非表示のテキストボックス「txt1」
これの用途は、親で選ばれた試合に出場した選手の「選手ID」が「,」（カンマ）区切りで･･･
詳細部分には、
・チェックボックス「ck」
　このチェックボックスでは、コントロールソースを使用しますがVBAで設定するので、そのままに。
　ラベル部分はいらないので削除
　タブストップは「いいえ」
・そのチェックボックスを覆う形で（前面側に）、コマンドボタン「btn1」
　背景スタイルを透明
　このボタンがクリックされた＝チェックボックスの チェック 切り換えと解釈
　タブ移動順を先頭に
・選手名用テキストボックス「選手名」
　ラベル部分はいらないので削除
　コントロールソースを 選手名 に設定
　念のため、タブストップを「いいえ」
　このテキストボックスは、チェックボックスにくっ付いているラベルの様な動きにします。
　チェックボックスにチェックが入っていたら、背景色を変更します。
　この変更に、条件付き書式を使いますが、VBAで設定するので、そのままに。

フォームは帳票フォームにして、
・レコードセレクタ「いいえ」
・移動ボタン「いいえ」
・スクロール「垂直のみ」
・追加/削除/更新の許可は、すべて「いいえ」

フォームのデザインはこれで終わりです。

見栄え上のことですが、チェックボックスが多数並ぶのでチェックだけでは分かりづらい？？？
ということで、チェックしたら選手名のところの背景色を変更しましょう･･･という事にしました。

VBAを記述していくわけですが、処理概要をまず。

親で「試合ID」が変化したら「T出場」から、その試合に出ていた「選手ID」を求めます。
この【親で「試合ID」が変化したら】は、親のレコード移動時を検知するようにします。
その求まった「選手ID」を「,」（カンマ）区切りで羅列したものを「txt1」に設定します。
チェックボックスでは、その設定された「txt1」内に、自レコードの「選手ID」があるか判別表示します。
チェックボックスのコントロールソース記述で
　=IIF(InStr([txt1],"," & [選手ID] & ",")>0,True,False)
これと同じような判別で、テキストボックス「選手名」の背景色を条件付き書式で変更します。
式が、InStr([txt1],"," & [選手ID] & ",")>0　　で、背景色を RGB(255, 240, 240)

チェックボックスがクリック（実際にはコマンドボタン「btn1」のクリック）されたら、
「txt1」に自レコードの「選手ID」があれば、その部分を削除、なければ新たに追加･･･
本来、文字列の操作ですが、面倒だったので Dictionary で選手IDを管理することに。
この変更のタイミングで、「T出場」のレコードを操作することに。

また、テキストボックス「選手名」にフォーカス移動（実際にはマウスのクリック）された場合は、
フォーカスを「btn1」に移し、「btn1」がクリックされた時の処理を････
これにより、テキストボックス「選手名」はチェックボックス「ck」のラベル的動きに････???

記述したのは以下

で、出来上がった「F1S」を「F1M」のフッタ部分にドラッグ＆ドロップします。
この時、「F1M」は単票に変更されますが、再度帳票に変更して終了。
（このメイン/サブ構成は自己責任で････）

この処理で、親の更新後処理で表示し直す必要があるのでは･････については、
更新後処理で「試合ID」が変化するケースは、新規登録された場合だけになるので、
元々その試合には出場している選手は存在しないので、取得し直すことは不要になります。
（親が新規行にレコード移動した際に Dictionary はクリアされているので）
（以降のフォームでは、親の更新後処理を検知するものもあります）

その他の部分で、疑問を持たれる方がいるかも･････ん、どの部分？？
選手IDを Dictionary で管理しているのなら、チェックボックス、条件付き書式のところで
Dictionary にあるか･･･チェックすれば、非表示の「txt1」は不要なのでは･････
これ用に上記を変更するとしたら以下の様になります。（変更する部分のみ）
これでも動作するんですが、変更したら毎回 Me.Recalc が必要になって、チラつきが大きくなるんですね。
Me.Recalc しないと、初期表示のまま何も変化がありません。
コントロールソースや条件付き書式の式で指定したものに変更がないと、変化しないようです。
なので、その指定した部分（[txt1]が変更された･･･）を使うようにしてました。
でも、チラつきについては同じなのかなぁ････雰囲気は違うみたいなんだけどなぁ････

と、Painting で挟んだらチョッと改善されたけど････

あと、記述に不満というか････　Sub の関数を呼ぶ時、私は Call を付けて記述しています。
以下の部分には Call が付いているものと思ってください。（記述漏れでした）


２）単票に２つの帳票サブフォーム（F2M/F2S1/F2S2)
　　　　
このフォームでは、帳票＋帳票のメイン/サブフォーム構成ではなく、一般的に使える構成になると思います。
大元の非連結の単票フォーム（F2M）に、
サブフォームコントロール「FSUB1」として「T試合」用の帳票サブフォーム（F2S1）、
サブフォームコントロール「FSUB2」として「T選手」用の帳票サブフォーム（F2S2）を配置します。

フォーム「F2S2」は、前のフォーム「F1S」をコピーして中の記述をチョッとだけいじります。
（フォーム「F2S1」と連動するように）
フォーム「F2S1」は新しく「T試合」を元にフォームウィザードを使って、まず、単票として作成し、
（フィールドを縦に並べたかっただけ）それを帳票フォームに変更します。
削除は処理対象にしないので、削除の許可は「いいえ」に、「コード保持」は「はい」に。
親フォーム「F2M」は Form_Load 時、サブフォーム「F2S1」の情報を「F2S2」へ通知するだけ。
タイミング的には、親が Load された時点で、サブフォーム側の初期処理は終わっているようなので･･･
（「F2S2」単独で「F2S1」情報を取ろうとした時、「F2S1」が居なかったりする？？？）
「F2S2」では親からもらった「F2S1」情報を元に、「F2S1」のレコード移動時イベントを検知するように･･･
親では、「F2S2」の設定が終わったら、「F2S1」を Requery してレコード移動時イベントを作ってやる。

親フォーム「F2M」に記述したのは

 
フォーム「F2S1」にはVBA記述なし。単独で起動されても問題ないかなぁ･･･
フォーム「F2S2」は「F1S」をコピーしたものだったので、変更した箇所を以下に
（「F1S」の Form_Open 部分を ２つの関数に分けただけです）

サブフォームとして組み込まれていなければ、起動しない様に
親からフォーム「F2S1」（「T試合」を表示している帳票フォーム）のフォームを教えてもらう。
で、レコード移動時を検知できるように････


３）単票に１０個のサブフォーム（F3M/F3S）（あ行、か行･･･毎にサブフォーム）
　　　　
このフォームでは、あ行、か行･･･別で表示しましょう････というもの。

フォーム「F1M」を「F3M」としてコピーし、フッタ部分のサブフォームコントロールを削除。
フッタ部分の領域をなしにして、詳細部分を広げます。
その詳細部分にサブフォームコントロール「FSUB0」〜「FSUB9」の１０個配置します。
このサブフォームコントロールに、前作ったフォーム「F1S」を入れて、行別表示に仕立て上げます。
処理を少し変更するので、「F1S」を「F3S」としてコピーします。
サブフォームコントロールのソースオブジェクトは空欄にしておきます。
これは１つのフォーム「F3S」を使い回しする為の１つの方法だと思っています。
FSUB0 では「あ行」を表示して････　FSUB1 では「か行」を表示して････って指示したかったので
この指示に、親フォームのタグを連絡用に使い、ソースオブジェクトに「F3S」を設定
「F3S」では、情報を親のタグから入手し、指示に従った表示をするように。
サブフォームコントロールは、１０人分を表示できる高さにデザインで設定しておきます。

親フォーム「F3M」に記述したのは以下

 
子フォーム「F3S」として「F1S」から変更した部分は以下

 
この記述ですが、表示選手が１０人に満たない場合、2007 ではスクロールバー表示はありませんでした。
でも、2000 / 2003 では、常に縦のスクロールバーが表示される。
サブフォームコントロール側では１０人分表示できるように設定しているので、
共通の処理として、表示対象が１０人以下ならスクロールバーを表示しない様に････

表示を見てみましたが、何のための空白部分か･･･何か違和感ありありです。
あ行、か行　の表示はやめて、２０人単位で表示しましょうか････っていうのが次（F4M/F4S）に


４）単票に６個のサブフォーム（F4M/F4S）（１つのサブフォームでは２０人表示）
　　　　
このフォームでは、２０人単位でサブフォームとして表示しましょう･･･というもの

基本的な考え方/処理は前の（F3M/F3S）と同じなので、「F3M」を「F4M」、「F3S」を「F4S」にコピー
前のフォームでは、　よみ Like '%1' 　の %1 にあたる文字列を指定していましたが、
今回のフォームでは　選手ID IN (%1)　　の %1 にあたる文字列を指定するようにします。

フォーム「F4M」で、サブフォームコントロールを「FSUB1」〜「FSUB6」の６つに
選手２０人を表示できるようにしておきます。
処理の概要としては、選手を「よみ」順で２０人単位でサブフォームを設定していきますが、
最後の「FSUB6」だけは２０人を超えても作り続けるようにします。
その時に、もしかして･･･人数が多すぎて･････タグの文字数制限に引っ掛かるようになるかも･･･
（その時にはその時で別の手段を使うように変更しますか････）

親フォーム「F4M」に記述したのは以下

 
子フォーム「F4S」で「F3S」から変更した部分は以下

 

ここまでのフォームでは、帳票フォームで非連結のチェックボックスを使ってきました。
この方法からチョッと離れて考えてみよう････ということで、以降、違う方法になっていきます。


５）上記フォームのワークテーブル使用バージョン（F5M/F5S）
　　　　
前回のフォーム構成を使って、サブフォーム側のレコードソースをワークテーブルにしてみます。
テーブル「Tワーク出場5」として

フィールド	型 等々
an	オートナンバ （主キー）
試合ID	長整数 「T試合」の試合ID
選手ID	長整数 「T選手」の選手ID
ck	Yes/No型

を使ってみます。
１試合分のデータだけを扱うようにします。
試合ID は不要？なのかもしれません。
データを「Tワーク出場5」「T出場」間でやり取りしやすかったので･･･
（これが後で問題に･････････後述）

フォーム「F4M」を「F5M」としてコピーします。
サブフォームの個数、２０人までの表示は前と変わりません。
変わるのは、ワークテーブル「Tワーク出場5」から本テーブル「T出場」へ戻すタイミングを作ること････
更新用のボタン「btn1」と、
戻す（本テーブル「T出場」からワークテーブル「Tワーク出場5」へ再展開）用のボタン「btn2」を配置

サブフォーム用のフォームは「F4S」を「F5S」としてコピーします。
レコードソースは表示する際に書き換えるものの、
標準で「Tワーク出場5」と「T選手」とで選手名を表示できるようにしたものを設定しておきます。
ヘッダ部にあった「txt1」、詳細部分でチェックボックスを覆っていた「btn1」は削除します。
チェックボックス「ck」のコントロールソースに「ck」を設定し、タブストップを「はい」に。
チェックボックスをクリックして更新するので、フォームの「更新の許可」だけ「はい」に変更。

処理の概要を。

メインフォーム「F5M」では、Load 時、「Tワーク出場5」に全選手の選手IDを作成します。
「T選手」の「よみ」順で２０人ずつサブフォームに割り当てていきます。
（「FSUB1」〜順にソースオブジェクトにサブフォームを割り当てていきます）
レコード移動時に、「Tワーク出場5」の 試合ID と ck を更新します。
更新後処理では、新規で試合ID が割り当てられることがあるので、レコード移動時の処理をもう一度。
更新ボタン「btn1」がクリックされたら、「Tワーク出場5」を元にその試合に該当するものを作り直します。
戻すボタン「btn2」がクリックされたら、その試合にあったデータを「Tワーク出場5」に作り直します。

ここで、新規登録（試合IDがNull）の場合、「Tワーク出場5」の試合ID は 0 に設定。

サブフォーム側では、「Tワーク出場5」に対して「ck」を設定していきます。
設定する際、親に配置した更新ボタン「btn1」の文字色を変更するようにします。

親フォーム「F5M」に記述したのは以下

 
子フォーム「F5S」に記述したのは以下

 
上記で動いているようですが、この１つ前の記述では、
新規の試合を入力しようとした場合、サブフォーム部分に何も表示されない現象が発生。
１つ前の記述と言うと、サブフォームを設定する際の記述になりますが
（以下の黄色い部分の記述がありませんでした）
 
でサブフォームの処理が走り始めるわけですが、
Form_Open が呼ばれる前に　LinkMasterFields / LinkChildFields が "試合ID" に自動設定。
Form_Open の初めの処理で、LinkMasterFields / LinkChildFields をクリア（空文字設定）しても、
その後の、RecordSource 設定直後にまた、LinkMasterFields / LinkChildFields が "試合ID" に。
リレーションシップは設定していないし････
ま、確かに、親の「試合ID」は主キーに設定していましたが････
あ、ルックアップは設定していたかな･･･
Access さんのどこかのオプション設定で回避できるのかもしれないけど、その設定を強要する？？？
あれ、や･･･、名前の自動修正？？　これってそのDBを限定できたっっっっっかも･･･（未確認）
でも、親側で SourceObject 設定後に、LinkMasterFields / LinkChildFields をクリアすれば
動くようなので、この記述を採用しました。

主キーと同じフィールド名があったから？？････次回から気をつけよう。


６）単票に多数の非連結チェックボックス(F6M)
　　　　
これが回答に使った、そのものになります。

元にするフォーム「F6M_BASE」を作っておきます。（「T試合」を元にした単票フォーム）
「F5M」をコピーしてサブフォーム部分を削除、VBA記述を全削除したものにしておきます。
また、
・「登録」ボタンが押された時に登録する
････ということが抜けていたので、それに対応するように、登録ボタン「btn1」を配置。

チェックボックスを作成していきますが、必要人数以上のチェックボックスを不可視で作っておいて、
表示する時に必要な分だけ、可視（Visible=True）に変更します。
チェックボックス名の命名規則として、「"ck" & 連番」とします。
（１００くらい、ということだったので　"ck1" 〜 "ck120"　）
手作業で多数のチェックボックスを作成して名前を変更・・・
これ面倒なので、VBAで作成します。

１列２０個で、計１２０個（６列分）のチェックボックスと、それにひっつくラベル
このラベル部分に選手名を表示するようにします。

標準モジュール「M6Make」を用意しました。
チェックボックスを追加する対象のフォーム「F6M_BASE」を、一旦「F6M_BASE_」にコピーして、
作り終わったら「F6M」に名称を変更　という内容になってます。

 
フォーム「F6M」にVBAを記述していきますが、概要をまず。

・チェックボックスクリック時
「T試合」の新規レコードであったら、見た目チェックを無効とするようにします
チェックボックスは非連結なので、変更してもレコード移動等のタイミングは分かりません。
なので、編集状態にしておくことで、レコード移動のタイミングを検知することが出来るようになります。
そこで、「天候」を同じ値で設定して編集状態に・・・
チェックボックスの変更状態を更新します。

・フォームが起動された時
「T選手」から選手情報をチェックボックスに割り当てていきます。
割り当てたチェックボックスのラベルに選手名を、＋可視に
チェックボックスの Tag に、選手ID を登録しておきます。
これにより、クリックされた時、簡単に選手を特定できるようになります。

・レコード移動時
レコード移動によって「試合ID」が変化するので、その時の「試合ID」で
「T出場」にある選手を抽出し、チェックボックスを変更していきます。

・更新前
登録ボタン「btn1」クリックでのみ更新/登録できるようにするので、
意図しないタイミングでの更新はできない様に、常に Cancel = True とします

・取り消し時（２０００では動かない）
チェックボックスを初期状態に戻し、レコード移動時に取得した選手情報でチェックボックスを再設定

・登録ボタン
「T試合」への登録チェックが必要であればこのタイミングで
一度、更新前処理を無効としてレコードを登録します。
「T出場」に対して、チェックボックスの状態を反映します。

dicOld は、レコード移動時に取得したその試合での選手情報で、
チェックボックスでの変更状況は dicNew にて。
レコード移動直後は、dicOld dicNew は同じ内容となっています。
チェックボックスの操作により、dicOld dicNew の差分で　DELETE したり、INSERT したりします。
登録操作後、dicOld dicNew の内容を同じにするため、レコード移動時の処理を。

記述したVBAは以下

 

　　上記フォームのVBA記述量削減・操作限定バージョン（F6M2）
　　　　
このフォームでは、「F6M」の処理/操作を限定して、極力VBA記述を少なくしたものになります。

限定したのは、
・「T試合」の新規登録時のみ
・選手を追加したらフォームの手直しが必要
・この用途以外にチェックボックスがない事

チェックボックスは非連結で自由に配置しますが、以下の設定が必要です。
・チェックボックスの「タグ」には、「選手ID」を設定しておく
・チェックボックスのラベルには、その選手の「選手名」を表示するように
また、チェックボックス名は何でも構わない、個数も限定しない。

で、これを確認するフォームを作成するのですが、手修正も面倒なので････
標準モジュール「M6M62」を用意しました。
（フォーム「F6M」を元に、上記条件に修正していくものです）

で、割り当てられていない不要なチェックボックスを削除するなりします。
（３列削除しましたが、配置はそのままにしたのが現状の「F6M2」です）

フォーム「F6M2」に記述したのは以下

 
新規登録時に、まずチェックボックスのチェックを外しておきます。
「登録」ボタンがクリックされた時に、チェックがあるものを探し出し、レコードを追加します。

チェック自体は「T試合」のものを入力していない状態でも、自由に ON / OFF できます。
なお、VBA記述を少なくするために、ラベル部分の背景色は変更していません。

登録ボタン「btn1」の最後で、Me.Requery しているのは、
新規登録を連続して行った場合、前のレコードに戻れたような気がして････
もし、戻ったとした場合、チェックボックスの表示を処理できない････
なので、Me.Requery して、新規レコードのみにするように････


７）上記フォームの表示変更バージョン（F7M）
　　
このフォームでは、「よみ」順に割り当てていく際に、あ行、か行････行が変わったら１つ空けましょう。

フォーム「F6M」を「F7M」でコピーし、以下の記述を追加/修正します。

また、チェックボックスをクリアする以下記述２か所を変更します。
を
に。
これは、チェックボックスは連続して Visible = True になっているわけではないので････
（フォーム「F6M」でも、下側記述で OK です）


８）単票にタブコントロール配置（F8M）（タブページで、あ行、か行･･･）
　　実際に操作するのは、多数の非連結チェックボックス
　　　　　　
このフォームでは、多数のチェックボックスをタブコントロールを使って、
あ行、か行････をタブページで分けて表示しましょう････というものです。
タブページには、非表示のチェックボックスを各３０個配置しておきます。
（表示する時に使う分だけ可視に変更するのは、今まで通りです）
タブページ０には、標題「あ」、チェックボックス「ck1」〜「ck30」
タブページ１には、標題「か」、チェックボックス「ck101」〜「ck130」
････
タブページ９には、標題「わ」、チェックボックス「ck901」〜「ck930」
という規則を設けます。
また、今回はチェックボックスは横から採番しましょう････

フォーム「F8M_BASE」（フォーム「F6M_BASE」をコピー）を用意し、
標準モジュール「M8Make」に用意した　M8MakeProc　を実行すると雰囲気フォームが出来上がります。
それをきれいに配置し直して保存します。

この実行は結構時間がかかります。（初めは、おかしくなったのかと思い止めたりしてました）
タブコントロールの位置決めは難しいですね。（Top が今一つ決まりません）

フォーム「F8M」用のVBAを転記します（同じ標準モジュール内に用意済み）
フォーム「F8M」のVBA記述は「F7M」と大半同じで、以下 Form_Load の黄色部分が異なるだけです。

2000 のタブコントロール表示は、結構暗いですね。


９）単票に単票サブフォーム（F9M/F9S）　（ワークテーブル使用）
　　　　
VBA は記述したくない･･･ということだったので、テーブル「T出場」を以下の様にすると
チェックボックスを自由に配置できて、操作は楽に（VBA記述なし）なる･･･と言ったものの
これ以降に控えている操作等に支障が出てくると思います。

フィールド	型 等々
an	オートナンバ （主キー）
試合ID	長整数 「T試合」の試合ID
ck1	Yes/No型 ルックアップはチェックボックス
ck2	Yes/No型
・・・
ck120	Yes/No型

何故か･･･
「ck1」はＡさん用、「ck2」はＢさん用　等、テーブル内にない取り決めが必要になります。
じゃ、これに近いテーブルをワークテーブル「Tワーク出場9」として使いましょう。
（･･･って VBA 必要になるんじゃ･････横に置いとくとして）

フィールド	型 等々
an	オートナンバ （主キー）
試合ID	長整数 「T試合」の試合ID
ck1	Yes/No型 ルックアップはチェックボックス
ckn1	テキスト 選手名
ck2	Yes/No型
ckn2	テキスト 選手名
・・・
ck120	Yes/No型
ckn120	テキスト 選手名

【追記 5/15】
上記テーブルのフィールド「an」はありません。

「ck1」は XX さん用という取り決めが必要なので、テーブル「T選手」に情報を持ちましょう････
テーブル「T選手」を「T選手9」にコピーして、フィールドを追加します。

フィールド	型 等々
選手ID	オートナンバ （主キー）
選手名	テキスト
よみ	テキスト
ckno	数値 使用する ck の番号

標準モジュール「S9Make」にテーブル、連結した単票フォームを作成するVBAを用意しました。

 
ここで出来上がった「F9S」に以下を記述します。

 
メインとなるフォーム「F9M」はフォーム「F6M_BASE」をコピーしたもの。
そこに、この「F9S」をドラッグ＆ドロップしてサブフォームとして組み込み、
リンク親/子フィールドは削除（空欄に）します。

どの選手が、どの「ck」を使うか、テーブル「T選手9」の「ckno」を変更しない限り、
その選手はその番号を使う事になるので、連結されたチェックボックス/テキストボックスを
（ペアにして）自由に移動配置できます。

なお、このワークテーブル「Tワーク出場9」のレコードは１件だけ。
それを UPDATE で使い回しします。
（処理対象でない試合のものに対して、レコードをいじりたくないので）
連結にしてみたものの、何か遠まわりしているような････していないような･･･
でも、ガ〜〜ってチェックして、それを取り消すのは楽かな。
メイン/サブの構成になったので、「登録/修正」用のボタンはなし。

今までのフォームと表示が異なっていますが、気がつかれたでしょうか。
今までのフォームの表示順は、「よみ」順になっていましたが、
このフォームでは選手の登録順（ckno の順）になっています。
（配置を移動していなかったので、そう見えたという事だけですけど）

そうそう
このフォームだったと思うけど、Form_Open / Form_Load が連続して呼ばれない･･･
当初 Form_Open / Form_Load は以下のような感じ
Form_Open でやっているのは、過去記事にもいろいろと書いてましたが、
サブフォームとして起動されていなかったら表示しない････
でも、この後の
の
★★★１　部分だったかで「カレントレコードがない」エラー（だったか）
★★★２　部分だったかで frm がどうたらだったか･･･

で、2000 の方でチョッといじっていると、動いてみたり･･･
同じVBA記述構成の他のフォームは動いていたり････

なので、サブフォームになる Form_Open / Form_Load は Open １つに（全部書き直し）

【追記 5/15】
ここで示した箇所の例は嘘ですね。
されていないと、frm_Current　は動きませんよね････

でも、どこかのフォームでなっていたんですよ････
ま、私の中での出来事と言う事で･････


注意事項）
・メイン/サブの構成では、サブ側でメインのイベントを受け取る設定をするので
　メイン側フォームのプロパティ「コード保持」は「はい」としておきます。
　（メイン側に VBA 記述がなくても）
　（F2M/F2S1/F2S2 では、「T試合」を表示している F2S1 が対象）

・フォーム「F6M」以降のフォームで、選手を割付ける際、割り付けきらなかったとか････
　以降の処理でエラーになる可能性･･･大・大・大



どの方法が良いのだろう････




≪--- 続きを閉じちゃえ

 
シート「T1」「T2」への記述
 
VBA で記述した内容は一緒で、シート上のデータ（A列）が異なるだけです。
　　
B列が変更された時点（Worksheet_Change）で処理を実行します。
（関数名等、前記事のものをそのまま使ったりしています。詳しくは前記事を参照してください）

 

シート「T1改」「T2改」への記述
 
VBA で記述した内容は一緒で、シート上のデータ（A列）が異なるだけです。
また、「T1」「T2」と異なるのは、結果を表示する際の値の並び順だけになります。
　　
B列が変更された時点（Worksheet_Change）で処理を実行します。
（「T1」「T2」記述をベースに異なった部分を黄色表示で）

 
さほど変更箇所はありません。

なお、「T2」「T2改」で確認する際は、指定する値に注意してください。
合計値 4500 を指定すると、８分弱で 39483 組･････
安易に値を入力すると悲惨な目にあいます･････
4200 の時が ３分チョッとだったから･･････　どんな感じで時間は膨れていくのでしょうか ??

大きな値を指定したい時には、まず、使用個数を小さくしてから実行してみてください。


あ、そうそう
Excel 化にあたって、前回の Access 版より大きく変更した点があって
Dest 部分に格納する方法･･････

Dest には Src の配列番号のみを格納するように変更しました。
現在解釈中のものを示すことに大差はなく、なんか軽そうだったので････



≪--- 続きを閉じちゃえ

 

確認用テーブル

確認用テーブルは、設問にあった内容のテーブル「T1」
レコード数を 30 件に増やし、重複の値が１つあるテーブル「T2」
（標準モジュール「T2Make」でいろいろ作成できます）
後述の標準モジュール「Module11」の処理経過を計測格納するテーブル「T3」
（標準モジュール「T3Make」で内容は作成されます）
ただし、１万件のレコードになるのでサンプル上は空（サイズがでかくなるので）
でも、実行すれば作成できるので････ってことに。
※ 私の環境で「T3」の内容（１万件）作成するまで、 25 分弱
（Intel Core(TM)2 Duo CPU T7250 @2.00 GHz メモリ 2.5GB Vista Ultimate SP2 Office2007Pro SP3）

なお、出来上がったテーブル「T3」を Excel 出力する標準モジュール「ToExcel」もあり････

確認用画面

確認用画面はほとんど共通です。
　　
テーブルを選択するオプショングループ「op0」
そのテーブルのレコード数を表示するテキストボックス　　=DCount("*","T" & [op0])
そのテーブルの「F1」の総計を表示するテキストボックス　　=DSum("F1","T" & [op0])
表示を選ぶオプショングループ「op1」
検索値を入力するテキストボックス「txt3」
パターン数を表示するテキストボックス　　=[lst1].[ListCount]
検索したパターンを表示するリストボックス「lst1」

リストボックス「lst1」は、「値集合タイプ」を「値リスト」に設定
検索した結果を VBA で展開して、リストボックスへ表示するようにします。

記述したのは以下で、黄色部分が処理によって異なるだけです。

 
値検索の実行は、検索値入力部分で「Enter」キーを押下することで行われます。
なので、極力検索値入力テキストボックスにフォーカスを設定するようにしています。
また、「タブストップ」は検索値入力テキストボックス「txt3」のみ「はい」としておきます。

標準モジュールに記述した関数を呼び出し、
その結果をリストボックスへ「値リスト」として設定していきますが、
設定できる文字数制限がある様で、特に 2000 で設定エラーが多く発生します。
その時には、設定のエラーであること＋件数のみを表示するようにします。

リストボックス「lst1」をダブルクリックされた時、抽出したものが正しいものなのか････
これを表示するフォームを起動するようにします。
（リストボックスで選ばれているものがあったら･････）
（私はこの判別方法を良くやってましたけど･････ ListIndex の方が良いんでしょうか････）

フォームを起動しますが、起動されたフォームの Form_Open で Cancel = True を返すことがあるので、
エラーの発生を無視するように On Error Resume Next を記述しておきます。

※　ここで新しい発見あり
リストボックスを「値リスト」で、かつ「ダブルクリックでフォーム起動」･････
これ、あまりやったことがなかったのですが、
起動するフォームを「ポップアップ」を「はい」、「作業ウィンドウ固定」を「はい」に設定していても
起動後、リストボックス付近をクリックすると、起動したフォームが裏に隠れる現象が発生････

ダブルクリックの Cancel = True しても変化なし････

いろいろやってみると････
リストボックスの「値リストの編集許可」が「はい」となっていると起きるようです。
「値リストの編集許可」を「いいえ」とすると裏に隠れる様な事はなくなりました。
（2007 にて･････ 2007 で作っていたので他のバージョンでは未確認）
（この対処が良かったのかは･･･････）

起動されるフォーム「F_SHOW」

　　
このフォームでは、
自分が生きて帳票形式で表示するか、
自分を終了してリストボックス表示の「F_SHOW2003」を起動するか処理します。
表示したレコード自体はいじらせたくないので、各テキストボックスの「編集ロック」は「はい」に。
また、追加/更新/削除が出来ない様にしておきます。

Form_Open ではお決まりの、直に起動された時には表示しない様にしておいて･･･
起動元のリストボックス表示が正しいか････
CurrentProject.Connection.Provider　文字列内に "ACE" があるか････

このフォーム「F_SHOW」（帳票形式）では、
レコードセットに ADODBインメモリレコードセットを使うので、過去記事で 2000 で使えなかったこともあり
起動バージョンで切り替えるように･････
2003 をどうしようか考えたけど表示に大差はないよね･････ってことで、上記判別にて････

表示に関しては、表示する件数を取得したら、
「詳細」の高さx件数+α を加味したフォームの高さを再設定します。

また、数字が表示されている部分をダブルクリックされたら、フォームを閉じるように･･･

 
起動されるフォーム「F_SHOW2003」


フォーム「F_SHOW」を「F_SHOW2003」でコピーし、「既定のビュー」は単票フォームにしておきます。
「詳細」に配置してあったものすべてを削除し、リストボックス「lst1」を配置し直します。
また、「値集合タイプ」を「値リスト」にし、固定幅フォントを指定しておきます。

リストボックス形式で表示する時に起動されます。
ここでも、お決まりのように、直に起動されない様にしておいて････
数値を右詰で作成す時には、 RSet を使用し調整します。

表示する件数によりリストの高さを変更していきますが、
初めに「詳細」部分の高さをリストの高さ以上に設定してから行います。
「詳細」の高さをリストの高さに関係なく30cm とか大きく設定しても、
InsideHeight　設定時、指定した高さ - ヘッダの高さ - フッタの高さ　で、
「詳細」の高さが決まるような雰囲気です。
リストボックスの高さ変更時、「詳細」を超えたらエラーになった様な････気がしますが･･･未確認

また、数字が表示されている部分のダブルクリックで、フォームを閉じるように････

 

モジュール

ここでは「Module11」「Module21」について記述してみます。
他の記述も似通っているので、興味あればサンプルファイル内を見てください。

Module11
 

上記、処理イメージに全部書いた様な気もします。

 
検索値が見つかったら、";" 区切りで、何のデータか先頭に "ID" or "F1" を付加して････
「F1」の値をソートしたものと、「ID」をソートしたものを Dictionary に格納することにしました。
表示した時、ソートされているのが見やすいかな･････ここは妥協できないかなぁ
格納する時に各値を４桁の文字に揃えて････
（なので５桁以上の値の場合、おかしくなるかと思います）

これは、格納先に Dictionary を選んだので、重複があったら削ってくれる････
（F1 の値に重複があった場合、値表示時には重複を削除したもので････）
（ID 表示の場合は重複するものがないので、そのまま表示されると思います）

例）

ID	F1
1	20
2	30
3	80
4	20
5	40

というデータがあった場合に 100 を求めたいとすると
・F1（値）での表示では
　20 80
　の１件になると思いますが
・ID での表示では
　1(20) 3(80) と 3(80) 4(20)
　の２件になります。

こういう事をやりたかった････っていうのもあって Dictionary を選んだ･････とも言えるかなっと

再帰呼出しの心臓部分、以下がどのような感じで動いているのか調べてみました。
（標準モジュール「T3Make」で、調査結果をテーブル「T3」に作成します）

 
計測した結果は以下の通りとなりました。

最小値、基準値、最大値での結果は 検索値 関数呼 処理数 組合せ数 27  1  2  1  993  84  547  4  1574  383  3186  9

それぞれでの最大値となるのは 検索値 関数呼 処理数 組合せ数 4897  90632  348453  360  5086  101758  374971  360  5892  142237  428015  286  6410  152512  399892  210

検索値 500 ごとの結果は以下になりました。

検索値 関数呼 処理数 組合せ数 500  9  53  0  1000  86  559  2  1500  321  2626  12  2000  1136  9682  19  2500  3858  27664  55  3000  10391  63150  110  3500  22572  120002  175  4000  41786  197296  248  4500  67375  283983  288  5000  96661  363297  321

検索値 関数呼 処理数 組合せ数 5500  124922  415693  306  6000  145684  425487  231  6500  152164  390086  163  7000  141867  320059  111  7500  115895  230606  54  8000  80722  142787  19  8500  46394  74042  8  9000  19168  28014  2  9500  4464  5956  1  10000  1  0  0

ただ、私が作成した Module11 でのものなので参考になるのかどうか････
特に「組合せ数」は検証してください。

追記 4/21
--
極力、再帰呼出し回数を減らすように、上記 Select 文で判別しやすい範囲でチェックしていましたが、
黄色部分の判別が足りてませんでした。
上記を変更したことで「処理数」「組合せ数」に変化はありませんでしたが「関数呼」は、
最大、「検索値」6732 の 149934 回を 111738 回へと 38196 減らすことが出来ました。
（時間的目安は 0.336 から 0.320 に改善････）

「関数呼」改善差 TOP 10

検索値	変更前	変更後	差
6732	149934	111738	38196
6756	149412	111220	38192
6733	149935	111745	38190
6735	149851	111661	38190
6734	149872	111683	38189
6728	150055	111867	38188
6729	150012	111824	38188
6730	149993	111805	38188
6731	149969	111781	38188
6727	150044	111857	38187

なお、求める動作自体には影響ないので、サンプルファイルは未修正
--

ちなみに使用個数を限定した場合「Module31」での変更箇所は少なく、以下の黄色部分
（iNst が使用個数を指定するもの）

 
もちろんパラメータ iNst が増えた分、呼び出し側にも変更はありますが････

Module21
 



 

同じ土俵での確認

標準モジュール「__Sample確認」に記述しています。
各記述は、「_」で始まる名称で格納しています。
結果はイミディエイトウィンドウに表示されます。


 
同じ土俵にのるために記述したのが「_kiku」（Module11 を元に修正）

 

※　いや、こういう考え方した方が良いよ････等、教えてください。





≪--- 続きを閉じちゃえ

 
まず、以下を記述してみました

 
Worksheet_Change　内でセルに値を設定すると、また Worksheet_Change が呼ばれるようなので、
処理で設定した後の Worksheet_Change はすぐに戻るように、上記黄色部分で細工。
Worksheet_Change イベント自体を抑止する方法もあるようですが････今回はこれで。

処理的には、どの行が変更されたか････
これを求める前に１〜３行の状況を取得しておきます。
変数を Variant にしておいて、Empty かで判別するように････
元々の値が Empty だったら、IsNumeric は True で、Int は 0 を返すので２段で判別するように･･･

へ〜〜１つ目
日数のところに &H0A を入力してみると IsNumeric は True で、Int は 10 になるんですね。

何か、それなりに動いてくれますね･･･コピー＆ペーストされても大丈夫そう･････････

へ〜〜２つ目
列を挿入すると悲惨な事に･････
列を挿入すると、挿入されたセル全てが Target で得られるようです。
（そのセル分 For　Next が Loop しちゃいますね）

処理する行１〜３に限定した動きをするようにしましょう･･･ということで

この記述部分を以下に変更します。

と、戻る前で

黄色部分が追加/変更した部分になります。
Intersect を使って１〜３行に絞り込みます。

動きとしては、そこそこ良くなったんではなかろうか････
と思っていじっていたら････あれ？･･･あれれ････てなことが

へ〜〜３つ目

	A	B	C	D	E
1	開始日	2012/04/01	2012/04/01	2012/05/01
2	終了日	2012/04/30
3	日数	30	2012/05/01	2012/06/01
4			20	20
5

という表示があったとします。
C3:D4 は、貼り付けとかで失敗したのでしょうか。
この C3:D4 部分を　C2:D3 へ持っていく時の方法ですが、C3:D4 を選択して枠部分をドラックして
・コピーすると（Ctrlキーを押しながら C2:D3 へ）

	A	B	C	D	E
1	開始日	2012/04/01	2012/04/01	2012/05/01
2	終了日	2012/04/30	2012/05/01	2012/06/01
3	日数	30	31	32
4			20	20
5

・移動すると（そのまま C2:D3 へ）

	A	B	C	D	E
1	開始日	2012/04/01	2012/04/01	2012/05/01
2	終了日	2012/04/30	2012/04/20	2012/05/20
3	日数	30	20	20
4
5

私のイメージとしては、移動してもコピーの結果になって欲しかったな･････
この場合の移動では、Worksheet_Change　が２回発生するようです。
移動した直後では、

	A	B	C	D	E
1	開始日	2012/04/01	2012/04/01	2012/05/01
2	終了日	2012/04/30	2012/05/01	2012/06/01
3	日数	30	20	20
4
5

となっているようですが、
１回目の時の Target は以下の部分が通知されました。

	A	B	C	D	E
1	開始日	2012/04/01	2012/04/01	2012/05/01
2	終了日	2012/04/30	2012/05/01	2012/06/01
3	日数	30	20	20
4			(Empty)	(Empty)
5

日数の変更を通知されたので、開始日があることから終了日を求め直し設定します。
２回目の通知は、その変更した内容で以下の部分となりました。

	A	B	C	D	E
1	開始日	2012/04/01	2012/04/01	2012/05/01
2	終了日	2012/04/30	2012/04/20	2012/05/20
3	日数	30	20	20
4
5

この動きは通知された Target を元に行っているので、どうしようもないことの様に思えます。
（対策はないのかな･････）

複数のセル（Target）を処理しようとすると無理なのかな･････
コピー＆ペーストでの複数処理･････あきらめるのかなぁ････
Target.Count = 1 を判別すべきだろうか････

でも、コピー＆ペーストは捨てがたいし････

おかしな動きをする時がある････という事で、そのままで行こうかなっと。
コピー＆ペーストは処理するという事にしましたが、例えば　C1:D3 に貼り付けると
For Each　で得られる Range (Target) の順は

	A	B	C	D	E
1	開始日	2012/04/01	1	2
2	終了日	2012/04/30	3	4
3	日数	30	5	6
4
5

の様な順になるようです。
ここで、１番目に得られる C1 を処理する時、C2 / C3 の部分も書き変わっているようです。
ということは、列に対して１回処理すればよいことになる？？？

そこで、処理している列情報を Dictionary で管理することにして以下

黄色い部分が処理を追加したところになります。

ただ、この処理にも弊害があって、以下の様なデータを

2012/05/01	bbbb
aaaa	2012/06/20
20	20

C1:D3 に貼り付けると

	A	B	C	D	E
1	開始日	2012/04/01	2012/05/01	bbbb
2	終了日	2012/04/30	2012/05/20	2012/06/20
3	日数	30	20	20
4
5

ということになります。

・貼り付けた先頭行で処理する

こと（が仕様）になります。
これは手間になりますが、考えながら貼り付けることをして頂戴････ってなことで････本当にいいのかな？

これが嫌なら、Dictionary 処理を追加する前のものとすれば、抜けなく書き変わると思います。



今回、サンプルファイルはありません。

こういう方法にすれば良いよ･････教えてください。

≪--- 続きを閉じちゃえ

 
テーブル「T商品」を用意しました。

フィールド名	型
商品ID	数値（長整数）
商品CD	テキスト
商品名	テキスト
単価	通貨
作成日	日付/時刻
備考	テキスト

「商品ID」が主キーで、他のフィールドに重複ありのインデックスを設定してみました。
（曖昧検索を主に確認するので、インデックスを設定しても意味無いのかも）

「商品ID」はいらなくて、「商品CD」を主キーで････っていうのもあるかもしれません。
・「商品CD」は今後見直しによって変更があるかもしれない
　　であれば、変更の対象は１テーブルにとどめておきたいかなぁ･････
・他テーブルと結びつける際、テキスト型より数値型の方が処理上速いんではないかなぁ･･････
・マスタ側になる主キーにはオートナンバは使いたくないかなぁ･････
（私の中での雰囲気です）

このテーブルには、1000 件のデータを入れておきました。
（標準モジュール「Module2」内の関数実行で、指定件数分のダミーデータを作成できるように）
また、テーブル「T商品B」も同じ構成で、データ３件だけ（基本的なフォーム動作確認用として）

用意したフォームは以下

参照 テーブル	フォーム	内容
T商品B	F0_LB	リストボックスでの絞り込み
	F0_M	帳票フォームでの絞り込み（メイン側）
	F0_S	帳票フォームでの絞り込み（サブ側）
T商品	F1_CHK	コンボボックス＋他フォームで絞り込み
	F1_LB	リストボックスでの絞り込み
	F1_M	帳票フォームでの絞り込み（メイン側）
	F1_S	帳票フォームでの絞り込み（サブ側）
	F2_CHK	コンボボックス＋他フォームで絞り込み
	F3_CHK	コンボボックス＋他フォームで絞り込み
	F3_LB	リストボックスでの絞り込み
	F3_M	帳票フォームでの絞り込み（メイン側）
	F3_S	帳票フォームでの絞り込み（サブ側）

F0 系のフォームは、単独で起動確認できるもの
F1 系のフォームは、コンボボックスの連結列を「商品ID」として、
・コンボボックスの入力は「商品CD」
・必要に応じて他フォームを起動
・他フォームからはコンボボックスに対して、選択された「商品ID」を設定
　（F0 系に起動元フォームとの連携組み込み）
F2 系のフォームは、コンボボックスの連結列を「商品CD」として、
・コンボボックスの入力は「商品CD」
・必要に応じて他フォームを起動
・他フォームからはコンボボックスに対して、選択された「商品CD」を設定
F3 系のフォームは、コンボボックスの連結列を「商品ID」として、
・コンボボックスの入力は「商品CD」
・必要に応じて他フォームを起動
・他フォームからはコンボボックスに対して、選択された「商品ID」を設定
　（この選択する時に F1 系での方法を若干変更）

単独起動確認

リストボックスや帳票フォーム表示で１件選択する操作を、
その行がダブルクリックされた時に選択されたものとする･･･と決めました。

リストボックス動作「F0_LB」
 
　　
フォームをデザインから作成していきます。
単票/非連結として作成するので、レコードセレクタ等表示しない様にしておきます。
どのフィールドに対して曖昧検索するか、オプショングループ「op1」で選択できるようにします。
「op1」は、値 1 〜 6 を取るようにします。
オプショングループが変更された場合、文字の色を「赤」に変更したいかな･････
ってんで、フォーム依存しない共通の処理なので、標準モジュール「Module1」に以下を記述しておきます。

これは、チェックボックス/オプションボタンの構成の場合は、くっついているラベルの文字色を････
なので、ラベルがくっついていないとエラーになります。

検索文字を入力する為のテキストボックス「txt1」を配置します。
その下にリストボックス「lst1」を配置します。
リストボックス「lst1」に表示する際、絞り込みをしていくわけですが、
値集合ソースを直接書き換える方法もありますが、今回は値集合ソースは固定してやってみます。
値集合ソースは
としておきます。
つまり、オプショングループの値と連携した、非表示のテキストボックス「tx1」〜「tx6」を配置します。
オプショングループ「op1」が 1 なら、「tx1」に検索文字を設定しますよ････
この時、同じフォーム上の為に名前が解決するのか、
[Forms]![F0_LB]![tx1] と記述しなくても良いようです。
連結列は 1 としておきます。列幅は相応に

VBAで記述したのは以下

 
※※　さて、ここでですが
オプショングループがクリックされた時、対象のフィールドのみ初期設定する為に
として txt1_Change を動かしているわけですが、★ の処理で戻ってきた後でなぜかエラーが発生します。

フォームが表示される前に１回通るのですが、その時にはエラーは発生せず。
フォーム表示後、オプショングループをクリックすると、その都度エラーとなるのです。
処理としてはチャンと動いているので、On Error Resume Next　でエラーを無視するようにしました。
処理の仕方が悪い･････等、ご指摘いただければと思います。

なお、オプショングループで切り換えた検索対象フィールドの初期表示は、Null 以外を表示するように。

メイン/サブ動作「F0_M」「F0_S」
 
　　
フォーム「F0_LB」の表示に似せるために、そのフォームを「F0_M」名でコピーします。
リストボックス「lst1」を削除し、サブフォームコントロール「FSUB」を同じ大きさで作成します。
帳票フォームとなるサブフォームを絞り込む方法として、フォームの Filter を使うようにしました。
（サブフォームのレコードソースを書き換える方法もあるかと思いますが）
検索文字列を Filter に設定する際、前後の文字を　op1_Click　時に作っておくように････
それ用に、非表示で配置していたテキストボックス「tx1」「tx2」を使いましょうか････
（VBA内の変数に作っておいても良いかも）
「tx3」〜「tx6」を削除します。
サブ用の帳票フォームが出来上がったら、それを「ソースオブジェクト」に設定して作成は完了になります。

記述したVBAは以下

 
帳票フォーム「F0_S」は、テーブル「T商品B」を元に、フォームウイザードで表形式作成。
レコードソースを変更して「商品ID」昇順を指定しておきます。
レコードセレクタ/移動ボタンを表示しないようにします。
誤ってレコード等をいじれない様に、追加/削除/更新の許可を「いいえ」にしておきます。
フォーム「F0_LB」のリストボックス表示の列幅に合わせて配置し直します。

ここからチョッと細工を････
ヘッダ部に非表示のテキストボックス「txt1」を配置します。
詳細にある全テキストボックスの「タブストップ」を「いいえ」に変更します。
詳細にあるテキストボックス全てを覆うようにコマンドボタン「btn1」を配置します。
「透明」を「はい」として、タブ移動順を一番先頭に変更します。
リストボックス内をクリックした時に反転する処理は、全テキストボックスで条件付き書式を使用します。
この時の判定に、ヘッダ部に配置した「txt1」に、
コマンドボタン「btn1」がクリックされたところの「商品ID」を格納し、
「txt1」と表示行の「商品ID」が一致するかで････
コマンドボタン「btn1」を配置したことで、下側のテキストボックスをクリックし辛くなったので
VBAで条件付き書式を設定するように。（デザイン時の操作でクリックしにくい）
また、リストボックスの選択を解除するマネとして、「txt1」をクリアする関数を Public にし、
メインで Filter をかける際に呼んでもらうように････

記述したVBAは以下

 
これで、リストボックス風の動きになると思います。
表示しているデータは違いますが、2000 / 2003 で表示してみた感じは以下の様になります。
　　
動きとして、
・レコードをクリックすると反転表示
その後、「↑」「↓」キーや「Page Up」「Page Down」でも移動できるかと思います。
また、リストボックスでの動きとは異なり、「tab」キーでも移動できます。
ただ、チョッとチラつきますね（大目にみるという事で）

なお、2000 だけ、「Page Up」「Page Down」で動きませんでした。

レコードを選択した･････今回ダブルクリックを用いましたが、どこかに配置したボタンでも良いと思います。

連携確認

連結列「商品ID」その１
 
コンボボックス動作「F1_CHK」
 
　　
コンボボックスの動きだけを確認するのではなく、コンボボックスのダブルクリックで、
リストボックス・メイン/サブで選択した値を受け取れるようにしてみました。

最終的には非連結のフォームになるのですが、
テーブル「T商品」を元にフォームウィザードで単票として作成します。
「レコードソース」を空白にします。
どれをコンボボックスに変更するかですが、「商品CD」を表示したいのかなぁ････ということで、
テキストボックス「商品CD」のコントロールソースを空白にし、コンボボックスに変更します。
値集合ソースを
として、「商品ID」以外を表示するようにします。（「商品CD」で昇順に）
連結列は 1 とします。列幅はリストボックスの設定値を参考にして･･･
他のテキストボックスの「コントロールソース」を変更し、
常にコンボボックス「商品CD」をみるように変更します。
「商品ID」なら、=[商品CD].[Column](0) と。

コンボボックス選択でじれったくなった場合、
・リストボックスのフォームから値をもらうのか
・メイン/サブの帳票表示フォームから値をもらうのか
選択するオプショングループ「op1」を配置します。
（コンボボックスでも、直に入力すれば先頭一致でそこんところに飛んでくれますね）

設定値として何をもらいたいのか tag に設定して、選択したフォームを起動します。
起動操作は、コンボボックス「商品CD」をダブルクリックした時･･･とします。
コンボボックスの連結列を 1 としたので、「商品ID」が欲しい tag = 0 を設定します。
（tag の値の取り決めとして、リストボックス（コンボボックス）に設定した Column(x) の x とする）

記述したのは以下

 

リストボックス動作「F1_LB」
 
フォーム「F0_LB」を「F1_LB」名でコピーします。
リストボックス「lst1」の対象テーブル名を「T商品B」から「T商品」に、「商品CD」の昇順に変更します。
値を戻す先を覚えておいて、覚えていたら設定してフォームを閉じます。
（値を戻す時、リストボックス表示の何列目を設定するかは設定先の Tag が持っている）

VBAで以下の黄色部分を追加/修正します。

 

メイン/サブ動作「F1_M」「F1_S」
 
フォーム「F0_M」を「F1_M」名でコピーします。
フォーム「F1_LB」と同様に、起動元とのやり取り部分を追加します。
ただ、「F1_LB」と異なるのは、ダブルクリックされるのはサブフォーム側であること････
サブフォームに配置したコントロールのイベントを直接取得する方法もありますが、
今回は、サブフォーム側でダブルクリックを検知したら関数を呼んでもらうように･･･
その時、欲しいフィールド値をサブフォームから取得できるように････
メイン側に LastCall 関数を用意し、
サブ側にリストボックス風の書き方になるように Column 関数を用意しました。
サブフォームコントロール「FSUB」のソースオブジェクトを変更したサブに変更します。

フォーム「F1_M」に記述したのは以下（「F0_M」に追加/変更した部分を黄色で）

 
フォーム「F0_S」を「F1_S」名でコピーします。
レコードソースの対象テーブル名を「T商品B」から「T商品」に、「商品CD」の昇順に変更します。
また、コマンドボタン「btn1」がダブルクリックされた時点でメインの関数を呼び出すので、
単独起動後ダブルクリックされると必然とエラーが発生するので、
単独起動されない様に　Form_Open　で起動可否判別を追加･･･
（過去記事でも、いろいろと判別方法を変えながら書いてました。で、今回の判別はこれで･･･）

フォーム「F1_S」に記述したのは以下（「F0_S」に追加/変更した部分を黄色で）

 

連結列「商品CD」
 
コンボボックス動作「F2_CHK」
 
フォーム「F1_CHK」を「F2_CHK」名でコピーします。
サンプルテーブル「T商品」の「商品CD」に重複がなかったようなので、
他フォームから設定される値を「商品CD」としてみます。
コンボボックスの「連結列」を 2 に変更し、VBA記述以下を変更します。
（戻り値に「商品CD」が欲しいことを、tag に設定するだけ）

 


連結列「商品ID」その２
 
ここでは、F0 / F1 系で曖昧検索する時には常に前後が曖昧で検索されていました。
検索する文字を入力するところで、自分でどの部分を曖昧にするか指定したい････
頭が「S」で最後が「7」だった････「 S*7 」これを直接指定したい･･･ということで

コンボボックス動作「F3_CHK」
 
フォーム「F1_CHK」を「F3_CHK」名でコピーします。
起動するフォーム名を変更するだけです

 
リストボックス動作「F3_LB」
 
フォーム「F1_LB」を「F3_LB」名でコピーします。
リストボックス「lst1」の値集合ソースを変更します。

VBAでは、以下の黄色部分を変更します。

 
メイン/サブ動作「F3_M」「F3_S」
 
フォーム「F1_S」を「F3_S」名でコピーします。
（変更箇所はないので、そのままでも良かったんですが････）

フォーム「F1_M」を「F3_M」名でコピーします。
サブフォームコントロール「FSUB」のソースオブジェクトを「F3_S」に変更します。

以下黄色部分を変更します。

 

サンプルデータ作成

標準モジュール「Module2」にある関数 MakeTableData を実行します

エラー時の処理をチョッと盛り込んでみましたが･････
（でも、あまりこういう書き方はしないのかなっっと。　動きました、というレベルでしょうか･･･）

なお、記事によっては同じことをする時でも書き方を変えてみたりしていますので、
１つの記事を読んで、書き方はこう、という判断はしないでください。
参考にする等々、すべて自己責任でお願いします。


余談

テーブル「T商品」にテストデータを作った後、連続する「商品ID」があるか ??････
これ、クエリを作って確認していたのですが、作り方によっては表示までの時間が違いますね････

遅かったのは、

そこそこ速かったのは

今回の収穫でした。


もっといい方法知ってるよ････教えてください。



≪--- 続きを閉じちゃえ

 
Form_Delete　以降が呼ばれない････
これ、単純に考えると、Form_Delete　のパラメータ Cancel に　True　を設定することで
以降のイベントは発生しないようですが、Cancel を True に設定しているわけではない。
考えられるのは、Form_Delete のイベントを誰かが検知して Cancel = True としているのでは･･･
考えやすいのは、クラスを作って、そのクラスの中でイベントを取り込んで････
処理を統一したいとか･･･の場合、クラスを作ってやると各フォームでの記述は見やすくなりますね。
また、VBAで直にレコードを削除した時には　Form_Delete　は呼ばれないようです。
自力で削除した後で、Form_Delete　を呼び出す････これは結構考えにくいのでしょうか。
クラス側から Private Sub Form_Delete(Cancel As Integer) を呼び出せなかった？？
同じフォーム内で自力削除して、Form_Delete　を呼び出す････
これだったら、Form_Delete　のタイミングを使いたいってことにはならない････と思います。

連結表示する為のテーブル「T1」を用意します。
an：オートナンバー
商品名：テキスト型
単価：通貨型（書式：通貨）
数量：通貨型（書式：数値）

フォームウィザードを使って、表形式で作成します。
「単価*数量」表示用のテキストボックスを作成し、コントロールソースを　=[単価]*[数量]　とします。
総合計表示用のテキストボックス「txt1」をヘッダ部分に作成し、
コントロールソースを　=Sum([単価]*[数量])　とします。
「an」と上記２つのテキストボックスは表示だけで良いので、
「編集ロック」を「はい」、「使用可能」を「いいえ」に変更します。
サブフォーム用フォームの見栄えはこれで完了です。（もうチョッとあるかも）

上記フォームをサブフォームとする親フォームをデザインから作成します。
何行目を削除するか････
　これを指定するテキストボックス「txt0」コマンドボタン「btn1」を左側上に
サブフォームの総合計を表示するものを右側上に
（コントロールソースでサブフォームの総合計「txt1」を参照するように）

※　実際の QA では、サブフォームで削除した時、親フォームの関数を呼び出し、
　その関数内で DSum 結果をテキストボックスに設定････という流れでしたが、今回はこれで

サブフォームコントロール「FSUB」を配置し、ソースオブジェクトにサブ用フォームを指定
これで、親（メイン）フォームのベースは完了です。

親（メイン）フォームへのVBA記述は共通です。

何行目の削除は、何行目････の「an」を求めて、自力削除。
その後、サブフォームからも呼ばれる可能性のあるサブフォームの再クエリを････

※　このサブフォームの再クエリで、
とすると表示を先頭に戻すことなく、再クエリ動作させることが出来るようです。
通常（？）は
の方だと思います。


０）イベント確認　　（F_T0M / F_T0）

ここでは、イベントの発生を確認してみます
サブフォームに記述したのは以下

 
起動時、サブフォームとして組み込まれていなければ立ち上がらないようにしておいて･･･
各イベントで MsgBox 表示するように･･･
Access さんからの「○○件削除しますか」メッセージは、Form_BeforeDelConfirm 後ですよね。

１）クラス　改良前　　（F_T1M / F_T1）

誰かが　Form_Delete　のイベントを検知して、別途処理しているのでは････
ということで、クラスの構成を作ってみました。
※　一応、回答してみたのはこの１）と２）になりますが、新規行が選ばれていた場合正常に動きません。
　新規行も選ばれていた場合でも動作するものにしたのが、３）４）になります。
　なので、１）と３）、２）と４）は大差ありません。

クラス「clsFrm」として記述したのは以下

 
クラスを New された時点で、どのフォームで････を覚えておき、
そのフォームの「レコード削除時」（ Delete ）イベントを受け取るようにします。

frm_Delete　は選択されたレコードセレクタ数分呼ばれます。（新規行分除く）
サブフォームで記述した　Form_Delete　と、クラスで記述した　frm_Delete　がどの順で呼ばれるか･･･
これを分かりやすくするために、最初でメッセージを出して、最後で削除処理するようにしています。
また、変数 iCount は何をやっているのか説明しなくても読めばわかるかな････って

としているのは、Accessさんが削除処理している間、そのレコードをいじるとエラーになって･･･
また、最後に呼ばれた　frm_Delete　のタイミングでレコードをいじりたい･･･
Cancel = True で戻る前にやりたい!!。
CancelEvent なら発行した時点で Cancel 動作させることが出来るのでは･･･
で、やってみたら Accessさんに怒られることもなく、できてしまった。
※ Cancel = True で戻るパターンは、後述５）にて

サブフォームに記述したのは以下

 
ここで、注意する箇所が１つ。
サンプル上ではコメントにしましたが、
部分。
2003 / 2007 では正常に処理されますが、2000 では Form_Close からAccessさんに戻った時に
Accessさんがエラー終了してしまいます。
Form_Close　を　Form_Unload　に変更しても同様でした。
クラスの　
を動かしたいためなんですが････
フォームを閉じただけでは、Class_Terminate　は呼ばれないようです。
（確認の仕方が悪かったのかも??）
そもそも、Set frm = Nothing　を気にしなくても良い???

 
２）自力　改良前　　（F_T2M / F_T2）

ここでは、Form_Delete　発生条件である「Delete」キーのイベントを取り込んで、
Accessさんに削除処理自体をさせない････
削除処理自体がなくなるので、１）のようなクラスを作っていても動かないはず･･･

サブフォームに記述したのは以下

 

３）クラス　改良後　　（F_T3M / F_T3）

１）の改良版で、レコードセレクタで選択した中に新規行があっても動くように･･･
また、メッセージの表示タイミングを、最後に呼ばれた時に変更してみました。

クラス「clsFrmKai」として記述したのは以下

 

サブフォームに記述したのは以下

 

４）自力　改良後　　（F_T4M / F_T4）

サブフォームに記述したのは以下

 

５）クラス　改良その２　　（F_T5M / F_T5）

このクラスでは、frm_Delete で Cancel = True を返すようにし、
削除操作は「タイマ時」を利用するように････

クラス「clsFrmKai2」として記述したのは以下

 

サブフォームに記述したのは以下

 

 
６）フォーム「F_ALL」

前述してきた　親（メイン）からのサブフォーム参照　/　子（サブ）からの親フォーム参照
これ、全ての確認パターンで共通になっているので、サブフォームをコロコロと切り換える･･･
この切り替えをオプショングループ「op1」を使って操作できるように････
以下の黄色い部分が追加した記述になります。

 
サブフォームコントロール「FSUB」にくっ付いているラベルの表示を変えながら、
ソースオブジェクトを切り替えます。

※ テキストボックスにくっ付いているラベル表示変更は
　Me.テキストボックス名.Controls(0).Caption で設定先がわかりますが、
　サブフォームコントロールでは上記の様な辿り方はできないようです。
　Controls(0) としてしまうと、サブフォーム内のコントロールが求まってしまうので････


※※　削除操作で　Form_BeforeDelConfirm　/　Form_AfterDelConfirm　が呼ばれない
　これ、上記以外に推測/想定できますでしょうか････

※※※　こういう想定が出来る･･･云々、教えてください。




≪--- 続きを閉じちゃえ

 

１）リストボックスを２つ並べて、クリックしたら他方に移す

横にリストボックスを並べて表示し、右側に表示された「メモ」に対して設定
１−１）ワークテーブルを使用する（フォーム：F1）
　　
テンポラリテーブル「T1Tmp」を用意します。フィールドは、「an」数値型（長整数）のみ
左側のリストボックス「lst1」を作成します。
値集合ソースは
連結列：1
列数：3
列幅：0cm;3cm;4.5cm
複数選択：しない

としておきます。
また、「src」追加用にテキストボックス「txt1」コマンドボタン「btn1」を配置します。

右側リストボックス「lst2」は「lst1」をコピーし、値集合ソースを変更します。
「メモ」設定用にテキストボックス「txt2」コマンドボタン「btn2」を配置します。

以下VBAを記述します。

基本的な動作としては、左側をクリックされたらテンポラリテーブルの「an」に対象の「an」を追加し、
右側をクリックされたらテンポラリテーブルの「an」から対象を削除するものになります。
なぜ「an」なのか････は、レコードを特定できるものだから･･･
その「an」を、リストボックスの連結列に指定して、表示しなくて良いから列幅は 0cm に。
LEFT JOIN なり INNER JOIN なりで結び付けを考えるだけなので、結構楽と言えば楽。
いろいろなサイトで説明されていますね。私も忘れないうちにと言う事で･･･

「メモ」を設定する時に遊びを入れています。
設定する文字列の先頭が "=" であったら、Eval() を介した結果で設定するようにしてみました。
つまり、"=Date()" であったのなら、Eval("Date()") の結果を設定するように････
また、"'" の文字が入力中にあったら、全角の "’" に変更するように･･･

設定対象がテーブルにあるという事で、いろいろクエリ（SQL）で加工できて便利だなぁ･･･と思います

注意する点が１つあって、リストボックスに表示しているレコード数ですが、
列見出しが「はい」となっている時には、ListCount に１件としてカウントされている････
なので、レコードを表示しているのか、どうか
という判別をしてみました。


１−２）Dictionary を使用する（フォーム：F3）
　　
テンポラリテーブルを使用しないで、テンポラリテーブルの役目を Dictionary で代用しましょう･･･

Dictionary に追加/削除･･･等々の関数を必要に応じて標準モジュールに用意しておきます。
今回用意したのは以下（標準モジュール「Module1」）

 
フォーム「F3」としてフォーム「F1」をコピー作成し、値集合ソースを変更します。
左側リストボックス「lst1」
右側リストボックス「lst2」


そしてVBAで以下を記述します

 

２）複数選択を使ってみる

複数選択した「メモ」に対して設定（フォーム：F2）
　　

フォーム「F1」を「F2」としてコピー作成後、
・右側リストボックスを削除
・左側リストボックスの設定を変更していきます
値集合ソース
複数選択：拡張

VBA記述を以下に

 
ふ〜〜ん
した時点で、選択状態は解消されるんですね････

１−２）、２）でもそうですが、条件として設定したい場合は、
ってな記述に限定されるんですかね････

１−１）では、対象がテーブルに作られているので、
INNER JOIN だとか Exists だとか、それなりに変形した指定が出来そうです。

ただ、リストに表示している件数が多いとか･･･
状況によって変わってくるんでしょうか･･･


それはそうと、
は
でも同じだと思います。
私は ADODB.Recordset をよく記述で用いるので CurrentProject.Connection の方を使ってました。
なので ActiveX の参照設定してました。
が、今回、記述して動いた････で、参照設定してなかったね････
そこそこ収穫あったものになりました。



※　テーブル「T1」は空です
※　適当にレコード追加して確認してみてください

≪--- 続きを閉じちゃえ