[Resolvido]Numeração sequencial para novos registros

Gostaria de adicionar um critério neste código do amigo @CRYSOTOMO, alguém pode me ajudar nesta situação.

Gostaria que somente fosse acrescentado a numeração sequencial para os novos registros, para os registros existentes ele ignorasse a código.
Desta forma os registros já existentes não seriam alterados.

Código:

If DCount("*", "suaTabela") = 1 Then
       Me.txtNumero = 1
Else
       Me.txtNumero = DMax("nomeDoCampo", "Sua Tabela") + 1
End If

Saudações,
Kakay

Olá Ademilson

Para um formulário, poderá ser isto:

Código:

If CStr(Me.NewRecord) = -1 Then
    'se novo ...
    If DCount("*", "suaTabela") = 1 Then
           Me.txtNumero = 1
    Else
           Me.txtNumero = DMax("nomeDoCampo", "Sua Tabela") + 1
    End If
Else
    'se não for novo
    '...
End If


Teste se é o pretendido.

Abraço

ahteixeira, muito obrigado pela ajuda.

Tive que fazer alguns ajustes com os botões de Adicionar e Salvar registro, funcionou perfeitamente.
Valeu.........


Atenciosamente;
Kakay

Olá Ademilson,

Obrigado pelo retorno, o fórum agradece.

Abraço