[Resolvido]Simular Numeração Automática

Pessoal,

Tenho uma tabela com um campo de código. Este código tem uma numeração automática.

Ocorre que eu preciso que o número inicial da numeração automática seja informado (ele está em uma base), pois a tabela alimenta um banco de dados que possui o campo registro (numeração crescente) e o número inicial da numeração automática será sempre o maior número da base+1.

Como faço para informar o primeiro número do campo código e, a partir daí até o final da tabela, o campo continuar em ordem crescente?

Att,

Helcio Gomes.

Não entendi muito bem. Você tem duas tabelas e precisa de um número de uma para colocar na outra? Exemplifique isso para entendermos melhor.

O processo é o seguinte:

Tenho uma tabela com dados que irão alimentar um banco (via sql). Este banco tem um campo chamado código_tratamento que tem valor numérico sequencial.

Na minha tabela eu não tenho o campo código. Então eu tenho que criá-lo e preciso dar sequência ao campo código_tratamento.

O processo consiste em eu pegar o último número do campo código_tratamento(+1) e colocá-lo como meu primeiro número no campo código da minha tabela. A partir daí eu irei aumentar em uma unidade o campo código.

Por exemplo: No meu banco de dados eu tenho 20 registros. Vou atualizar a base com mais 15. Então na minha tabela do Access o campo código irá começar em 21 e irá até o 35. Se depois eu for atualizar o campo com mais 18 registros, então o campo código da minha tabela vai iniciar em 36 e irá até o 53. E assim por diante.

Espero ter sido claro.

Helcio Gomes.

Você pode usar a instrução DMax:

Me.NomeDoCampo = DMax("Código", "NomeDaTabela") + 1

Pelo que entendi, a instrução Me.NomeDoCampo = DMax("Código", "NomeDaTabela") + 1 acrescenta em 1 unidade o valor do campo (simulação de autonumeração).

Como eu faço para que o primeiro valor da tabela seja 20, por exemplo?

Att,

Helcio Gomes.

Você quer dizer caso a tabela esteja vazia? Se for, pode usar o DCount:

If DCount("*", "NomeDaTabela") < 1 Then
    Me.NomeDoCampo = 20
Else
    Me.NomeDoCampo = DMax("Código", "NomeDaTabela") + 1
End If

O problema foi resolvido. Obrigado à todos...

Att,

Helcio Gomes
Betim / MG
www.esperanca.com.br