Etiqueta com código do correio

Pessoal bom dia,

Estou desenvolvendo um banco para geração de etiquetas que tem um código do correio com digito verificador.

Tenho uma tabela com os dados para geração de etiquetas "TB_Etiquetas" e outra tabela com o range com 5000 códigos "TB_Correio".

Para cada etiqueta tem que gerada tem que ter um código da TB_Correio e este código não pode ser repetido.

Código da etiqueta
JO15763929-7 BR
JO15763930-6 BR
JO15763931-0 BR
JO15763932-3 BR
JO15763933-7 BR
JO15763934-5 BR

EX.:
Etiquetas do dia 28.09.2017

Etiqueta 1 - JO15763929-7 BR
Etiqueta 2 - JO15763930-6 BR

Etiquetas do dia 28.09.2017

Etiqueta 1 - JO15763932-3 BR
Etiqueta 2 - JO15763933-7 BR


Todos os dias a tabela "TB_Etiquetas" é limpa e são carregadas novos registros, quando estiver faltando 500 códigos do correio exibir uma mensagem que esta terminando os código do correio.

Alguém pode me ajudar.

Boa tarde,

Na TB_Correios acrescente um campo booleano de nome "utilizado". Cada vez que utilizar um código, marque este campo como verdadeiro. Na primeira abertura do dia faça uma contagem de quantos códigos não utilizados (utilizado=false) existem na tabela:

Código:

dim db as database
dim rs as recordset

set db = currentdb
set rs = db.openrecordset("SELECT utilizado FROM TB_Correio WHERE utilizado = false")

if rs.recordcount <= 500 then
    msgbox("Atenção, restam apenas " & rs.recordcount & " códigos dos Correios disponíveis para utilização.", vbExclamation, "Códigos dos Correios")
End if

db.close
rs.close

Abraço.

Sergio, a dica do Cassio ajudou?

Aguardamos...