В ветке, ссылку на которую дал Нуф-Нуф, Lescha_A запостил функцию Autocompact().
Сам пользуюсь именно ею [где взял не помню:-(].
Имхо, до сих пор это идеальное решение для неразделенной бд. Это фактически вызов встроенного метода Compact and Repair Database из меню Tools.
>EDUDK01 при условии что сжимаемая база закрыта"
>Владимир Саныч Должно быть две базы: в одной находимся, другую сжимаем.
Нет. БД не должна быть обязательно закрыта при использовании вышеуказанной функции.
1. Т.е. реально повесить эту функция на кнопку "Выход" (скажем, в главной кнопочной форме) или на закрытие главной кнопочной формы и т.д.
2. Сжатие может не произойти, если в момент вызова функции будут открыты те или иные объекты текущей бд (таблицы, рекордсеты, связанные формы и т.п.).
3. Т.к. скорее всего это будет делаться на выходе, то в конце просто добавить Application.Quit.
4. Если п.3 не используется и возникает ситуация в п.2, то вы получите безымянную менюшку с безымянной кнопкой на панели инструментов.

Обработку вышеописанных ситуаций и график обслуживания добавляем по вкусу.

Не проверял, но если неразделенная база - многопользовательская, наверное, придется добавить проверку подключения других пользователей, хотя, по-моему, даже при отстутствии монопольного доступа вызов этой функции ошибки не сгенерирует.