Preciso fazer 02 numeradores a escolher como faço?

[eu_nickctba]

Sou praticamente inexperiente em programação, mas me viro um pouco com access.

Preciso fazer um numerador para documentos.

Deverá funcionar da seguinte forma:

1) O access me pergunta qual o primeiro numero e o último número da sequencia 1 (exemplo 000001 a 000050)

2) O access me pergunta qual o primeiro numero e o último número da sequencia 2 (exemplo 000051 a 000100)

Automaticamente deve criar numa tabela 02 campos campo 1 (000001 a 000050) e campo 2 (000051 a 000100)

É importante que os números tenham os zeros antes.

Depois vou colocá-los em um relatório para imprimir nas folhas.

Tem como fazer isso? Como?

[Alexandre Neves]

Crie uma tabela e nomeie-a como Numeracao2Campos (campo Sequencia1 (texto) e Sequencia 2 (texto)).

cole este código:

Sub CriaTabelaNumeracao()

'criada por Alexandre Neves

'em 2010-04-24

'para eu_nickctba

'do fórum ScriptBrasil

Dim I As Integer, intInicio1 As Integer, intInicio2 As Integer, intFim As Integer

intInicio1 = InputBox("Introduza o número inicial da sequência 1.")

intFim = InputBox("Introduza o número final da sequência 1.")

intInicio2 = InputBox("Introduza o número inicial da sequência 2.")

CurrentDb.Execute "DELETE * FROM Numeracao2Campos;"

For I = 0 To intFim - intInicio1

CurrentDb.Execute "INSERT INTO Numeracao2Campos(Sequencia1,Sequencia2) VALUES ('" & Format(intInicio1 + I, "000000") & "','" & Format(intInicio2 + I, "000000") & "');"

Next

End Sub