Добрый день.

После экспорта отчета (через DoCmd.OutputTo , "...", acFormatXLS, ...) и его закрытия невозможно переименовать таблицу-источник отчета.
Даже если закрыть все формы - получаю ошибку "Таблица не может быть заблокирована ядром".

На сколько я понимаю остается открытым соединение таблицы и отчета.
Как его закрыть?
Recordset.Close тут не сработает же ("Это свойство доступно только в файлах ADP").

Если экспортирую вручную через "Внешние данные -> Экспорт в Excel" никаких проблем нет.

А автоматический экспорт через Sub Export_Click() дает ошибку.

Озверинrpeu, для таких вопросов есть стандартна попытка после экспорта сделать DoEvents
А если не помжоет, смотреть в процессах - висит там эксель или нет(ибо висит?)

OpenForms = 0
В диспетчере пусто (если я конечно его закрою).

Ану попробую автозапуск отключить, может поможет.

Кривцов АнатолийrpeuПосле экспорта отчета (через DoCmd.OutputTo , "...", acFormatXLS, ...) и его закрытия невозможно переименовать таблицу-источник отчета
1. Для какой цели нужно "переименовать таблицу"?
2. Если после экспорта отчета в Ёксель вы получаете приемлемый вид на листе, значит отчет простейший (без заголовков и примечаний). Вопрос - экспорт именно отчета, а не запроса, например?

1. Таблица для определенного года. Выбранный год - "Таблица", остальные "Таблица <<год>>". Соответственно после выбора года их переименовывает.
2. Экспорт отчета, в котором есть группировка и ряд вычисляемых полей. Вид не до конца приемлемый. Вычисляемые поля экспортирует некорректно.

DoCmd.OutputTo acOutputReport, "Номинации", acFormatXLS, CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\Номинация на " & NominationsDate & ".xls", True, , , acExportQualityScreen

[quot sdku]rpeurpeu,
А с методом TransferSpreadsheet это проявляется?
А какой параметр в TableName вписать? У меня отчет с группировкой и вычисляемыми полями без сохранения всего в отдельную таблицу.

Если не получится докопаться до причины блокировки - сделаю через ж: DoCmd.RunSavedImportExport, так не блокирует.
Но надеюсь получится как-то закрыть подключение :)

sdkurpeu,
Не вкурю что же Вы делаете-пока понял так:создать в Aксе отчет (с отбором нужных данных, в нем прописывайте какой хотите заголовок,а не меняйте имя таблицы) и импортировать его в Ёксель-так или нет?

Да, все так.

Потом закрываю отчет и пытаюсь переименовать таблицу через DoCmd.Rename - получаю ошибку, таблица уже используется.
Мне проще в 12 строк переименовать мои таблицы чем усложнять код зависимостью от выбранного года:

Рабочая таблица: Табл
Архив: Табл 2019

Я делаю так: Табл -> Табл 2018, Табл 2019 -> Табл. Теперь у меня рабочий 2019 год.
В отдельной функции переименование. Могу хоть 10 лет туда впихнуть не меняя расчетную часть.

Кривцов АнатолийТакое впечатление, что отчет исчезает с экрана, но остается открытым.
Что у вас в коллекции Reports после закрытия?

Reports.Count = 0

Кривцов АнатолийСтранный винегрет. Попробуйте путь к файлу собрать заранее, а не внутри команды OutputTo.

Не помогло

sdkurpeuпропущено...
Да, все так.Ну так и сделайте: "создать в Aксе отчет (с отбором нужных данных, в нем прописывайте какой хотите заголовок,а не меняйте имя таблицы" и в конце процедуры VBA напишите



Я так и делаю. Таблица остается в использовании После(!) закрытия отчета, если в отчете использовался DoCmd.OutputTo!
После ручного экспорта и закрытия отчета проблем с переименовыванием таблицы нет.

Баг Access?

sdkuВдогонку:rpeu.....После экспорта отчета (через DoCmd.OutputTo , "...", acFormatXLS, ...) когда Вы выполняете экспорт вручную(говорите что все работает) используется метод TransferSpreadsheet, а OutputTo это не совсем экспорт

С экспортом через TransferSpreadsheet проблема не проявляется, но не подходит результат.
При ручном экспорте используется OutputTo. Попробуйте сами оба варианта и сравните.

Буду пытаться выяснить какой процесс блокирует таблицу.