質問編集履歴
4
変更後のコードの一部を修正しました
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -94,9 +94,7 @@
|
|
|
94
94
|
|
|
95
95
|
With Frms(Me.ID)
|
|
96
96
|
|
|
97
|
-
.Tag = Me.ID
|
|
97
|
+
.Tag = Me.ID
|
|
98
|
-
|
|
99
|
-
.Caption = "データが格納されたテーブル" & Me.ID
|
|
100
98
|
|
|
101
99
|
.Filter = "ID = " & Me.ID
|
|
102
100
|
|
3
変更後のコードを追加しました
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -66,10 +66,6 @@
|
|
|
66
66
|
|
|
67
67
|
|
|
68
68
|
|
|
69
|
-
```
|
|
70
|
-
|
|
71
|
-
|
|
72
|
-
|
|
73
69
|
変更後のコード
|
|
74
70
|
|
|
75
71
|
```
|
2
変更後のコードを追加しました
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -63,3 +63,57 @@
|
|
|
63
63
|
|
|
64
64
|
|
|
65
65
|
```
|
|
66
|
+
|
|
67
|
+
|
|
68
|
+
|
|
69
|
+
```
|
|
70
|
+
|
|
71
|
+
|
|
72
|
+
|
|
73
|
+
変更後のコード
|
|
74
|
+
|
|
75
|
+
```
|
|
76
|
+
|
|
77
|
+
Dim Frms As New Collection
|
|
78
|
+
|
|
79
|
+
|
|
80
|
+
|
|
81
|
+
Private Sub OpenForm_Click()
|
|
82
|
+
|
|
83
|
+
|
|
84
|
+
|
|
85
|
+
On Error Resume Next
|
|
86
|
+
|
|
87
|
+
If IsNull(Me.ID) Then Exit Sub
|
|
88
|
+
|
|
89
|
+
Frms(Me.ID).SetFocus
|
|
90
|
+
|
|
91
|
+
If Err = 0 Then Exit Sub
|
|
92
|
+
|
|
93
|
+
On Error GoTo 0
|
|
94
|
+
|
|
95
|
+
|
|
96
|
+
|
|
97
|
+
Frms.Add New Form_詳細フォーム, Me.ID
|
|
98
|
+
|
|
99
|
+
With Frms(Me.ID)
|
|
100
|
+
|
|
101
|
+
.Tag = Me.ID
|
|
102
|
+
|
|
103
|
+
.Caption = "データが格納されたテーブル" & Me.ID
|
|
104
|
+
|
|
105
|
+
.Filter = "ID = " & Me.ID
|
|
106
|
+
|
|
107
|
+
.FilterOn = True
|
|
108
|
+
|
|
109
|
+
.Move Frms.Count * 1000 + 1500, Frms.Count * 1000
|
|
110
|
+
|
|
111
|
+
.Visible = True
|
|
112
|
+
|
|
113
|
+
End With
|
|
114
|
+
|
|
115
|
+
|
|
116
|
+
|
|
117
|
+
End Sub
|
|
118
|
+
|
|
119
|
+
```
|
1
コードを一部間違えていたので変更しました
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -54,7 +54,7 @@
|
|
|
54
54
|
|
|
55
55
|
|
|
56
56
|
|
|
57
|
-
DoCmd.OpenForm "
|
|
57
|
+
DoCmd.OpenForm "詳細フォーム", acNormal, "", "[Forms].[帳票フォーム].[ID] = テーブル.ID", acReadOnly, acNormal
|
|
58
58
|
|
|
59
59
|
|
|
60
60
|
|