То Victosha Я же сказала, что код мой от Вашего практически не отличается. Я проще скажу: если у меня проблема, и я хочу помощи, то я описываю ее так, как есть (это как минимум логично), а не "соврамши", как Вы, сударь ;), изволили выразиться. То есть если я говорю, что работает на 2000, на 2003 нет, то значит так оно и есть (а смысл мне вообще вопрос задавать тогда, если так не есть). Понимаете, обидна не суть Вашего ответа (суть как-раз понятна и относится к делу), а его форма. Незаслуженно обидеть человека очень легко.
Кстати, ссылка на DAO - является (по крайней мере в версиях Офиса с 2000 и дальше) - обязательной, посему она присутствует всегда даже в пустой новой БД (собсно подтверждаю слова
Serge Gavrilov ).
Я , возможно не очень понятно написала: обрашение к currentDB идет не из той БД, к которой он относится, а из той, из которой создается эта БД, т.е. нечто вроде:
1.
2.
3.
4.
5.
set app = CreateObject("Access.Application")
app.OpenCurrentDatabase ("...")
set db = app.currentdb ' вот это не работает
app.currentdb.close ' и так тоже не работает
'т.е. мне нужно из моей текущей базы сделать какое-то действие в другой, открытой в app
Хотя, если обращаться к currentdb текущей базы, тоесть той, из которой другая открывается - то все ок.
!!!!!!!
В любом случае прав был тот человек (
Serge Gavrilov ), который посоветовал regsvr32.exe DAO360.dll
ОТДЕЛЬНОЕ ему СПАСИБО . Все уже работает.
