質問編集履歴
4
変更後のコードの一部を修正しました
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -46,8 +46,7 @@
|
|
|
46
46
|
|
|
47
47
|
Frms.Add New Form_詳細フォーム, Me.ID
|
|
48
48
|
With Frms(Me.ID)
|
|
49
|
-
.Tag = Me.ID
|
|
49
|
+
.Tag = Me.ID
|
|
50
|
-
.Caption = "データが格納されたテーブル" & Me.ID
|
|
51
50
|
.Filter = "ID = " & Me.ID
|
|
52
51
|
.FilterOn = True
|
|
53
52
|
.Move Frms.Count * 1000 + 1500, Frms.Count * 1000
|
3
変更後のコードを追加しました
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -32,8 +32,6 @@
|
|
|
32
32
|
|
|
33
33
|
```
|
|
34
34
|
|
|
35
|
-
```
|
|
36
|
-
|
|
37
35
|
変更後のコード
|
|
38
36
|
```
|
|
39
37
|
Dim Frms As New Collection
|
2
変更後のコードを追加しました
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -30,4 +30,31 @@
|
|
|
30
30
|
|
|
31
31
|
End Sub
|
|
32
32
|
|
|
33
|
+
```
|
|
34
|
+
|
|
35
|
+
```
|
|
36
|
+
|
|
37
|
+
変更後のコード
|
|
38
|
+
```
|
|
39
|
+
Dim Frms As New Collection
|
|
40
|
+
|
|
41
|
+
Private Sub OpenForm_Click()
|
|
42
|
+
|
|
43
|
+
On Error Resume Next
|
|
44
|
+
If IsNull(Me.ID) Then Exit Sub
|
|
45
|
+
Frms(Me.ID).SetFocus
|
|
46
|
+
If Err = 0 Then Exit Sub
|
|
47
|
+
On Error GoTo 0
|
|
48
|
+
|
|
49
|
+
Frms.Add New Form_詳細フォーム, Me.ID
|
|
50
|
+
With Frms(Me.ID)
|
|
51
|
+
.Tag = Me.ID
|
|
52
|
+
.Caption = "データが格納されたテーブル" & Me.ID
|
|
53
|
+
.Filter = "ID = " & Me.ID
|
|
54
|
+
.FilterOn = True
|
|
55
|
+
.Move Frms.Count * 1000 + 1500, Frms.Count * 1000
|
|
56
|
+
.Visible = True
|
|
57
|
+
End With
|
|
58
|
+
|
|
59
|
+
End Sub
|
|
33
60
|
```
|
1
コードを一部間違えていたので変更しました
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -26,7 +26,7 @@
|
|
|
26
26
|
```
|
|
27
27
|
Private Sub OpenForm_Click()
|
|
28
28
|
|
|
29
|
-
DoCmd.OpenForm "
|
|
29
|
+
DoCmd.OpenForm "詳細フォーム", acNormal, "", "[Forms].[帳票フォーム].[ID] = テーブル.ID", acReadOnly, acNormal
|
|
30
30
|
|
|
31
31
|
End Sub
|
|
32
32
|
|