Colaborao recebida de Andra de Carvalho Tikhomiroff (andreact@dglnet.com.br).
"...acho interessante que inclua a observao a seguir na
descrio da funo AUTONUMERAO, para evitar que outras pessoas tenham o
mesmo problema."

E recebida de um dos tcnicos da Forum Access sobre a rotina que substitui o
autonumerao.

O cdigo autonumerao em questo tem uma limitao, s funcionando bem em
duas situaes:
1. se o nome do campo de cdigo em todas as tabelas for o mesmo, CODIGO,
funciona em qualquer formulrio
2. se o nome do campo de cdigo for diferente, funciona apenas no(s)
formulrio(s), onde o campo de cdigo for chamado de CODIGO

No entanto, se o mdulo for copiado e colado no cdigo de cada formulrio,
alterando a indicao do nome do campo de cdigo nas duas linhas
relacionadas abaixo (onde est codigo colocar o nome correto do campo na
tabela de origem do formulrio), ele funciona perfeitamente bem.

1. sqlStr = "SELECT codigo FROM " & tblNm & ";"
2. Set cntFld = cSt!codigo

Depois, basta colocar a indicao getNextCntNbr("NomeDaTabela") na
propriedade VALOR PADRO do campo que ser usado para o cdigo
autonumerao.


Tentando clarear:

- Ao invs de usar o cdigo em um mdulo padro e chamar para cada formu-
lrio, devemos copiar todo o contedo do mdulo modCustomCounter e colar 
no mdulo classe de cada formulrio onde desejamos o mesmo.

- Alm disso devemos editar as duas linhas (1 e 2 acima) do cdigo para 
digitar corretamente o nome do Campo Cdigo da Tabela.

- A entodigitar getNextCntNbr("NomeDaTabela") no Valor padro do Campo
cdigo de cada Formulrio.

------------------------------
www.ribafs.hpg.com.br/access/