質問編集履歴
2
コード
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -18,7 +18,7 @@
|
|
|
18
18
|
|
|
19
19
|
### 発生している問題・エラーメッセージ
|
|
20
20
|
|
|
21
|
-
|
|
21
|
+
(4aeaab84a533b63559ba0cf6095ff0a8.png)
|
|
22
22
|
|
|
23
23
|
ユーザー定義型は定義されていません
|
|
24
24
|
|
|
@@ -124,10 +124,6 @@
|
|
|
124
124
|
|
|
125
125
|
```ここに言語を入力
|
|
126
126
|
|
|
127
|
-
Private Sub 追加ボタン_Click()
|
|
128
|
-
|
|
129
|
-
|
|
130
|
-
|
|
131
127
|
Dim rs1 As DAO.Recordset
|
|
132
128
|
|
|
133
129
|
Dim rs2 As DAO.Recordset
|
|
@@ -146,13 +142,13 @@
|
|
|
146
142
|
|
|
147
143
|
rs2!ID = rs1!ID
|
|
148
144
|
|
|
149
|
-
CopyAttachmentField
|
|
145
|
+
CopyAttachmentField rs1!フィールド1.Value, rs2!フィールド1.Value
|
|
150
146
|
|
|
151
147
|
rs2.Update
|
|
152
148
|
|
|
153
149
|
rs1.MoveNext
|
|
154
150
|
|
|
155
|
-
Loo
|
|
151
|
+
Loop
|
|
156
152
|
|
|
157
153
|
|
|
158
154
|
|
|
@@ -162,8 +158,6 @@
|
|
|
162
158
|
|
|
163
159
|
|
|
164
160
|
|
|
165
|
-
End Sub
|
|
166
|
-
|
|
167
161
|
|
|
168
162
|
|
|
169
163
|
```
|
|
@@ -188,14 +182,6 @@
|
|
|
188
182
|
|
|
189
183
|
|
|
190
184
|
|
|
191
|
-
CopyAttachmentField(rs1!フィールド1.Value, rs2!フィールド1.Value)でコンパイルエラーが出て
|
|
192
|
-
|
|
193
|
-
しまい、CopyAttachmentField(rs1!フィールド1.Value ＝ rs2!フィールド1.Value)に変更しました。
|
|
194
|
-
|
|
195
|
-
※赤文字になってしまい、ヒントに=と出ていましたのでその通りにしました。
|
|
196
|
-
|
|
197
|
-
|
|
198
|
-
|
|
199
185
|
|
|
200
186
|
|
|
201
187
|
参照設定は
|
1
コード
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -30,7 +30,7 @@
|
|
|
30
30
|
|
|
31
31
|
標準モジュールに
|
|
32
32
|
|
|
33
|
-
|
|
33
|
+
```ここに言語を入力
|
|
34
34
|
|
|
35
35
|
Private Function CopyAttachmentField(ByVal rsFromTbl As DAO.Recordset2, ByVal rsToTbl As DAO.Recordset2) As Boolean
|
|
36
36
|
|
|
@@ -112,13 +112,17 @@
|
|
|
112
112
|
|
|
113
113
|
|
|
114
114
|
|
|
115
|
+
```
|
|
116
|
+
|
|
117
|
+
|
|
118
|
+
|
|
115
119
|
|
|
116
120
|
|
|
117
121
|
フォームの追加ボタンに
|
|
118
122
|
|
|
119
123
|
|
|
120
124
|
|
|
121
|
-
|
|
125
|
+
```ここに言語を入力
|
|
122
126
|
|
|
123
127
|
Private Sub 追加ボタン_Click()
|
|
124
128
|
|
|
@@ -162,6 +166,10 @@
|
|
|
162
166
|
|
|
163
167
|
|
|
164
168
|
|
|
169
|
+
```
|
|
170
|
+
|
|
171
|
+
|
|
172
|
+
|
|
165
173
|
|
|
166
174
|
|
|
167
175
|
|