Public Function WindowSize(frmn As Form, mng As Integer)
'функция предназеачена для установки размера ленточной формы
'указанной в переменной frmn в зависимости от количества записей - mng
On Error Resume Next
      Dim intWindowHeight As Integer, intWindowWidth As Integer
      Dim intTotalFormHeight As Integer, intTotalFormWidth As Integer
      Dim intHeightHeader As Integer, intHeightDetail As Integer, intHeightFooter As Integer
'определяются размеры формы
      intHeightHeader = frmn.Section(acHeader).Height 'размер заголовка
      intHeightDetail = frmn.Section(acDetail).Height '       области данных
      intHeightFooter = frmn.Section(acFooter).Height '       примечаний
      intTotalFormHeight = intHeightHeader + intHeightDetail + intHeightFooter
      intTotalFormWidth = frmn.Width        'ширина формы
      intWindowHeight = frmn.InsideHeight   'внешняя высота окна
      intWindowWidth = frmn.InsideWidth     '        ширина
            If mng <=  15  Then ' 15 можно заменять на более подходящее для высоты записи и экрана число
            frmn.InsideHeight = intHeightDetail * (mng +  2 ) 'установка внешнего размера
            frmn.ScrollBars =  0  'полоса прокрутки отсутствует
            Else
            frmn.InsideHeight = intHeightDetail *  15  + intHeightDetail 'установка внешнего размера
            frmn.ScrollBars =  2  'полоса прокрутки по вертикали
            End If
            frmn.InsideWidth = intTotalFormWidth ' а за одно и ширана окна по ширине формы
End Function

Private Sub Form_Load()

Call WindowSize

End Sub

Call WindowSize(Me, кол-во_записей)