質問: objADORS!ZAIKO ..... を10回繰り返せば条件毎に値がセットするのはわかります。 ただし、あまりスマートなやり方ではなく、もっといい方法があるんじゃないかと思うのですが考えつきません。 何か良い方法、手段がありましたらお教え下さい。 よろしくお願いします。
回答: もう、10数年前ですが DisplayRecord()を作った記憶があります。次のような使い方をします。 Private Sub Form_Load() Dim StopNow As Boolean StopNow = Not DisplayRecord(Me, "SELECT * FROM id管理表 WHERE id_name='Test'") If Not StopNow Then Message "フォームが正常に表示されました。" End If End Sub 当然に、DisplayRecord()だけでフォームのテキストボックスを更新するには仕掛けというか約束事が必要です。私は、テキストボックスの名前を'XXXXXX列名'とするというルールを作成。これで、DisplayRecord()は、コントロール名とフィールド名が一致するテキストボックスを探せます。まあ、洗練と言うならば’汎用化’を志向することかと。 <蛇足> 私の経験では、この手の関数の出番はありませんでした。非連結フォームでAccessのフォーム機能を全て実現するクラスライブラリ等も開発しましたが、結局は、非常に重たくて使いものになりませんでした。最終的には、「Access の機能を上手く利用するのが一番」という陳腐な結論に。