Public Function AutoCompact() With CommandBars.Add(, 1, , True) .Controls.Add 1, 2071, , , True .Visible = True .Controls(1).SetFocus DoEvents SendKeys "~" End With End Function
Этот вариант предлагается в FAQ конференции fido7.ru.msaccess,я только убрал символьные представления констант, чтобы не включать ссылку на Microsoft Office Object Library.