[Resolvido] Definir início de numeração automática

Boa tarde, tenho um projeto que utiliza um campo de numeração automática. No entanto como estou implementando o sistema agora, gostaria que a contagem começasse no 200, para que futuramente sejam inseridos os registros anteriores, com as numeraçoes de 1 a 200. É possível definir essa valor do início?

Outra dúvida é quanto a registros excluídos, para que o número excluído nunca seja repetido, mesmo após reparar e compactar o banco de dados.

Era isso, obrigado

Não meu amigo. Numeração automática é sequencial, logo se começar no 200 vai avançar sempre sem retroceder. Se copiara tabela para uma nova vai sempre iniciar no 1.

mas eu tenho como definir que comece no 200?

Criando 199 números e fazendo delete a eles

Descobri na ajuda da própria microsoft:

http://office.microsoft.com/pt-pt/access-help/alterar-o-valor-inicial-de-um-campo-de-numeracao-automatica-mdb-HP005188774.aspx

Basta criar uma tabela um campo número inteiro e logo e valor ([número desejado] -1)

Daí cria-se uma consulta acréscimo para adicioar o valor do campo da tabela temporário a tabela com a numeração automática

Após isso o access sempre irá adicionar uma unidade na numeração automática.

Obrigado

Procurando a gente encontra, mas atençaõ que esse método nem sempre bate certo e pode originar erros. De qualquer forma tente. Na minha opinião era usar um tipo de numeração independente da numeração automatica

Também tive problemas com a utilização automática. Sugiro que faças conforme o colega Vieira está indicando, para evitar problemas no futuro.

Tem aqui exemplo:

Função contador simples com SQL

Public Function Contador(strCampo As String, NomeTabela As String) As Long
Dim strSQL As String, rkt As DAO.Recordset
strSQL = "SELECT Max" & "(" & strCampo & ")" & " As MaxValor"
strSQL = strSQL & " FROM " & NomeTabela
Set rkt = DBEngine(0)(0).OpenRecordset(strSQL, dbOpenForwardOnly)
Contador = Nz(rkt("MaxValor")) + 1
rkt.Close: Set rkt = Nothing
End Function

Para chamar a função, no evento do antes de inserir do seu formulário:

Me.MeuCampo = Contador("SeuCampoContador", "SuaTabela")

Para chamar a função, no evento corrente do seu formulário:

Private Sub Form_Current()
'Se está em um novo registro gera o número de serie
If Me.NewRecord Then
Me.SeuCampoContador = ContadorSimples("SeuCampo","SuaTabela")
End If
End Sub

Obrigado Pessoal. Ficarei atento a este aspecto, mas como meu banco não é tão complexo acredito que a numeração automática possa funcionar.

Até mais

Abraço e bom trabalho

Prezado VieiraSoft,

Aproveitando o código que postou para numeração automática de um campo, como eu poderia fazer para, ao chamar a função, a numeração sempre se iniciar com o número 1?

Obrigado

Sander

Eu sugiro que você faça como o amigo Vieira disse
para facilitar sua vida e evitar possível erro vá ao excel
e digite
1
2
3
cada numero em uma célula, selecione tudo, posicione o cursor no canto inferior direito da célula 1, clique segure e arraste até o numero que vc quer
copia e cola na coluna da sua tabela
salve, sua alteração no access e tente cadastrar e vc vai ver que vai começar a partir do numero que vc colocou
você pode apagar tudo que ele começará do numero que vc parou.

mas se você compactar e reparar o banco de dados o campo numeração volta ao 1


espero ter ajudado