Comentarios en: Selección de registros aleatorios en Access

Por: lcflores

lcflores — Wed, 25 Feb 2009 10:20:19 +0000

Hola Marga, No me gusta mucho la opción de combinar dígitos y letras, no sólo complica la solución sino que no es una buena opción por:

El campo será texto, no numérico, las búsquedas serán más lentas.
Un PC es capaz de generar números pseudo-aleatorios, no letras. Luego es necesario generar un número y convertirlo en letra después, pero dependiendo del juego de caracteres esto no es tan sencillo, habría que generar 3 números aleatorios entre 0 y 25 y sumar una cantidad X (65 en mi PC) para evitar que aparecieran códigos ASCII raros.

Todo lo anterior resulta un poco complejo, y es difícil de explicarlo con detalle en un comentario. En el diseño de la tabla añade un nuevo campo texto, y en el valor por defecto pon la siguiente expresión: =(9999999-1000000+1)*NúmAleat()+1000000 Ahora ya tienes un campo que generará un número aleatorio de 7 dígitos. Ahora vamos a quitar 3 dígitos y añadir 3 letras (dependiendo del juego de caracteres de tu PC puede que aparezcan cosas raras).

(=Car(Ent((90-65+1)*NúmAleat()+65))+Car(Ent((90-65+1)*NúmAleat()+65))+Car(Ent((90-65+1)*NúmAleat()+65))+CCadena(Ent((9999-1000+1)*NúmAleat()+1000))

IMPORTANTE / CUIDADO :De está formula pueden generarse registros que casualmente tengan el mismo código. Para generar códigos únicos deberías utilizar un campo autonumérico, pero en estos campos no puedes poner el valor aleatorio que tu quieras, sólo pueden ser números. Para lograr lo que quieres deberías utilizar una función macro y actualizar el campo con una consulta. Esto es todavía más complejo, te adjunto un pequeño esqueleto de lo que sería una función macro, pero no está completa, faltaría comprobar que el valor es único y no existe ya en la tabla. Genera un código con 3 letras fijas y 4 números aleatorios.


Public Function dameNumeroAleatorio() As String
    Dim limiteSuperior As Integer
    Dim limiteInferior As Integer
    Dim num As String
    Dim letrasFijas As String
      
    limiteSuperior = 9999
    limiteInferior = 0
    letrasFijas = "TEX"
    
    Randomize
    num = letrasFijas & CStr(Int((limiteSuperior - limite_inferior + 1) _
        * Rnd + limiteInferior))
    dameNumeroAleatorio = _
        Replace(Space(Len(CStr(limiteSuperior)) - Len(num)) & num, _
        " ", "0")
End Function

Si tengo tiempo, lo documento un poco más y hago un post con algo más de detalle. Espero haberte ayudado, lcflores

Por: Marga

Marga — Mon, 23 Feb 2009 18:37:42 +0000

Tengo una duda. (He leido el post de Klave, pero sigo igual)
Lo primero que tengo que decir es que no estoy al mismo nivel que vosotros, yo más bien estoy a nivel usuario.
Necesito crear 1000 códigos aleatorios que contengan 4 dígitos y 3 letras. En excel ya lo tengo, pero quería lograrlo en Access para poder utilizar la combinación de correspondencia con word (si se pudiera con Power point sería, lo máximo) Podeis ayudarme?¿ he intentado seguir los pasos de Klave, que aunque me parece sencillo al leerlo me pierdo. Yo sólo necesito la primera parte a Aut y Aleat….
Muchas Gracias por adelantado.

Por: Fran

Fran — Sat, 15 Nov 2008 16:46:30 +0000

Me ha sido de gran ayuda, era lo que estaba buscando.

Por: Ariel Gutierrez

Ariel Gutierrez — Thu, 13 Nov 2008 16:27:55 +0000

Tengo una base de datos de 4,500 estudiantes de 40 carreras diferentes, deseo obtener una muestra aleatoria de 10 estudiantes por carrera, la base de datos que tengo esta en Excell, como le puedo hacer para que excell me de esa selección aleatoriamente.

Gracias.

Por: Selección de registros aleatorios en Access « XperimentoS

Selección de registros aleatorios en Access « XperimentoS — Fri, 18 Apr 2008 15:35:36 +0000

[...] Nos hemos mudado a http://www.xperimentos.com, puedes continuar leyendo este post en este enlace. [...]

Por: klave

klave — Wed, 28 Mar 2007 13:08:56 +0000

A mi me ha pasado lo mismo con alguna consulta, usando access y tambien alguna vez con SAS (herramienta estadística), y detecté que era por el SQL (aun sigo sin entender porqué), algo tan tonto como usar un group by en un select distinct, devolvía diferentes registros o diferente número. Quitabas el distinct y la query se volvia estable

Por: lucas

lucas — Wed, 28 Mar 2007 12:45:05 +0000

Interesante… aunque yo descubrí hace tiempo que el access es aleatorio en sí mismo!!!

La última vez que usé access con un volumen de datos medio (100.000 registros en una tabla) ejecutaba la misma consulta varias veces seguidas y cada vez obtenía un número diferente (supongo que aleatorio) de registros.

Afortunadamente la técnica descrita por klave es válida para otros SGBD