[Resolvido]Usando numeros faltantes

Olá Amigos

Tenho uma tabela de cadastro aonde o numero de inscrição foi sempre aleatório, a pedido do inscrito, tipo quero ser o numero 325, se estivesse ocupado usavamos um outro numero qualquer.
Agora isso se tornou um problema e desejo fazer essa operação automática e ocupar os numeros vagos

ex.: 1, 2, 3, 5, 7, 94....
O proximo registro acharia o 4 desocupado e colocaria 4 no campo nº de inscrição.
o proximo seria 6, depois 8 e assim por diante...

Usei Inicialmente isso;

Private Sub Form_Open(Cancel As Integer)

Dim DB As Database
Dim rs As Recordset

Set DB = CurrentDb
Set rs = DB.OpenRecordset("tb_CadInscri", dbOpenDynaset)

rs.MoveLast
txtSACInsc = rs.RecordCount + 1
rs.Close
DB.Close

End Sub

O problema é que quando ele encontra um já existente, não sabe o que fazer.

se o recordcount for 102 com + 1 vai tentar o 103 se existe, da erro.


Tem como?

O campo não é numerico simples sem chave primária.

Carlos Silveira

Bom dia, casilveira

Tente
Private Sub Form_Open(Cancel As Integer)
Dim rs As Recordset,I as integer

Set rs = CurrentDb.OpenRecordset("tb_CadInscri", dbOpenDynaset)
I=0
do
I=I+1
if rs("NomeDoCampo")=I then
txtSACInsc = I
exit do
end if
rs.Movenext
loop

rs.Close
set rs=nothing
End Sub

Bom dia, casilveira

Tente
Private Sub Form_Open(Cancel As Integer)
Dim rs As Recordset,I as integer

Set rs = CurrentDb.OpenRecordset("tb_CadInscri", dbOpenDynaset)
I=0
do
I=I+1
if rs("NomeDoCampo")<>I then
txtSACInsc = I
exit do
end if
rs.Movenext
loop

rs.Close
set rs=nothing
End Sub

Bom dia Alexandre

Que bom que voce é um madrugador dos sábados.
Veja que ele buscou direto o número 1 e como já existe ele não pode seguir no Update.
O primeiro livre é o nro 3.


Carlos Silveira

Boa noite, casilveira

Substitua
Set rs = CurrentDb.OpenRecordset("tb_CadInscri", dbOpenDynaset)
por
Set rs = CurrentDb.OpenRecordset("SELECT NomeDoCampo FROM tb_CadInscri ORDER BY NomeDoCampo")

Caracas, na mosca!!!

Alexandre, te devo um churrasco...


Muito Obrigado!!!