Установка счетчика - Microsoft Office Access

doober · 21.02.2010, 12:16

Доброго времени суток.
Использую в качестве хранения данных файл mdb.
Программно с ним работаю.
Возникла необходимость изменить начальное значение счетчика с 1 на 1000.Результата пока нет.
Есть ли решение этого вопроса?

Teslenko_EA · 21.02.2010, 18:59

Здравствуйте doober.
"Принудительно" при помощи VBA задать номер счетчика можно так:

Код:

Sub AddCounter(lNum As Long)
Dim rs As DAO.Recordset
    Set rs = CurrentDb.OpenRecordset("Table1")
    rs.AddNew
    rs![ID] = lNum
    rs.Update
End Sub

для реального применения в код конечно стоит добавить обработчик ошибок.
Евгений.

doober · 21.02.2010, 21:16

Большое спасибо Евгений.
Все сработало,если макрос запускать в самом файле MDB

Teslenko_EA · 21.02.2010, 23:15

doober строка подключения CurrentDb... именно это и подразумевает.
Евгений

21.02.2010, 12:16	#1
doober Старожил Регистрация: 02.05.2009 Сообщений: 3,907	Установка счетчика Доброго времени суток. Использую в качестве хранения данных файл mdb. Программно с ним работаю. Возникла необходимость изменить начальное значение счетчика с 1 на 1000.Результата пока нет. Есть ли решение этого вопроса? Анализ,обработка данных Недорого

21.02.2010, 18:59	#2
Teslenko_EA Участник клуба Регистрация: 10.08.2009 Сообщений: 1,796	Здравствуйте doober. "Принудительно" при помощи VBA задать номер счетчика можно так: Код: `Sub AddCounter(lNum As Long) Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("Table1") rs.AddNew rs![ID] = lNum rs.Update End Sub` для реального применения в код конечно стоит добавить обработчик ошибок. Евгений.

21.02.2010, 21:16	#3
doober Старожил Регистрация: 02.05.2009 Сообщений: 3,907	Большое спасибо Евгений. Все сработало,если макрос запускать в самом файле MDB Анализ,обработка данных Недорого

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
обнуление счетчика в бд	Tanuska___:)	БД в Delphi	2	22.01.2009 23:10
Эмуляция счетчика	tolikman	Microsoft Office Access	3	24.10.2008 11:13
Сброс счетчика	vldand	Microsoft Office Access	1	20.10.2008 18:40
Собрать статистику счетчика.	Djonson	PHP	1	01.03.2008 18:35

21.02.2010, 23:15	#4
Teslenko_EA Участник клуба Регистрация: 10.08.2009 Сообщений: 1,796	doober строка подключения CurrentDb... именно это и подразумевает. Евгений