質問編集履歴
3
タイトル明確化
test
CHANGED
|
@@ -1 +1 @@
|
|
|
1
|
-
Access VBA 複数ボタンの押下処理、
|
|
1
|
+
Access VBA 複数ボタンの押下イベント処理、コード簡素化
|
test
CHANGED
|
File without changes
|
2
追加質問削除
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -41,31 +41,3 @@
|
|
|
41
41
|
Next
|
|
42
42
|
End Function
|
|
43
43
|
```
|
|
44
|
-
|
|
45
|
-
---
|
|
46
|
-
ご回答ありがとうございます。変更しました。
|
|
47
|
-
フォーム上に、ボタンと連動するリストがあります。
|
|
48
|
-
ボタンを押すと該当するリストが選択される処理はできました。（※追加）
|
|
49
|
-
リストを選択して該当するボタンがあれば
|
|
50
|
-
該当するボタンが押されたのと同じ処理、
|
|
51
|
-
該当するボタンが存在しないリスト中の「中部」が選択されると
|
|
52
|
-
すべてボタンが押せるようにする処理
|
|
53
|
-
は、教えていただきました関数を利用することで実現できますでしょうか。
|
|
54
|
-
よろしくお願いします。
|
|
55
|
-
|
|
56
|
-
|
|
57
|
-
|
|
58
|
-
```AccessVBA
|
|
59
|
-
Function BottonOnOff()
|
|
60
|
-
Dim ctl As Control
|
|
61
|
-
Dim OffBtns As String
|
|
62
|
-
List = Me.ActiveControl.Caption(※追加)
|
|
63
|
-
OffBtns = Me.ActiveControl.Tag
|
|
64
|
-
For Each ctl In Me.Controls
|
|
65
|
-
If ctl.Name Like "btn*" Then
|
|
66
|
-
ctl.Enabled = (InStr(OffBtns, ctl.Caption) = 0)
|
|
67
|
-
End If
|
|
68
|
-
Next
|
|
69
|
-
End Function
|
|
70
|
-
|
|
71
|
-
```
|
1
質問追記
test
CHANGED
|
@@ -1 +1 @@
|
|
|
1
|
-
Access VBA 複数ボタンの処理
|
|
1
|
+
Access VBA 複数ボタンの押下処理、リストの選択をボタン押下に反映
|
test
CHANGED
|
@@ -42,6 +42,30 @@
|
|
|
42
42
|
End Function
|
|
43
43
|
```
|
|
44
44
|
|
|
45
|
+
---
|
|
45
|
-
|
|
46
|
+
ご回答ありがとうございます。変更しました。
|
|
47
|
+
フォーム上に、ボタンと連動するリストがあります。
|
|
48
|
+
ボタンを押すと該当するリストが選択される処理はできました。（※追加）
|
|
49
|
+
リストを選択して該当するボタンがあれば
|
|
50
|
+
該当するボタンが押されたのと同じ処理、
|
|
51
|
+
該当するボタンが存在しないリスト中の「中部」が選択されると
|
|
52
|
+
すべてボタンが押せるようにする処理
|
|
46
|
-
|
|
53
|
+
は、教えていただきました関数を利用することで実現できますでしょうか。
|
|
47
54
|
よろしくお願いします。
|
|
55
|
+
|
|
56
|
+
|
|
57
|
+
|
|
58
|
+
```AccessVBA
|
|
59
|
+
Function BottonOnOff()
|
|
60
|
+
Dim ctl As Control
|
|
61
|
+
Dim OffBtns As String
|
|
62
|
+
List = Me.ActiveControl.Caption(※追加)
|
|
63
|
+
OffBtns = Me.ActiveControl.Tag
|
|
64
|
+
For Each ctl In Me.Controls
|
|
65
|
+
If ctl.Name Like "btn*" Then
|
|
66
|
+
ctl.Enabled = (InStr(OffBtns, ctl.Caption) = 0)
|
|
67
|
+
End If
|
|
68
|
+
Next
|
|
69
|
+
End Function
|
|
70
|
+
|
|
71
|
+
```
|