ник: fylhtqrf
К сож прямого способа я тоже не нашел тоже. Но поступил примерно так: все что требует секретов и защиты типа мде - я перенес в mde - а вот вызовы функций мдe и прочего поместил в mdb модуль -его правил на лету. - еще как Вариант тока он мною до конца не был изучен - (как-то некоторые вещи "своеобразно" работали ):
' вырезка из куска моего кода
Dim AppAccess as application
Set AppAccess = CreateObject("Access.Application")
If path = "" Then ' если нет пути то объект находится в текущей базе
Set AppAccess = Application
Else
AppAccess.OpenCurrentDatabase (path)
End If
Select Case ObjectType ' типы объектов (видно из методов запуска)
Case 1
AppAccess.DoCmd.OpenForm ObjectName, , , , , OpenMode, Argument
Case 2
AppAccess.DoCmd.OpenReport ObjectName, acViewPreview, , , OpenMode, Argument
DoCmd.RunCommand acCmdZoom100
Case 3
Temp = ObjectName & "('" & Argument & "')" ' Это если необходимо выполнить функцию ' или процедуру
AppAccess.Eval (Temp)
Case 4
AppAccess.DoCmd.OpenQuery ObjectName
Case 5
AppAccess.DoCmd.RunMacro ObjectName
End Select