[Resolvido]Relatório X Numerar por intervalo de Páginas

Boa noite a todos,
* Uso Access 2003

Fiz buscas aqui neste site e achei apenas um tópico com uma rotina que atende em parte o que preciso, qual seja:
[Resolvido.]Numeração de página a partir de um número informado

DE: MSILVESTRI
RESPOSTA: PABLONERUDA:
Migão o seguinte:
Supondo que você tenha um formulário chamado de FORMULÁRIO2 de onde você faça o chamado do relatório, é só você criar um campo Numero da ultima página impressa, que chamaremos de NR

Daí no relatório é só você colocar um campo da seguinte forma:
=[Página]+[Formulários].[FORMULÁRIO2]![NR]
Ele ir numerar a página normalmente somando o número da última página...

Se a última for 24
1 + 24 = 25
2 + 24 = 26
3 + 24 = 27...

Então, seguindo a orientação do colega Pablo Neruda, criei um Formulário e um Relatório, coloquei os comandos, testei, mas essa rotina imprime apenas 1 número sequencial ao que foi informado, ou seja, não atende totalmente ao que preciso: Criar uma rotina para imprimir uma Numeração sequencial a partir da informação de um determinado número inicial e também dentro de um determinado intervalo final.

Exemplos:
1) Informo um intervalo: de 1 até 10;
2) Em outra ocasião informo um intervalo: de 11 até 50;
3) Caso queira imprimir apenas um número: Seria o intervalo: de 51 até 51, e assim sucessivamente...

Então seria assim: informo o intervalo para a numeração inicial e a numeração final e a rotina gera a quantidade de um intervalo a outro.

Essa rotina é para imprimir essa numeração acima exemplificada em folhas de documentos já impressos, onde o usuário normalmente tem que numerar de caneta cada folha, imagine um volume de 200 páginas ou mais, inclusive podendo ocorrer falha na sequencia, ou seja, o usuário "pular" um número da sequencia; e normalmente o processo pára e depois tem que continuar a numeração sempre do último número inserido, e assim por diante. Normalmente essa numeração é feita manualmente colocando-se um carimbo e em seguida a numeração dentro do texto desse carimbo, se puder criar uma imagem junto com essa numeração seria um plus, caso contrário, basta a numeração que já está de bom tamanho.

Como vc tem que imprimir um número por folha impressa, sugiro que crie uma tabela para receber os números

Ao clicar no botão imprimir do formulário crie uma rótina seguindo os seguintes passos:

Supondo que a tabela criada se chame tblImprimeSeqNum e que o nome do campo criado seja NumSeq

Deletar o conteúdo da tabela. Use a consulta ação DELETE
use o FOR para cria a sequencia numerica desejada
For j= me!númeroInical to me!númeroFinal
'use aqui a consulta ação INSERT para preencher a tabela com os números desejados
next
aqui vc chama pelo relatório. O relatório tem sua origem na tabela tblImprimeSeqNum

Anzóis e linha fornecidos. Agora a pesca é com vc.

Sucesso!

Prezado Avelino,

Agradeço sua ajuda, mas infelizmente tentei "pescar o peixe" e não consegui apesar de várias tentativas, inclusive fiz outras pesquisas neste fórum e no Google, mas também não obtive êxito.
Fiz da seguinte forma:

1) Criei uma tabela: tblImprimeSeqNum
2) Nela criei o campo: NumSeq (tipo: Número - inteiro)
3) Criei um Formulário: F00_NumeraPagina
4) Criei uma Consulta Acréscimo ** Ver imagem: FMA_ConsultaNumeraPaginas.jpg
** Ao executar não gerou nenhum número na tabela
5) No Formulário criei 2 campos não-acoplados para capturar os 2 intervalos inicial e final: NrInicial e NrFinal, respectivamente.
** Da consulta acima exibi o Modo SQL e copiei e colei os comandos para o botão que imprime, mas ao digitar os 2 intervalos e clicar no botão para impressão aparece o que está na imagem: FMA_ErroNumeraPaginas

PS: tentei anexar as 2 imagens separadamente, mas o tamanho não corresponde ao permitido, porisso compactei-as e estão no arquivo em anexo: NumeraPaginas.zip

Tenho pouca experiencia com VBA e SQL, então gostaria de saber onde errei, seja na consulta ou no formulário nos comandos do botão para imprimir essa rotina. Agradeço-lhe de antemão pela atenção.

Segue um exemplo

Sucesso!

Mestre Avelino !

Ficou perfeito, muitíssimo obrigado pela ajuda e pela aula.

Muita Paz a você e sua família.