Access (VBA)

Access VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 7 Home Premium : Access 2010)
値の代入後イベント
投稿日時: 17/12/08 10:47:35
投稿者: MJ

いつもお世話になります。
下記の件で質問させていただきます。
 
 
新規データ入力フォームに下記のような項目があります。
----------------------------------------------------------------------------------
(1)仕入先名  コンボボックス / 【cmb仕入先名】 /クエリ /Q仕入先
(2)仕入先情報 コンボボックス / 【cmb仕入先情報】 /クエリ /Q仕入先情報
(3)仕入先注意 テキストボックス /【txt仕入先注意】 /Q仕入先情報の2列目を取得
----------------------------------------------------------------------------------
(★A)新規データ入力フォームは、いちから手入力する場合と、
(●B)別フォームからの過去データのコピーしてきてその値の代入で値を取得する場合があります。
----------------------------------------------------------------------------------
(★A)の場合は
    (1)仕入先名を選択すると、これが絞り込み条件となり
    (2)の仕入先情報(Q仕入先情報)が絞り込まれ【cmb仕入先情報】に表示される
    (3)仕入先注意は、絞込み後の仕入先情報(Q仕入先情報)の項目の2列目を
           取得し、テキストボックスに表示するようにしています。
 
        Private Sub cmb仕入先情報_AfterUpdate()
          Me.txt仕入先注意= Me.cmb仕入先情報.Column(1)
            End Sub
----------------------------------------------------------------------------------
(●B)の場合は、(1)【cmb仕入先名】、(2)【cmb仕入先情報】に値の代入が
されます。(3)の【txt仕入先注意】テキストボックスには値の代入はありません。
----------------------------------------------------------------------------------
 
(●B)の値の代入後に(3)【txt仕入先注意】に自動で値を反映させたいのですが
更新後イベントではできずチェンジイベントも試しましたがうまくいきませんでした。。
 
良いお知恵がありましたらご教示のほど宜しくお願いいたします。

投稿日時: 17/12/08 14:22:40
投稿者: MJ

 
すみません、、
 
回答お待ちしている間に解決いたしましたので
Closeさせていただきます。
 
今後とも宜しくお願いいたします。