Access - Seleccion aleatoria de registros con la funcion RND

cuantos = Int(DCount("*", "QryPrevAuditar") / 10) ‘definir el porcentaje que se seleccionara desde un total en una base de datos o query

donde = DCount("*", "QryPrevAuditar") ‘ definir la cantidad de registros a escanear

Valor = Int((donde * Rnd) + 1) ‘definir el primer valor aleatorio que se buscara

marcados = 0	‘ establecer cuantos hemos marcado

Do While marcados <= cuantos	‘ciclamos para asegurar dar el porcentaje de vueltas establecido

    A = 1	‘ establecemos cuantas veces hemos hecho el scann

    DoCmd.GoToRecord , "frmpreventivosparaauditar", acFirst ‘enviamos siempre al primer registro

    Do While A <= donde ‘ ciclamos para escanear todos los registros

        On Error GoTo salir ‘aseguramos que la llegar al final se saldrá del proceso

        If A = Valor Then ‘verificamos si el valor que estamos buscando

            Auditar = True	‘si es así, le indicamos que tiene que hacer

            marcados = marcados + 1

            Valor = Int((donde * Rnd) + 1) ‘ volvemos a buscar otro numero aleatorio

            GoTo salir	‘definimos que el proceso termino y que necesitamos volver a iniciar

        Else

            DoCmd.GoToRecord , "frmpreventivosparaauditar", acNext ‘si no es el valor, vamos al siguiente registro

            A = A + 1 ‘le indicamos al proceso que vamos a dar otro scann

        End If

    Loop

salir:

Loop