質問編集履歴
1
更新ボタンクリック時処理を追加修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -24,7 +24,7 @@
|
|
|
24
24
|
|
|
25
25
|
|
|
26
26
|
|
|
27
|
-
```
|
|
27
|
+
```VBA
|
|
28
28
|
|
|
29
29
|
DoCmd.OpenReport ("txt_repoto_mei"), acViewDesign, , , acHidden
|
|
30
30
|
|
|
@@ -38,11 +38,31 @@
|
|
|
38
38
|
|
|
39
39
|
|
|
40
40
|
|
|
41
|
+
**2019/8/7追加修正**
|
|
42
|
+
|
|
43
|
+
```VBA
|
|
44
|
+
|
|
45
|
+
OtrerDB.DoCmd.OpenReport sub_yohaku_henko.txt_repoto_mei.Value, acViewDesign, , , acHidden
|
|
46
|
+
|
|
47
|
+
```
|
|
48
|
+
|
|
49
|
+
コンパイルエラー:
|
|
50
|
+
|
|
51
|
+
メソッドまたはデータメンバーが見つかりません。
|
|
52
|
+
|
|
53
|
+
(サブフォームのtxt_repotoにあるレポート名を取得できていない？
|
|
54
|
+
|
|
55
|
+
他ACCESSでtxt_report_meiという項目がないから？
|
|
56
|
+
|
|
57
|
+
他ACCESSのレポート名はサブフォームのレポート名と同じであることを確認。)
|
|
58
|
+
|
|
59
|
+
|
|
60
|
+
|
|
41
61
|
### 該当のソースコード
|
|
42
62
|
|
|
43
63
|
|
|
44
64
|
|
|
45
|
-
```
|
|
65
|
+
```VBA
|
|
46
66
|
|
|
47
67
|
'//////////////////////////////////////////////////////////
|
|
48
68
|
|
|
@@ -146,6 +166,92 @@
|
|
|
146
166
|
|
|
147
167
|
|
|
148
168
|
|
|
169
|
+
**2019/8/7追加修正**
|
|
170
|
+
|
|
171
|
+
```VBA
|
|
172
|
+
|
|
173
|
+
'//////////////////////////////////////////////////////////
|
|
174
|
+
|
|
175
|
+
'
|
|
176
|
+
|
|
177
|
+
' 更新ボタンクリック時処理
|
|
178
|
+
|
|
179
|
+
'
|
|
180
|
+
|
|
181
|
+
'//////////////////////////////////////////////////////////
|
|
182
|
+
|
|
183
|
+
Private Sub cmd_k_Click()
|
|
184
|
+
|
|
185
|
+
On Error GoTo Err_Proc
|
|
186
|
+
|
|
187
|
+
|
|
188
|
+
|
|
189
|
+
Dim strDBPath As String
|
|
190
|
+
|
|
191
|
+
Dim OtrerDB As Object
|
|
192
|
+
|
|
193
|
+
'参照パスを格納
|
|
194
|
+
|
|
195
|
+
strDBPath = txt_s
|
|
196
|
+
|
|
197
|
+
|
|
198
|
+
|
|
199
|
+
Set acApp = New Access.Application
|
|
200
|
+
|
|
201
|
+
acApp.Visible = True
|
|
202
|
+
|
|
203
|
+
acApp.OpenCurrentDatabase strDBPath
|
|
204
|
+
|
|
205
|
+
OtrerDB = acApp.OpenCurrentDatabase(strDBPath)
|
|
206
|
+
|
|
207
|
+
|
|
208
|
+
|
|
209
|
+
OtrerDB.DoCmd.OpenReport sub_yohaku_henko.txt_repoto_mei.Value, acViewDesign, , , acHidden
|
|
210
|
+
|
|
211
|
+
|
|
212
|
+
|
|
213
|
+
Dim prtFirst As Printer
|
|
214
|
+
|
|
215
|
+
|
|
216
|
+
|
|
217
|
+
Set prtFirst = Reports(txt_repoto_mei).Printers(0)
|
|
218
|
+
|
|
219
|
+
|
|
220
|
+
|
|
221
|
+
With prtFirst
|
|
222
|
+
|
|
223
|
+
.DefaultSize = False
|
|
224
|
+
|
|
225
|
+
.LeftMargin = CDec("WORKTBL_YOHAKU_HENKO.hidari_yohaku")
|
|
226
|
+
|
|
227
|
+
.RightMargin = CDec("WORKTBL_WORKTBL_YOHAKU_HENKO.migi_yohaku")
|
|
228
|
+
|
|
229
|
+
End With
|
|
230
|
+
|
|
231
|
+
|
|
232
|
+
|
|
233
|
+
DoCmd.Close acReport, ("txt_repoto_mei"), acSaveYes
|
|
234
|
+
|
|
235
|
+
|
|
236
|
+
|
|
237
|
+
Exit_Proc:
|
|
238
|
+
|
|
239
|
+
Exit Sub
|
|
240
|
+
|
|
241
|
+
|
|
242
|
+
|
|
243
|
+
Err_Proc:
|
|
244
|
+
|
|
245
|
+
MsgBox Err.Description
|
|
246
|
+
|
|
247
|
+
Resume Exit_Proc
|
|
248
|
+
|
|
249
|
+
End Sub
|
|
250
|
+
|
|
251
|
+
```
|
|
252
|
+
|
|
253
|
+
|
|
254
|
+
|
|
149
255
|
### 試したこと
|
|
150
256
|
|
|
151
257
|
|
|
@@ -222,8 +328,6 @@
|
|
|
222
328
|
|
|
223
329
|
|
|
224
330
|
|
|
225
|
-
|
|
226
|
-
|
|
227
331
|
### 補足情報（FW/ツールのバージョンなど）
|
|
228
332
|
|
|
229
333
|
|