サブフォームの高さを調節したいときは 親フォーム側でこれ書けばいいみたい。
Private Sub Form_Current()
Application.Echo False
'サブフォームの高さを調節
With Me.サブフォーム名.Form
Dim q As Integer: q = .Recordset.RecordCount
Me.サブフォーム名.Height = (q + 1) * .Section(acDetail).Height + .Section(acHeader).Height + .Section(acFooter).Height + Me.サブフォーム名.Top
End With
Application.Echo True
End Sub
オートナンバーだと間違えて要素消しちゃった場合に困る って場合はこちらを参考にする
http://hamachan.info/access/o-ton.html