[Resolvido]Modulo "modNumeracaoEmFalta", de JPaulo

Bom dia.
Estou tentando implementar o Módulo NumeracaoEmFalta criado pelo JPaulo em meu BD mas não consigo. Ao executar a consulta qryNumeracaoEmFalta o programa fica "abrindo" com aquele circulo girando e não conclui. Alguém poderia ver o que fiz de errado, por favor?

Exemplo do JPaulo:
http://maximoaccess.forumeiros.com/t718-resolvidosconsultar-listar-n-numero-numeros-em-branco-vagos-vaga-reutilizavel?highlight=numeros+ausente

Aqui, o módulo com minhas alterações:

Public Function NumeracaoEmFalta()
'By JPaulo ® Maximo Access
Dim rst As DAO.Recordset
Dim db As DAO.Database
Dim strTable As String
Dim intNumeracao As Long
Set db = CurrentDb()
strTable = "SELECT Prontuário FROM Tbl_Titular ORDER BY Prontuário"

Set rst = db.OpenRecordset(strTable)
rst.MoveFirst
intNumeracao = 1

Dim strRetornaResultado As String
strRetornaResultado = ""

Do While Not rst.EOF
If rst.Fields("Prontuário") = intNumeracao Then

rst.MoveNext
Else
If strRetornaResultado = "" Then
strRetornaResultado = intNumeracao
Else
strRetornaResultado = strRetornaResultado & ", " & intNumeracao
End If

End If
intNumeracao = intNumeracao + 1
Loop
db.Close
Set db = Nothing
Set rst = Nothing

NumeracaoEmFalta = strRetornaResultado
End Function

A consulta é:

SELECT NumeracaoEmFalta() AS [Numeração Livre], *;

OBS: Tentei anexar o BD zipado, mas sempre dá mensagem de "O arquivo adicionado não é válido", apesar de ter usado o Winzip para compactar.
Obrigado.

Walter

http://maximoaccess.forumeiros.com/t14629-problemas-ao-anexar-ficheiros-nos-topicos

Envie para eu ver por favor;

jpaulo65@gmail.com

Ok,
Acabei de enviar para o se e-mail.

Obrigado,

Walter

Walter meu amigo, o código funfa sim, mas na sua tabela não, porque você tem o numero 18 duplicado.

Tente alterar esse segundo 18 para 43 por exemplo e veja o resultado.

Certo.

Realmente ao alterar o número o modulo funcionou conforme eu queria.


Coloquei um código no Form para não aceitar cadastros duplicados, e isso resolverá o problema, com certeza.
Muito obrigado, JPaulo ( mais uma vez)

Um abraço,

Walter

Obrigado pelo retorno o forum agradece.