質問編集履歴
1
更新ボタンクリック時処理を追加修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -11,16 +11,26 @@
|
|
|
11
11
|
|
|
12
12
|
### 発生している問題・エラーメッセージ
|
|
13
13
|
|
|
14
|
-
```
|
|
14
|
+
```VBA
|
|
15
15
|
DoCmd.OpenReport ("txt_repoto_mei"), acViewDesign, , , acHidden
|
|
16
16
|
```
|
|
17
17
|
実行時エラー'2103':
|
|
18
18
|
プロパティシートまたはマクロで指定したレポート名'txt_repoto_mei'が正しくないか、
|
|
19
19
|
または存在しないレポートを参照しています。
|
|
20
20
|
|
|
21
|
+
**2019/8/7追加修正**
|
|
22
|
+
```VBA
|
|
23
|
+
OtrerDB.DoCmd.OpenReport sub_yohaku_henko.txt_repoto_mei.Value, acViewDesign, , , acHidden
|
|
24
|
+
```
|
|
25
|
+
コンパイルエラー:
|
|
26
|
+
メソッドまたはデータメンバーが見つかりません。
|
|
27
|
+
(サブフォームのtxt_repotoにあるレポート名を取得できていない？
|
|
28
|
+
他ACCESSでtxt_report_meiという項目がないから？
|
|
29
|
+
他ACCESSのレポート名はサブフォームのレポート名と同じであることを確認。)
|
|
30
|
+
|
|
21
31
|
### 該当のソースコード
|
|
22
32
|
|
|
23
|
-
```
|
|
33
|
+
```VBA
|
|
24
34
|
'//////////////////////////////////////////////////////////
|
|
25
35
|
'
|
|
26
36
|
' 参照ボタンクリック時処理
|
|
@@ -72,6 +82,49 @@
|
|
|
72
82
|
End Sub
|
|
73
83
|
```
|
|
74
84
|
|
|
85
|
+
**2019/8/7追加修正**
|
|
86
|
+
```VBA
|
|
87
|
+
'//////////////////////////////////////////////////////////
|
|
88
|
+
'
|
|
89
|
+
' 更新ボタンクリック時処理
|
|
90
|
+
'
|
|
91
|
+
'//////////////////////////////////////////////////////////
|
|
92
|
+
Private Sub cmd_k_Click()
|
|
93
|
+
On Error GoTo Err_Proc
|
|
94
|
+
|
|
95
|
+
Dim strDBPath As String
|
|
96
|
+
Dim OtrerDB As Object
|
|
97
|
+
'参照パスを格納
|
|
98
|
+
strDBPath = txt_s
|
|
99
|
+
|
|
100
|
+
Set acApp = New Access.Application
|
|
101
|
+
acApp.Visible = True
|
|
102
|
+
acApp.OpenCurrentDatabase strDBPath
|
|
103
|
+
OtrerDB = acApp.OpenCurrentDatabase(strDBPath)
|
|
104
|
+
|
|
105
|
+
OtrerDB.DoCmd.OpenReport sub_yohaku_henko.txt_repoto_mei.Value, acViewDesign, , , acHidden
|
|
106
|
+
|
|
107
|
+
Dim prtFirst As Printer
|
|
108
|
+
|
|
109
|
+
Set prtFirst = Reports(txt_repoto_mei).Printers(0)
|
|
110
|
+
|
|
111
|
+
With prtFirst
|
|
112
|
+
.DefaultSize = False
|
|
113
|
+
.LeftMargin = CDec("WORKTBL_YOHAKU_HENKO.hidari_yohaku")
|
|
114
|
+
.RightMargin = CDec("WORKTBL_WORKTBL_YOHAKU_HENKO.migi_yohaku")
|
|
115
|
+
End With
|
|
116
|
+
|
|
117
|
+
DoCmd.Close acReport, ("txt_repoto_mei"), acSaveYes
|
|
118
|
+
|
|
119
|
+
Exit_Proc:
|
|
120
|
+
Exit Sub
|
|
121
|
+
|
|
122
|
+
Err_Proc:
|
|
123
|
+
MsgBox Err.Description
|
|
124
|
+
Resume Exit_Proc
|
|
125
|
+
End Sub
|
|
126
|
+
```
|
|
127
|
+
|
|
75
128
|
### 試したこと
|
|
76
129
|
|
|
77
130
|
モジュールで他ACCESSを参照できれば進展しそうだが、モジュールの呼び出しがうまくいかない。
|
|
@@ -110,7 +163,6 @@
|
|
|
110
163
|
|
|
111
164
|
```
|
|
112
165
|
|
|
113
|
-
|
|
114
166
|
### 補足情報（FW/ツールのバージョンなど）
|
|
115
167
|
|
|
116
168
|
Windows10、ACCESS2016
|