Страница:
Пример кода: Dim appAccess As Access.Application Set appAccess = New Access.Application Ктонить может сказать в чём проблема?
Страница:
Вопрос: Импорт отчёта 1.mdb->2.mdb
Добавлено: 15.06.04 08:23
Автор вопроса:
Snake | ICQ: 302130238
appAccess.OpenCurrentDatabase "2.mdb"
appAccess.DoCmd.TransferDatabase acImport, "Microsoft Access", "1.mdb", acTable, "TabForReport", "TabForReport"
'Работает без проблем
appAccess.DoCmd.TransferDatabase acImport, "Microsoft Access", "1.mdb", acReport, "Report", "Report"
'Выдаёт ошибку ????!
appAccess.DoCmd.Close
Set appAccess = Nothing
Ответы
Всего ответов: 0