ник: Bellerofont
Какой у вас Access? Если 2000 и больше, то забудьте о коллекции Modules.
Есть Application.VBE и его надо использовать:
sCheck = application.VBE.ActiveVBProject.VBComponents(sModuleName).Name
|
а лучше
sCheck = application.VBE.VBProjects("ИмяВашегоПроекта").VBComponents(sModuleName).Name
|