質問編集履歴
3
画像の追記
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -53,7 +53,7 @@
|
|
|
53
53
|
Private Sub Form_Open(Cancel As Integer)
|
|
54
54
|
Dim wk
|
|
55
55
|
|
|
56
|
-
With
|
|
56
|
+
With 見積加工
|
|
57
57
|
|
|
58
58
|
'サブフォームのレコード件数取得
|
|
59
59
|
wk = .Form.RecordsetClone.RecordCount
|
|
@@ -68,6 +68,7 @@
|
|
|
68
68
|
|
|
69
69
|
End Sub
|
|
70
70
|
|
|
71
|
+
|
|
71
72
|
### 補足
|
|
72
73
|
Microsoft Access 2021(.accdb)
|
|
73
74
|
|
2
サブフォームを入力を追記
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -53,7 +53,7 @@
|
|
|
53
53
|
Private Sub Form_Open(Cancel As Integer)
|
|
54
54
|
Dim wk
|
|
55
55
|
|
|
56
|
-
With サブフォーム名
|
|
56
|
+
With サブフォーム名(サブフォームを入力)
|
|
57
57
|
|
|
58
58
|
'サブフォームのレコード件数取得
|
|
59
59
|
wk = .Form.RecordsetClone.RecordCount
|
1
エラー文を見やすくしました
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -42,8 +42,10 @@
|
|
|
42
42
|
|
|
43
43
|
似たような質問がありそれを参考に作成したのですが以下のエラーが発生します。
|
|
44
44
|
|
|
45
|
+
-----------------------------------------------
|
|
45
46
|
実行エラー '424';
|
|
46
47
|
オブジェクトが必要です。
|
|
48
|
+
-----------------------------------------------
|
|
47
49
|
|
|
48
50
|
|
|
49
51
|
作成内容
|