Recorrer una consulta/tabla y seleccionar los datos cada ciertos registros en Access VBA
Ante todo un cordial saludo.
Les escribo porque tengo una situación que me gustaría automatizar mediante VBA en ACCESS y es la siguiente:
Mediante una consulta se generan "n" cantidad de registros, los cuales se deben distribuir entre cierta cantidad de personas, lo que necesito es que me muestre una salida similar al siguiente ejemplo: supongamos que tengo 10 clientes y 3 personas a las cuales le voy a distribuir los clientes, entonces
A la persona 1 le corresponden el cliente 1, el cliente 4, el cliente 7 y el cliente 10.
A la persona 2 le corresponden el cliente 2, el cliente 5 y el cliente 8 y por último
A la persona 3 le corresponden el cliente 3, el cliente 6 y el cliente 9.
Tengo el siguiente código:
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim i As Integer
Set db = CurrentDb
Set rs = db.OpenRecordset("Select * from Consulta2")
If rs.RecordCount = 0 Then Exit Sub
rs.MoveLast
rs.MoveFirst
For i = rs.RecordCount To 1 Step -9
Debug.Print i & " " & rs.Fields("n") & " " & rs.Fields("Id de cadena") & " " & rs.Fields("Datos de cadena")
Next i
rs.Close
Set rs = Nothing
End Sub
Evidentemente estoy realizando mal el enfoque ya que no se como asociar el bucle con la consulta para que me muestre el resultado deseado.
Para la variable "i" realiza el procedimiento, pero de la consulta solo repite el primer valor. Como puedo asociar a la consulta el bucle en la variable "n" de la consulta2 que es un autonumérico creado.