回答編集履歴
1
コード修正
test
CHANGED
|
@@ -28,14 +28,13 @@
|
|
|
28
28
|
Private Sub Form_Current()
|
|
29
29
|
Dim wk As Long
|
|
30
30
|
|
|
31
|
-
With M
|
|
31
|
+
With Me.サブフォームコントロール名
|
|
32
32
|
|
|
33
33
|
'サブフォームのレコード件数取得
|
|
34
34
|
wk = .Form.RecordsetClone.RecordCount
|
|
35
35
|
|
|
36
36
|
'↓リミッター
|
|
37
37
|
If wk > 10 Then wk = 10
|
|
38
|
-
Debug.Print wk; .Form.Section("詳細").Height
|
|
39
38
|
|
|
40
39
|
'サブフォーム縦調整
|
|
41
40
|
.Height = (wk + 1) * .Form.Section("詳細").Height + .Form.Section("フォームヘッダー").Height _
|