質問: accessvbaでループ使用時にフォームの数値項目名を増減させたい こんにちわ 私の環境はos:xp access2000です。 タイトルに書きました通り 「accessvbaでループ使用時にフォームの数値項目名を増減させたい」のです。 例えば、 do until ~ loop の中で、 顧客名1という項目名があったとします。 その「1」の部分をループが回るごとに1づつ増やし、 顧客名1、顧客名2、顧客名3・・・ としていきたいのです。 知っておられる方がおられましたら、どうか宜しくお願いします。
回答: ご説明だけでは判断できない部分がありますが こんな感じでしょう。 ※rsの宣言などについては省略します。 ※通常レコードセットを最初から最後までチェックする ループと考えています。 その中でif条件に合致した場合新たにループが発生 する場合は以下の通りです。 ●条件というのは「顧客名」というフィールドに具体的な 顧客名 例abc株式会社 を発見した時という事でしょうか。その場合 顧客名1,顧客名2...と 変数にするのでしょうか。その当りがよくわかりません。 ●無限ループに注意してください。 ------プロシジャ例------------------------------- ※ rsを前もってレコードセットとして定義 レコードセットをopenしておく rs.movefirst do until rs.eof if rs!フィールド1=kokyakumei then do until 条件 ここにループを作る loop end if rs.movenext loop