ник: kot_k_k
вот нарыл (пример табла tmp_naimen, счетчик - Kod, был счетчик - 7 358 255, стал - 1)
Public Function Clear_Count()
Dim dbs As DAO.Database
Dim op As DAO.Recordset
Set dbs = CurrentDb
Str_ = "alter table tmp_naimen alter column Kod counter(1,1)"
dbs.Execute ("delete * from tmp_naimen")
dbs.Execute (Str_)
End Function
|
counter(1000,1) - выставляет счетчик в 1000, че знач второй параметр -
п.с. работает только начиная с 2000-го на ХР прокатило, ну да это ж 2002, а 2002>2000
