質問編集履歴
2
追記
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -75,3 +75,21 @@
|
|
|
75
75
|
```
|
|
76
76
|
|
|
77
77
|
（追記）ご回答ありがとうございます。コードは、メインレポートの詳細セクションのフォーマット時に記述しています。VBAで取得して、メインレポートの商品ごとの縦罫線の長さの計算（各商品の販売日数に応じて変わる）に利用したいと思っています。
|
|
78
|
+
|
|
79
|
+
|
|
80
|
+
|
|
81
|
+
（追記）
|
|
82
|
+
|
|
83
|
+
ご回答ありがとうございます。
|
|
84
|
+
|
|
85
|
+
エラートラップのご説明参考になります！
|
|
86
|
+
|
|
87
|
+
Errオブジェクトというものを利用すればよいのですね！
|
|
88
|
+
|
|
89
|
+
|
|
90
|
+
|
|
91
|
+
＞あるいは、サブレポートの高さに合わせたいなら、Me.[サブレポート].Height で取得できます(印刷時イベントでないとダメだったかも)。
|
|
92
|
+
|
|
93
|
+
|
|
94
|
+
|
|
95
|
+
仰る通り、フォーマット時イベントでは拡大が反映されずデザインビューで配置した時のままの大きさが返されました。印刷時イベントでは拡大が反映され数値が変化しました。VBAでの罫線の描画処理も印刷時イベントでするように変更しました。[サブレポート]![販売日数]の取得からの一連の処理が減るので助かります。
|
1
追記
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -1,4 +1,4 @@
|
|
|
1
|
-
レポート上に各商品（商品A～商品C）の販売日数を表示するためのテキストボックスがあります。各テキストボックスにはコントロールソースとして
|
|
1
|
+
レポート上に各商品（商品A～商品C）の販売日数を表示するためのテキストボックスがあります。各テキストボックスにはコントロールソースとして次のように設定しています。サブレポートのテキストボックス「販売日数」を設定し、販売実績のない商品Cの場合のエラー処理も加える。
|
|
2
2
|
|
|
3
3
|
=IIf(IsError([サブレポート]![販売日数]),0,[サブレポート]![販売日数])
|
|
4
4
|
|
|
@@ -12,13 +12,13 @@
|
|
|
12
12
|
|
|
13
13
|
|商品A|1/5|3|
|
|
14
14
|
|
|
15
|
-
|
|
|
15
|
+
||1/7|
|
|
16
16
|
|
|
17
|
-
|
|
|
17
|
+
||1/9|
|
|
18
18
|
|
|
19
19
|
|商品B|1/5|2|
|
|
20
20
|
|
|
21
|
-
|
|
|
21
|
+
||1/6|
|
|
22
22
|
|
|
23
23
|
|商品C||0|
|
|
24
24
|
|
|
@@ -50,6 +50,14 @@
|
|
|
50
50
|
|
|
51
51
|
```VBA
|
|
52
52
|
|
|
53
|
+
Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
|
|
54
|
+
|
|
55
|
+
|
|
56
|
+
|
|
57
|
+
（罫線を引く処理）
|
|
58
|
+
|
|
59
|
+
|
|
60
|
+
|
|
53
61
|
If IsError([サブレポート]![販売日数]) Or Isnull([サブレポート]![販売日数]) Or IsEmpty([サブレポート]![販売日数]) Then
|
|
54
62
|
|
|
55
63
|
Debug.Print 0
|
|
@@ -60,4 +68,10 @@
|
|
|
60
68
|
|
|
61
69
|
End If
|
|
62
70
|
|
|
71
|
+
|
|
72
|
+
|
|
73
|
+
End Sub
|
|
74
|
+
|
|
63
75
|
```
|
|
76
|
+
|
|
77
|
+
（追記）ご回答ありがとうございます。コードは、メインレポートの詳細セクションのフォーマット時に記述しています。VBAで取得して、メインレポートの商品ごとの縦罫線の長さの計算（各商品の販売日数に応じて変わる）に利用したいと思っています。
|