6. Jak wyzerować Autonumer bez defragmentacji bazy?

Popularnym sposobem na cofnięcie licznika (pole Autonumer), żeby znów liczył od 1, jest defragmentacja bazy. Jednak nie zawsze jest to wygodne rozwiazanie. Dobrze wiedzieć, że można wyzerować licznik bez defragmentacji za pomocą 3 linijek kodu:

DoCmd.RunSQL "INSERT INTO Tabela1 ( ID ) SELECT -1;"
DoCmd.RunSQL "INSERT INTO Tabela1 ( ID ) SELECT 0;"
DoCmd.RunSQL "DELETE * FROM Tabela1 WHERE ID <= 0;"

Operacja działa bez względu na to, czy w tabeli są już jakieś rekordy, czy nie.
Korzystając z tej samej zasady, można też w polu Autonumer ustawić konkretną wartość początkową:

DoCmd.RunSQL "INSERT INTO Tabela1 ( ID ) SELECT -1;"
DoCmd.RunSQL "DELETE * FROM Tabela1 WHERE ID = -1;"
'wpisuje do pola Autonumer liczbę 13
DoCmd.RunSQL "INSERT INTO Tabela1 ( ID ) SELECT 13;"

(metoda dotyczy Acc97)

K. P.