#vba
#vba #ms-доступ
Вопрос:
Хотите улучшить этот вопрос? Обновите вопрос, чтобы он фокусировался только на одной проблеме, отредактировав этот пост.
Закрыто 18 дней назад.
Что изменилось? Я привык использовать:
DIM db as database DIM rst as Recordset set db = CurrentDB Set rst = db.OpenRecordset("Tablename") rst.movefirst '...etc Теперь это больше не работает в моем 64-разрядном приложении доступа. Я использую новый высокопроизводительный ноутбук HP и новейшие продукты Office 365. Пожалуйста, помогите…!
Комментарии:
1. Совершите экскурсию и прочитайте справку. Если вы не тратите время на то, чтобы задать доступный вопрос, зачем кому-то тратить свое время на ответ?
2. «Теперь это больше не работает…» Отредактируйте свой вопрос, чтобы указать сообщение об ошибке, которое вы видите, вместе со строкой, которая его выдает. В нынешнем виде ваш вопрос, скорее всего, будет закрыт.
Ответ №1:
Это будет работать, если имя таблицы присутствует:
Dim db As DAO.Database Dim rst As DAO.Recordset Set db = CurrentDB Set rst = db.OpenRecordset("Tablename") If rst.RecordCount gt; 0 Then rst.movefirst '...etc End Ifrst.Close Комментарии:
1. Код Густава работает в Windows 11 с доступом Microsoft 365.