回答編集履歴
1
コード追記
answer
CHANGED
|
@@ -6,7 +6,7 @@
|
|
|
6
6
|
|
|
7
7
|
```vba
|
|
8
8
|
Private Sub Form_Load()
|
|
9
|
-
|
|
9
|
+
'フォームを10行分の高さに設定
|
|
10
10
|
Me.InsideHeight = Me.フォームフッター.Height + Me.詳細.Height * 10
|
|
11
11
|
|
|
12
12
|
Dim strSQL As String
|