Sistema de distribuição de lacres

Pessoal,

Estou em um ponto do meu projeto onde não consigo seguir em frente, eis a questão:

-Preciso fazer um sistema de distribuição de "lacres";
-Onde a numeração dos lacres vão de 0001 à 9999;
-Criei uma tabela com estes 9999 registros;
E através de um formulário gostaria de atribuir cada valor de lacre a uma pessoa (associar a um usuário do sistema)
Este formulário servirá para lançar estas remessas de lacres, onde o usuário vem até mim e pega uma quantidade
A tabela com a numeração de lacres inicialmente fica com a coluna responsabilidade vazia, e posteriormente com o nome do usuário.

Até agora consegui fazer somente um simples formulário para atribuir um lacre de cada vez a pessoa.
Porém o grande problema para mim é que nestas solicitações normalmente pede-se grandes quantidades de lacres (>10), tornando-se um processo demorado.
Estou a procura de uma solução ou exemplo parecido, onde consigo colocar em um formulário algo como "quantidade" e o "numero inicial" dos lacres (pois as remessas são sempre entregues sequencialmente), atribuindo automaticamente a todos os registros de minha tabela o campo responsabilidade para o usuário, tornando o processo mais rápido.
Não sei se deu para entender, mas saberiam me ajudar com esta dúvida?

Att,

Willian Mariano

Olá Willian, seja bem vindo ao fórum!

A partir de um botão no evento ao clicar:

Dim rs As DAO.Recordset
Dim Cont As Long
Dim UltimoNumeroDeLacre As Long
Dim NovaQuantDeLacre As Long
Dim NomePessoa As String
Set rs = CurrentDb.OpenRecordset("SuaTabela")
Cont = 0
NovaQuantDeLacre = 10
NomePessoa = "Willian"
rs.MoveLast
UltimoNumeroDeLacre = rs("SeuCampoLacre")
     For Cont = 1 To NovaQuantDeLacre
            rs.AddNew
            rs("SeuCampoLacre") = UltimoNumeroDeLacre + 1
            rs("Pessoa") = NomePessoa
            rs.Update
            UltimoNumeroDeLacre = UltimoNumeroDeLacre + 1
     Next Cont
rs.Close
Set rs = Nothing

Os valores das variáveis NovaQuantDeLacre e NomePessoa faça pegar das textbox's de seu formulário.