Access - Emparejar registros.

Public Sub AsignarMesasAJugadores()

    Dim db As DAO.Database

    Dim rsJugadores As DAO.Recordset

    Dim rsMesas As DAO.Recordset

    Dim totalJugadores As Long

    Dim totalMesas As Long

    Dim jugadoresPorMesa As Long

    Dim contador As Long

    Dim mesaActual As Long

    On Error GoTo ErrorHandler

    Set db = CurrentDb

    Set rsJugadores = db.OpenRecordset("SELECT * FROM Jugadores ORDER BY Puntos DESC")

    Set rsMesas = db.OpenRecordset("SELECT * FROM Mesas")

    ' Obtener el total de jugadores y el número de mesas necesarias

    totalJugadores = rsJugadores.RecordCount

    totalMesas = totalJugadores \ 2 ' División entera para obtener la cantidad de mesas necesarias

    jugadoresPorMesa = 2

    ' Limpiar el campo "NumeroJugadores" de la tabla "Mesas"

    db.Execute "UPDATE Mesas SET NumeroJugadores = 0"

    ' Asignar el número de mesa a cada jugador

    rsJugadores.MoveFirst

    contador = 1

    mesaActual = 1

    Do While Not rsJugadores.EOF

        rsJugadores.Edit

        rsJugadores("MesaDeJuego") = mesaActual

        rsJugadores.Update

        rsMesas.MoveFirst

        rsMesas.Move mesaActual - 1

        rsMesas.Edit

        rsMesas("NumeroJugadores") = rsMesas("NumeroJugadores") + 1

        rsMesas.Update

        If contador >= jugadoresPorMesa Then

            contador = 1

            mesaActual = mesaActual + 1

        Else

            contador = contador + 1

        End If

        rsJugadores.MoveNext

    Loop

    MsgBox "Asignación de mesas completada.", vbInformation

    rsJugadores.Close

    rsMesas.Close

    Set rsJugadores = Nothing

    Set rsMesas = Nothing

    Set db = Nothing

    Exit Sub

ErrorHandler:

    MsgBox "Error al asignar mesas a jugadores: " & Err.Description, vbExclamation

End Sub