[Resolvido]Gerar n° de registro automaticamente ao clicar botão

Criei um bd que registra ordens de serviço.

Ao adicionar as informações dessa OS, no fim do formulário que faz o cadastro criei um botão que deverá gerar um n° ref. a essa OS, mas não sei como fazer.

Esse n° deverá ser crescente,infinito a partir de 1, sem repetição e será usado como parâmetro.

Pensei em usar o n° gerado automaticamente pelo acces, mas não quero.

Acces 2007.

Cumprimentos ao forum

Nesse tópico o grande criquio disponibiliza um exemplo, veja se atende:

http://maximoaccess.forumeiros.com/t4718-resolvidonumeracao-automatica?highlight=nnumera%C3%A7%C3%A3o+autom%C3%A1tica

Pelo que entendi, o amigo quer gerar automaticamente um determinado número de registros. O exemplo que eu postei no referido link apenas tem duas tabelas que demonstram a formatação de chave primária. Acredito que não sirva para esse caso. Talvez isso ajude, considerando uma tabela de nome tblDetalhes aonde tem um campo CodPedido do tipo número e um formulário com um campo de nome txtQtd aonde o amigo insere a quantidade desejada e ainda o código do registro principal, caso a necessidade seja gerar registro para um cliente por exemplo, em uma subtabela:

Dim L As Integer

For L = 1 To Me.txtQtd
    CurrentDb.Execute "INSERT INTO txtDetalhes(Código, CodCliente) VALUES('" & L & "', '" & Me.CodCliente & "')"
Next

Isso serve caso a necessidade seja sempre começar do 1. Caso a necessidade seja prosseguir de onde paroue como o amigo falou em "infinito", acredito ser esse o caso, mudaremos para fazer uma verificação se já existe registro na tabela de acordo o CodCliente. Se não existir, começa do 1 e se existir, prossegue de onde parou:

Dim L As Integer, R As Integer, M As Integer

If DCount("*", "tblDetalhes") = 0 Then
    R = 1
    M = Me.txtQtd
Else
    R = DMax("Código", "tblDetalhes") + 1
    M = DMax("Código", "tblDetalhes") + Me.txtQtd
End If

For L = R To M
    CurrentDb.Execute "INSERT INTO txtDetalhes(Código, CodCliente) VALUES('" & L & "', '" & Me.CodCliente & "')"
Next

Tentei inserir no botão o cod, mas não obtive sucesso.

Deixo anexo o arquivo para os colegas me ajudarem:

Link do arquivo

nome do arquivo: ControleOS.rar

Grato

Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.