Exportação de solicitações entre tabelas atendendo requisitos de prioridade de

Boa tarde Pessoal!

Estou desenvolvendo um banco de dados, cujo objetivo é efetuar a divisão e atribuição de uma determinada quantidade de solicitações registradas na
tabela "Notas_naoAtribuidas".

No processo de divisão de notas, devemos priorizar as solicitações mais antigas (percebemos isso pelo campo nota, quanto menor for mais antiga é a solicitação). O código abaixo foi criado para selecionar uma determinada quantidade de solicitações da tabela "Notas_naoAtribuidas" e importar para a tabela "Notas" para uma posterior atribuição destas solicitações. No entanto, este não atende este requisito de priorização e é a minha duvida.

Poderia me auxiliar quanto a dúvida? Foi anexado a esta postagem uma cópia do banco para avaliação se for o caso.

Private Sub Comando5_Click()
On Error GoTo errotratamento

DoCmd.SetWarnings False

Dim Qtdpessoas As Integer
Dim QtdAtribuir As Integer
Dim QtdFinal As Integer

Qtdpessoas = TxtQtdpessoas.Value
QtdAtribuir = TxtQtdAtribuir.Value
QtdFinal = QtdAtribuir * Qtdpessoas

Set rs = CurrentDb.OpenRecordset("SELECT * FROM Notas_naoAtribuidas WHERE (CONF=0)")
rs.MoveFirst

For contador = 1 To QtdFinal
Nota = rs("Nota")
CurrentProject.Connection.Execute ("insert into Notas (Nota) values(" & Nota & ")")
rs.Edit
rs!CONF = -1
rs.Update
rs.MoveNext
Next contador

rs.Close
Set rs = Nothing
Set db = Nothing

If MsgBox("Informações Extraídas da(s) OS('s) com sucesso!!!", vbOKOnly + vbInformation + vbInformation, "AES Eletropaulo - Macro CCS (Angelo)") = vbOK Then
End If
Exit Sub

errotratamento:

If MsgBox("As notas já foram atribuidas anteriormente", vbOKOnly + vbInformation + vbInformation, "AES Eletropaulo - Macro CCS (Angelo)") = vbOK Then
End If

End Sub

Desde já agradeço à colaboração.

Emerson Borges Divino

Emerson

Não sei se percebeu, mas não tem o anexo.

O fórum somente aceita anexo de arquivos.zip

Abraços

Noob