質問するログイン新規登録

質問編集履歴

5

文章

2023/10/24 07:44

投稿

misima
misima

スコア17

title CHANGED
File without changes
body CHANGED
@@ -27,7 +27,7 @@
27
27
  使っているフィールド     ”記号” "顧客ID"
28
28
  コントロールソース    テキストボックス1→"記号" テキストボックス2→"顧客ID"
29
29
 
30
- テキストボックス1にA、B、C、Dという風にデータが入っています。サブフォームの テキストボックス1 にマウスを移動したときにメインフォームのテキストボックス1にも同じ値を表示したいのですが、"A" とは表示されるのですが、"B" "C" "D"にマウスを移動しても”A”としか表示されません。"B"や"C"をクリックしたときは、値を取得してくれるのですが、”クリック時”ではなくて”マウスボタン移動時”に値を取得できるようにしたいです。
30
+ サブフォームのテキストボックス1にA、B、C、Dという風にデータが入っています。サブフォームの テキストボックス1 にマウスを移動したときにメインフォームのテキストボックス1にも同じ値を表示したいのですが、"A" とは表示されるのですが、"B" "C" "D"にマウスを移動しても”A”としか表示されません。"B"や"C"をクリックしたときは、値を取得してくれるのですが、”クリック時”ではなくて”マウスボタン移動時”に値を取得できるようにしたいです。
31
31
 
32
32
  なにか方法などがあれば教えていただきたいです。
33
33
  どなたかご教授のほど宜しくお願いいたします。

4

文面

2023/10/24 07:43

投稿

misima
misima

スコア17

title CHANGED
File without changes
body CHANGED
@@ -1,6 +1,6 @@
1
1
  お世話になります。
2
2
 
3
- 現在、accessでサブフォームの値をマウスボタン移動にメインフォームのテキストボックスに表示させようとしています。
3
+ 現在、accessでサブフォームのテキストボックスにマウス移動したときにメインフォームのテキストボックスにマウスを移動した先のテキストボックスの値を表示させようとしています。
4
4
 
5
5
  試したこと
6
6
  サブフォームのテキストボックス1の  "マウスボタン移動時"  に以下のVBAを組んだ

3

文章

2023/10/24 07:40

投稿

misima
misima

スコア17

title CHANGED
File without changes
body CHANGED
@@ -2,8 +2,34 @@
2
2
 
3
3
  現在、accessでサブフォームの値をマウスボタン移動時にメインフォームのテキストボックスに表示させようとしています。
4
4
 
5
- サブフォームは帳票フォームで記号フィールドにA、B、C、Dという風にデータが入っています。サブフォームの テキストボックス にマウスを移動したときにメインフォームのテキストボックスにも同じ値を表示したいのですが、"A" とは表示されるのですが、"B" "C" "D"にマウスを移動しても”A”としか表示されません。"B"や"C"をクリックしたときは、値を取得してくれるのですが、クリックではなくてマウスボタン移動時に値を取得するのは可能なのでしょうか?
5
+ した
6
+ サブフォームのテキストボックス1の  "マウスボタン移動時"  に以下のVBAを組んだ
6
7
 
8
+ Private Sub テキストボックス_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
9
+
10
+    Parent![テキストボックス1] = Me.テキストボックス1
11
+
12
+ End Sub
13
+
14
+ 問題点
15
+ 上記のVBAを組み込んでもメインフォームのテキストボックスに反映されない。
16
+
17
+ ※試しに "クリック時に" 上記のVBAを組んでみたところ上手くいきました。
18
+
19
+
20
+ 課題点
21
+ ”クリック時” ではなく ”マウスボタン移動時” に値を取得できるようにしたい。
22
+
23
+
24
+ サブフォーム  帳票フォーム
25
+ サブフォームのオブジェクト  テキストボックス1  テキストボックス2
26
+ サブフォームのレコードソース テーブル ”顧客T”
27
+ 使っているフィールド     ”記号” "顧客ID"
28
+ コントロールソース    テキストボックス1→"記号" テキストボックス2→"顧客ID"
29
+
30
+ テキストボックス1にA、B、C、Dという風にデータが入っています。サブフォームの テキストボックス1 にマウスを移動したときにメインフォームのテキストボックス1にも同じ値を表示したいのですが、"A" とは表示されるのですが、"B" "C" "D"にマウスを移動しても”A”としか表示されません。"B"や"C"をクリックしたときは、値を取得してくれるのですが、”クリック時”ではなくて”マウスボタン移動時”に値を取得できるようにしたいです。
31
+
32
+ なにか方法などがあれば教えていただきたいです。
7
33
  どなたかご教授のほど宜しくお願いいたします。
8
34
 
9
35
  環境は以下の通りです。
@@ -11,16 +37,3 @@
11
37
  OS:win10
12
38
  ver:2021
13
39
 
14
- 追記:
15
-
16
- 試したこと
17
- サブフォームのテキストボックスの "クリック時" に以下のVBAを組んだら値を取得することには成功しました
18
-
19
- Private Sub テキストボックス_Click()
20
-    Parent![テキストボックス] = Me.テキストボックス
21
- End Sub
22
-
23
- できればこれを ”マウスボタン移動時” でもできるようにしたいです。
24
-
25
- サブフォームにあるテキストボックスの ”マウスボタン移動時” のVBAは現在
26
-      Parent![テキストボックス] = Me.テキストボックス と設定しています。

2

文面

2023/10/24 04:34

投稿

misima
misima

スコア17

title CHANGED
File without changes
body CHANGED
@@ -11,5 +11,16 @@
11
11
  OS:win10
12
12
  ver:2021
13
13
 
14
+ 追記:
15
+
16
+ 試したこと
17
+ サブフォームのテキストボックスの "クリック時" に以下のVBAを組んだら値を取得することには成功しました
18
+
19
+ Private Sub テキストボックス_Click()
20
+    Parent![テキストボックス] = Me.テキストボックス
21
+ End Sub
22
+
23
+ できればこれを ”マウスボタン移動時” でもできるようにしたいです。
24
+
14
- 追記:サブフォームにあるテキストボックスのマウス移動時のVBAは
25
+ サブフォームにあるテキストボックスの ”マウスボタン移動時” のVBAは現在
15
26
       Parent![テキストボックス] = Me.テキストボックス と設定しています。

1

文法の修正

2023/10/24 03:43

投稿

misima
misima

スコア17

title CHANGED
File without changes
body CHANGED
@@ -11,5 +11,5 @@
11
11
  OS:win10
12
12
  ver:2021
13
13
 
14
-
14
+ 追記:サブフォームにあるテキストボックスのマウス移動時のVBAは
15
-
15
+      Parent![テキストボックス] = Me.テキストボックス と設定しています。