回答編集履歴
1
コード追加
test
CHANGED
@@ -25,3 +25,23 @@
|
|
25
25
|
以上で5桁入力した時点で、自動で次のコントロールへ移動して入力確定します。
|
26
26
|
|
27
27
|
よってクエリで参照している顧客名も表示されます。
|
28
|
+
|
29
|
+
|
30
|
+
|
31
|
+
---
|
32
|
+
|
33
|
+
コメントでテキストボックスをマウスクリックしたときに、カーソルを常に先頭に移動させるという要望かあったのので。
|
34
|
+
|
35
|
+
|
36
|
+
|
37
|
+
マウスボタン解放時(MouseUp)のイベントプロシージャを下記のように記述します。
|
38
|
+
|
39
|
+
```vba
|
40
|
+
|
41
|
+
Private Sub テキスト1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
|
42
|
+
|
43
|
+
Me.テキスト1.SelStart = 0
|
44
|
+
|
45
|
+
End Sub
|
46
|
+
|
47
|
+
```
|