Alternar registros de um campo de acordo com tabela de seleção

Dim qRS As DAO.Recordset
Dim qRS2 As DAO.Recordset
Dim qSQL As String
Dim qSQL2 As String
Dim UltimoAnalista As Integer
Dim ProximoAnalista As Integer

qSQL = "SELECT id_fun_e FROM SuaTabelaCliente"

Set qRS = CurrentDb.OpenRecordset(qSQL)
UltimoAnalista = 0
ProximoAnalista = 0

If qRS.RecordCount = 0 Then
     MsgBox "A numeração automática de Analista está inativa, " _
     & vbCrLf & "porque não foi definido nenhum Analista para Clientes " _
     , vbCritical, "Atenção"
     Exit Sub
Else
     qRS.MoveFirst
     qRS.MoveLast
     UltimoAnalista = qRS("id_fun_e")
         
     qSQL2 = "SELECT id_fun_p FROM SuaTabelaFunc"
    
     Set qRS2 = CurrentDb.OpenRecordset(qSQL2)
    
     If qRS2.RecordCount > o Then
     qRS2.MoveLast
     qRS2.MoveFirst
         Do While Not qRS2.EOF
            If qRS2("id_fun_p") = qRS("id_fun_e") Then
               qRS2.MoveNext
               If qRS2.BOF Or qRS2.EOF = True Then
                   qRS2.MoveFirst
               End If
               ProximoAnalista = qRS2("id_fun_p")
               Me.TXT_id_fun_e = ProximoAnalista
               Exit Do
            End If
         qRS2.MoveNext
         Loop
     End If
End If
qRS.Close
Set qRS = Nothing
qRS2.Close
Set qRS2 = Nothing
'Solução por Dilson para joseantonio em 18/05/2016 - Fórum MaximoAccess