よかったら見に来てください。リターン値でもらえると、面白いよね。Subなんて、してみたいよね。標準モジュールに作成した、値を返す、Function関数を作成します。グローバルの変数を初期化します。顧客番号検索フォームをダイアログ指定で開きます。開いたフォームを閉じるまで処理が止まっています。キャンセルボタンが押されたらPublic変数に0をセット後閉じる。フォームが閉じると、処理が戻ってくるので。単純に、Public変数をリターン値で返します。Public変数みたいな感じで。新規のモジュールを追加します。白紙のモジュール編集画面が表示されます。Public変数を定義します。こんな感じで、フォームを開いて、値を返します。Subと、選択結果を選択番号に代入しただけです。ウインドウでテストしてみました。無事選択され、データが返りました。すると、どうなるか?違いを試してみてください。すると、いきなり結果が返ってくると思います。実際に顧客番号を共通で使用する画面に組み込んでみます。関数的にフォームを呼び出し、リターン値を受け取ります。かっこいいんだけどね。BOXもどきのように使用することができます。フォームを開く、中間で処理する関数を作っただけでした。間に人を立てて(爆)なんて話は、愚痴マガネタでしたね。db091.mdb(Access2000版)が保存されています。1つでも何かの参考となれば幸いです。Excel/Access大好き、三流プログラマーKen3でした。※評価は↓で投票してね。感想は掲示板かメールでくださいね。ページフッターここまで、読んでいただきどうもです。広告など気になったジャンル↓を選択してください。)]・・・VBAからOutlookを使い、メール関係を処理するサンプルです↑上記3つみたいなCreateObjectで他のアプリケーションを操作するサンプルが人気です。入力・処理・出力]※↑文章の味付けが変わっていて、お口に合うかわかりませんが。※※読んで、気分を悪くされたらスミマセン。[VBA系バックナンバー目次へ移動]。