回答編集履歴
2
推敲
test
CHANGED
|
@@ -28,7 +28,7 @@
|
|
|
28
28
|
|
|
29
29
|
```
|
|
30
30
|
|
|
31
|
-
分岐が多いなら、[Select Case ステートメント](https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/select-case-statement?f1url=https%3A%2F%2Fmsdn.microsoft.com%2Fquery%2Fdev11.query%3FappId%3DDev11IDEF1%26l%3Dja-JP%26k%3Dk(vblr6.chm1008810)%3Bk(TargetFrameworkMoniker-Office.Version%3Dv16)
|
|
31
|
+
分岐が多いなら、[Select Case ステートメント](https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/select-case-statement?f1url=https%3A%2F%2Fmsdn.microsoft.com%2Fquery%2Fdev11.query%3FappId%3DDev11IDEF1%26l%3Dja-JP%26k%3Dk(vblr6.chm1008810)%3Bk(TargetFrameworkMoniker-Office.Version%3Dv16)を使用するとすっきりします。
|
|
32
32
|
|
|
33
33
|
```VBA
|
|
34
34
|
|
1
追記
test
CHANGED
|
@@ -27,3 +27,41 @@
|
|
|
27
27
|
End If
|
|
28
28
|
|
|
29
29
|
```
|
|
30
|
+
|
|
31
|
+
分岐が多いなら、[Select Case ステートメント](https://docs.microsoft.com/ja-jp/office/vba/language/reference/user-interface-help/select-case-statement?f1url=https%3A%2F%2Fmsdn.microsoft.com%2Fquery%2Fdev11.query%3FappId%3DDev11IDEF1%26l%3Dja-JP%26k%3Dk(vblr6.chm1008810)%3Bk(TargetFrameworkMoniker-Office.Version%3Dv16)%26rd%3Dtrue)を使用するとすっきりします。
|
|
32
|
+
|
|
33
|
+
```VBA
|
|
34
|
+
|
|
35
|
+
If Res = Me.txtPass Then
|
|
36
|
+
|
|
37
|
+
Dim wフォーム名
|
|
38
|
+
|
|
39
|
+
Select Case Me.txtID
|
|
40
|
+
|
|
41
|
+
case "AAA"
|
|
42
|
+
|
|
43
|
+
wフォーム名 = "A社フォーム"
|
|
44
|
+
|
|
45
|
+
case "BBB"
|
|
46
|
+
|
|
47
|
+
wフォーム名 = "B社フォーム"
|
|
48
|
+
|
|
49
|
+
case "CCC"
|
|
50
|
+
|
|
51
|
+
wフォーム名 = "C社フォーム"
|
|
52
|
+
|
|
53
|
+
End Select
|
|
54
|
+
|
|
55
|
+
DoCmd.OpenForm wフォーム名
|
|
56
|
+
|
|
57
|
+
DoCmd.Close acForm, "ログイン画面"
|
|
58
|
+
|
|
59
|
+
Else
|
|
60
|
+
|
|
61
|
+
MsgBox "パスワードが異なります。", vbOKOnly + vbCritical
|
|
62
|
+
|
|
63
|
+
Me.txtPass.SetFocus
|
|
64
|
+
|
|
65
|
+
End If
|
|
66
|
+
|
|
67
|
+
```
|