Сегодня сижу у клиентов в роли консультанта. Если удастся решить проблему сегодня, то будет хорошо и спасибо. Если нет, то соответственно. Проблема состоит из 2 частей:

1. Программа на VB открывает базу Аксесса как Access.Application (пробовали два способа: GetObject и New Access.Application + OpenCurrentDatabase). Дальше открывается программно в конструкторе отчет и многократно вызывается CreateReportControl. В какой-то момент возникает ошибка: 29053 Microsoft Access can't create any more controls on this form or report. :^( Интересно, что раньше, когда все работало в чистом Аксессе без VB и без Access.Application, этой ошибки не было.

2. В порядке решения попробовали каждый раз копировать отчет из другого при помощи DoCmd.CopyObject. Но CopyObject не работает (даже из самого Аксесса не запускается!), пока Access.Application в VB ссылается на этот mdb. :^( Причем никакого параметра "открыть эксклюзивно" у нас нет.

Примечание. На отчете есть контрол типа DbcOcx (постоянный, а не создаваемый через CreateReportControl), который печатает штрих-код. В событии отчета Page есть обращение к этому контролу, которое заносит ему в Caption нужный код (иначе он не понимает). Если убрать это обращение, то проблема исчезает.

Надеюсь, что расписал понятно...

P.S. Access XP.

Пока ответов нет, сообщаю последние новости. Оказалось, что, когда он не дает создавать контролы, он тем не менее дает их стирать. И когда один стираешь, то он опять дает создавать. Короче, маразм. И тогда мы сделали следующее решение: создали "лишний" контрол, и если попадаем в On Error, то стираем его, создаем заново и делаем Resume на ту строку, которая не удалась. Пока работает, но неизвестно, надолго ли хватит...

Не-а. Не помогает. :^(((

Оно кричит на 80. И не кричит, если перейти на чистый Аксесс или убрать OnPage.

Возникла очередная мысль (и мы ее думаем): ошибка возникает, когда HasModule=True. Это пока гипотеза, но очень похожая на правду.