Sistema com bloqueio por número de resgistros inseridos, limitando a utilização mesmo

A pedido do Amigo Vieira, para ajuda de um colega do Fórum

Este exemplo exibe mensagem ao abrir pela primeira vez ao não ter registros inseridos...
Ao se inserir registros, quando se chegar no limite estabelecido ele fecha automaticamente o BD, não permitindo mais a insercão de registros..
Acompanha código para numeração sequencial na tabela , não permitindo a lacuna entre números de registros caso algum registro intermediário seja excluido. (Cortesia do Amigo Plinio)

De lambuja uma bela Foto em gif Animada..

AUTOR: Harysohn (Piloto)

LINK 2007
https://www.dropbox.com/s/yb5rcbd6v2h87dc/TravaBD.rar

LINK 2003
https://www.dropbox.com/s/cyudklkvqgl1fyb/TravaBD%20-%202003.rar

ENJOY!

Uma sugestão seria mudar a linha que alimenta o webbrowser para WebBrowser0.Navigate URL:=CurrentProject.Path & "\anm9.gif" afim de dar mobilidade ao usuário. Pode ser que seja necessário colocar o aplicativo em um outro local. Programando para buscar a imagem na pasta do aplicativo, fica mais fácil, sem ter necessariamente colocar o aplicativo no "C:\" para poder ver a imagem.

Caro Harysohn, boa noite.

Como aplicar o código para numeração sequencial na tabela sugerido por você?

Abraços, WSenna

Access 2003