[Resolvido]Preenchimento automático numero sequencial

Bom dia amigos
Pesquisei no fórum e não encontrei algo parecido, por isso peço novamente a ajuda de voceis.

*Criei uma tabela e um formulário com o nome "Comanda", para cadastrar as comandas do restaurante que serão usadas. Só que hoje tenho que digitar uma à uma, um bloco com 100 comandas fica bem cansativo.
Gostaria se possível criar uma função no formulário que: ao digitar a primeira comanda e a última fosse preenchido esse intervalo automaticamente na tabela.

Ex: Campo Inicio (001), Campo final (005).

Fosse preenchido: 001
002
003
004
005

será que é possível?
Desde já agradeço

o ideal é vc usar o laço For... Next

Use como exemplo o código abaixo e faça as adaptações para o seu projeto

Código:

Dim intComanda as integer

intComanda=InputBox("Informe o número da Primeira Comanda")
For i=intComanda to intComanda+100
      'Aqui você coloca onde irá armazenar os números das Comandas
Nex

Bom dia LiveBrain,
Obrigado pelo retorno e desculpe minha falta de conhecimento mas sou iniciante em access. Quero criar 2 campos no formulário "nº Inicio" "nº Final", e a sequencia já feita irá para tabela comanda. O bloco de comanda nem sempre vem completo com 100, algumas vezes no meio do bloco falta alguma. Bom esse código eu coloco no evento do campo ou tenho que criar um módulo.
Obrigado

Bom dia,
Alguem pode me ajudar??
Grato

Amigão, veja o simples;

No evento ao pressionar de um botão no seu formulario, acreditando que você terá duas caixas de texto, com os nome de txtInicio e txtFim;

Private Sub SeuBotão_Click()
'By JPaulo ® Maximo Access
Dim i As Variant
Dim intInicio As Variant
Dim intFim As Variant

intInicio = Nz(Me.txtInicio.Value,0)
intFim = Nz(Me.txtFim.Value,0)

   For i = Val(intInicio) To Val(intFim)
       CurrentDb.Execute "INSERT INTO SuaTabela (SeuCampoNumero) VALUES (" & i & ")"
   Next i
End Sub

Olá JPaulo,
Obrigado pelo retorno e ajuda. Fiz conforme me orientou mas esta dando o seguinte erro mandei anexo.
grato

Eu disse acima;

" acreditando que você terá duas caixas de texto, com os nome de txtInicio e txtFim;"

Esse erro é porque as suas caixas de texto não têm esse nome.

Tem as duas cx texto, segue BD.

Olá JPaulo
Resolvido o erro e pq tinha digitado o nome da cx tx errado. Olha muito obrigado pela ajuda, estou aprendendo muito com vcs.
grande abraço.

Obrigado pelo retorno o forum agradece.