Самое простое (об этом можно только мечтать) это крушение OCX (включая стандартные библиотеки), которые используе ACCESS. В этом случае до компиляции юзеровских модулей дело вообще может не дойти со всеми вытекающими. Прверить довольно просто -пишешь фуккцию, возвращающую слово "Ok" и приверяешь ее в запросе. Потом точно так же проверяешь обращение к строковым математическим и т.п. библиотечным функциям.

Второе - хуже. Крушение библиотеки с аксесовскими компонентами или механизма обмена данными между этими компонентами в самой оболочке.
В этом случае нужно фактически полностью переконструировать (НЕ КОПИРОВАТЬ !!!) все формы и отчеты в новой "ЧИСТОЙ" mdb на ЧИСТОЙ машине с заново инсталлированным офисом 97.

"Чистые" нужны аот почему. Аксес иногда устанавливает в менюхах какие-то параметры (скрывает панели и т.п.) которые ничем не перебьешь (только если точно знаешь что где установилось). Причем эти фишки действуют на все оболочки и переустановка Аксес не помогает. Более того, запуск оболоччи с такими фишками на другой машине, рушит и ее тоже. Поэтому, либо чистая машина, либо бругая версия Аксеса (2000, например)

Для этого нужно написать две программульки. Одна сканирует каждую форму и каждый контрол в форме и записывает в таблицу все параметры и их значения. Вторая берет эту таблицу создает новую форму, открывает ее в режиме дизайн и генерирует, контролы и устанавливает в них параметры оригинала. Модули выгружаются в текстовый файл и затем копируются в форму. Если в окне свойства события не установились (хотя модуль с реакцией на событие есть) делаеешь это ручками.
Проверь на твоей сбоящей паре главная-встроенная форма.

Программку на считывание параметров можно запускать удаленно из другой базы. Она имеет примерно следующий вид

Private Sub showparam(frm As Form)
Dim i As Integer, ctl As Control, LBL As Label, Cb As CommandButton, lb As ListBox 'и так далее для всех ctl.ControlType
For Each ctl In Me.Controls
If ctl.ControlType = acCommandButton Then
Set Cb = ctl
For i = 0 To Cb.Properties.Count - 1
Debug.Print frm.name,ctl.name, Cb.Properties(i).Name, Cb.Properties(i).Value
Next i
elseif ctl.ControlType = acLabel Then
Set LBL = ctl
For i = 0 To Cb.Properties.Count - 1
Debug.Print frm.name,ctl.name, Cb.Properties(i).Name, Cb.Properties(i).Value
Next i

End If
Next ctl
End Sub


Private Sub scanForms()
Dim frm As Form, i As Integer, st1 As String, rst As DAO.Recordset
Dim ctl As Control, LBL As Label,Cb as CommandButton,lb as ListBox ' и так далее для всех ctl.ControlType
CurrentDb.Execute "delete * from _Tfrm_Recordsource"
Set rst = CurrentDb.OpenRecordset("select * from _Tfrm_Recordsource")
With CodeProject
For i = 0 To .AllForms.Count - 1
If .AllForms(i).Name <> Me.Name Then 'это форма, выполняющая сканирование
On Error GoTo L1
DoCmd.OpenForm .AllForms(i).Name, acDesign
Set frm = Forms(.AllForms(i).Name)
call showparam(frm)
L1:
On Error Resume Next
DoCmd.Close acForm, .AllForms(i).Name
End If
Next i
End With
End Sub

При генерации формы ставишь on error , чтобы парамеры контрола "для чтения" не мешали формированию контролов

Эта схема позволяет перетаскивать оболочки между версиями Access.

Пардон, в вызываемой процедуре конечно не
For Each ctl In Me.Controls
а
For Each ctl In frm.Controls

и во втором цикле не cb., а LBL.