Ordem em numeração em Fila de prioridades (Atualização para novo registro)

Em uma solução no forum..

suponha que:

1 - Joao
2 - Itamar
3 - Marcio
4 - Aderbal
5 - Maria
6 - Carolina

Carolina entra na feente de Itamar.... A reorganização da fila:

1 - Joao
2 - Carolina
3 - Itamar
4 - Marcio
5 - Aderbal
6 - Maria

Tópico que originou a solução:

http://maximoaccess.forumeiros.com/t10966-ordenacao-de-prioridade




Enjoy!!!

*****************************************************************************************************************



Repositório de Exemplos Ms Access
Sala destinada à colocação de exemplos em Ms Access (Código aberto) de e para
todos os Utilizadores Cadastrados.
Não tirar duvidas nesta sala.

Outra possibilidade sugerida pelo Mestre Cruiquio.

Dim rs As Recordset

Set rs = 
CurrentDb.OpenRecordset("SELECT * FROM Prioridades WHERE LOTE=" & 
Me.txtLote & " And EMPRESA=" & Me.txtEmpresa & "")

If rs.RecordCount > 0 Then
    Do While Not rs.EOF
        rs.Edit
            If rs!PRIORIDADE >= " & Me.txtPrioridade & " Then
                rs!PRIORIDADE = rs!PRIORIDADE + 1
            End If
        rs.Update
        rs.MoveNext
    Loop
End If

rs.AddNew

rs!DESCRICAO = Me.txtDescrição
rs!PRIORIDADE = Me.txtPrioridade
rs!LOTE = Me.txtLote
rs!EMPRESA = Me.txtEmpresa

MsgBox "Dados incluídos com sucesso", vbInformation, "Status"

rs.Update

rs.Close
Set rs = Nothing

Cumprimentos.