Q&A
サブフォームは単票フォームですか。それとも帳票フォームですか。
お世話になります。
現在、accessでサブフォームのテキストボックスにマウスを移動したときにメインフォームのテキストボックスにマウスを移動した先のテキストボックスの値を表示させようとしています。
試したこと
サブフォームのテキストボックス1の "マウスボタン移動時" に以下のVBAを組んだ
Private Sub テキストボックス_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Parent![テキストボックス1] = Me.テキストボックス1
End Sub
問題点
上記のVBAを組み込んでもメインフォームのテキストボックスに反映されない。
※試しに "クリック時に" 上記のVBAを組んでみたところ上手くいきました。
課題点
”クリック時” ではなく ”マウスボタン移動時” に値を取得できるようにしたい。
サブフォーム 帳票フォーム
サブフォームのオブジェクト テキストボックス1 テキストボックス2
サブフォームのレコードソース テーブル ”顧客T”
使っているフィールド ”記号” "顧客ID"
コントロールソース テキストボックス1→"記号" テキストボックス2→"顧客ID"
サブフォームのテキストボックス1にA、B、C、Dという風にデータが入っています。サブフォームの テキストボックス1 にマウスを移動したときにメインフォームのテキストボックス1にも同じ値を表示したいのですが、"A" とは表示されるのですが、"B" "C" "D"にマウスを移動しても”A”としか表示されません。"B"や"C"をクリックしたときは、値を取得してくれるのですが、”クリック時”ではなくて”マウスボタン移動時”に値を取得できるようにしたいです。
なにか方法などがあれば教えていただきたいです。
どなたかご教授のほど宜しくお願いいたします。
環境は以下の通りです。
OS:win10
ver:2021
帳票フォームで書いてありましたね。上記の質問は無視してください。
> サブフォームのテキストボックス1の "マウスボタン移動時"
> Private Sub テキストボックス_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
テキストボックスの名前とイベントプロシージャの接頭辞が一致していないようですが、それは実際の名前とコードなのでしょうか。
> サブフォームのテキストボックス1にA、B、C、Dという風にデータが入っています。
> サブフォームの テキストボックス1 にマウスを移動したときに
> メインフォームのテキストボックス1にも同じ値を表示したいのですが、
> "A" とは表示されるのですが、"B" "C" "D"にマウスを移動しても”A”としか表示されません。
> Parent![テキストボックス1] = Me.テキストボックス1
（仮にイベントプロシージャの接頭辞が "テキストボックス1" であるとして）
この時のサブフォームの[テキストボックス1]の値は、そのフォームのカレントレコードの[テキストボックス1]の値だからです。
> "B" "C" "D"にマウスを移動しても”A”としか表示されません。
ただマウスポインタ―を他のレコードが表示されている位置に移動させただけであって、カレントレコードはそのままなのですから当然そうなります。
> "B"や"C"をクリックしたときは、値を取得してくれる
カレントレコードを他のレコードに移動させた直後に MouseMove イベントが発生しているためです。
丁寧にありがとうございます！プロシージャの接頭辞はテキストボックス1です。申し訳ありません。質問を返すようで恐縮ですが、帳票フォームで既にMouseMove イベントが発生していて、マウスポインタ―を他のレコードが表示されている位置に移動させただけではMouseMove イベントを再び発生させることは不可能と考えてもよろしいのでしょうか？
> マウスポインタ―を他のレコードが表示されている位置に移動させただけでは
> MouseMove イベントを発生させることは不可能と考えてもよろしいのでしょうか？
MouseMove イベント自体は発生していますし、以下のステートメントも実行されています。
> Parent![テキストボックス1] = Me.テキストボックス1
単に代入元となっている[テキストボックス1]の値が "A" である、というだけです。
自己解決
