質問編集履歴
1
自己解決しました
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -1,29 +1,19 @@
|
|
|
1
|
-
**ボールドテキスト**PCのディスプレイのサイズ（150,125,100）によって、フォームの端が切れてしまうので、
|
|
2
|
-
|
|
3
|
-
そのPCのディスプレイサイズを取得して、フォームを縮小するプログラムを作成しています。
|
|
4
|
-
|
|
5
|
-
|
|
1
|
+
とりあえず解決しました。
|
|
6
2
|
|
|
7
3
|
|
|
8
4
|
|
|
9
5
|
Dim frm0 As Form
|
|
10
6
|
|
|
11
|
-
Dim frm1 As Form
|
|
7
|
+
Dim frm1 As Form ➧➧➧ as subForm
|
|
12
8
|
|
|
13
9
|
|
|
14
10
|
|
|
15
11
|
Set frm0 = Forms!Inpt入力
|
|
16
12
|
|
|
17
|
-
Call FormSizeChange(frm0, 0.66)
|
|
13
|
+
Call FormSizeChange(frm0, 0.66)
|
|
18
14
|
|
|
19
15
|
|
|
20
16
|
|
|
21
|
-
Set frm1 = frm0.Form.Inpt入力_明細
|
|
17
|
+
Set frm1 = frm0.Form.Inpt入力_明細
|
|
22
18
|
|
|
23
|
-
Call FormSizeChange(frm1, 0.66)
|
|
19
|
+
Call FormSizeChange(frm1, 0.66) ➧➧➧受取もsubformに変更
|
|
24
|
-
|
|
25
|
-
|
|
26
|
-
|
|
27
|
-
実行エラー13
|
|
28
|
-
|
|
29
|
-
型が一致しません。すみませんが、教えていただけますでしょうか。
|