| |
小僧さん
早速ご回答ありがとうございます。
説明不足でわかりづらく大変申し訳ありません。
もう少し詳しくご説明申し上げます。
>mhoさんが行いたい事が当方には良く解らないのですが、
>
>> Do Until rs.EOF
>>
>> Me.cmdCHK = chk '<==このあたりがよくわかってません。
>> rs.MoveNext
>> Loop
>
>Loop をさせている、という事は複数レコードを検索していると思われるのですが、
>対象のチェックボックスは一つなのでしょうか？
>非連結のフォームである事を前提にすると、
>複数のチェックボックスの値を変えるのであれば
>当然複数のチェックボックスの名前が必要になってくると思われるのですが…。
はい、Loopをかけている対象は、複数レコードあります。
tbl1100_入力cheak というテーブルに
grade(byt),class(byte),tuki(byte),chk(bln)のフィールド名と型が用意してあり、値はgrade が1〜3、classが1〜9、tukiが1〜12で３つのキーを主キーとする、複合キーを利用し一意としています。レコード数は増減せず、chkの値だけが変化できるテーブルです。参考までに下記のようなものです。
grade class tuki chk
1 1 1 yes/no
1 2 1 yes/no
1 3 1 yes/no
･ ･ ･ yes/no
･ ･ ･ yes/no
1 9 1 yes/no
1 1 2 yes/no
･ ･ ･ yes/no
･ ･ ･ yes/no
1 9 2 yes/no
1 9 3 yes/no
･ ･ ･ yes/no
･ ･ ･ yes/no
1 9 12 yes/no
2 1 1 yes/no
･ ･ ･ yes/no
･ ･ ･ yes/no
2 9 12 yes/no
3 1 1 yes/no
･ ･ ･ yes/no
･ ･ ･ yes/no
3 9 12 yes/no
このテーブルとは別にＡテーブルとＢテーブルが用意してあり、２つのテーブルは
code(一意)で関連づけられＸクエリが作られています。
Ａテーブル
code grade class num name
1101 1 1 1 aaaa
1102 1 1 2 bbbb
1103 1 1 3 cccc
･ ･ ･ ･ ･
･ ･ ･ ･ ･
1140 1 1 40
1201 1 2 1
1202 1 2 2
1203 1 2 3
･ ･ ･ ･
･ ･ ･ ･
1240 1 2 40
1301 1 3 1
･ ･ ･ ･
･ ･ ･ ･
1940 1 9 40
2101 2 1 1
･ ･ ･ ･
･ ･ ･ ･
2940 2 9 40
3101 3 1 1
･ ･ ･ ･
･ ･ ･ ･
3940 3 9 40
Ｂテーブル
code tuki etc
1001 1
1001 2
1001 3
･ ･
･ ･
1001 12
1002 1
1002 2
･ ･
･ ･
1002 12
1003 1
･ ･
･ ･
3940 12
Ｘクエリは下記のように構成されています。
code grade class tuki name etc
非連結αフォーム.a 非連結αフォーム.b 非連結βフォーム.y
非連結αフォームを開き、a、bのコンボボックスからgradeとclassを選択し、コマンドボタンから非連結βフォームに移ります。βフォームではyをコンボボックスから選択しafterupdateをかけて name etc を参照、入力できるようにしてあります。
このとき、βフォームの中にcmdCHKという名前のboolenを1カ所だけ用意しておき、 grade & class & tuki に当たるテーブル(tbl1100_入力check)のyes/noにADO接続でチェックを入れられるようにしてあります。
このあとは最初の質問と同じですが、
次回、非連結フォームを開くとき特定レコード(grade & class & tuki に当たる)のチェックボックス値が表示されるようにしたいのです。
説明や設計があまりうまくなく、わかりづらくなっていますが、この設計で作りたいものですから、ご回答のほどよろしくお願いいたします。
|
|
mho
- 06/5/16(火) 0:25 -
