XperimentoS

7 comentarios sobre Selección de registros aleatorios en Access

• 
  Por lucas el 28 de marzo de 2007

  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

• 
  Por klave el 28 de marzo de 2007

  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 Selección de registros aleatorios en Access « XperimentoS el 18 de abril de 2008

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

• 
  Por Ariel Gutierrez el 13 de noviembre de 2008

  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 Fran el 15 de noviembre de 2008

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

• 
  Por Marga el 23 de febrero de 2009

  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 lcflores el 25 de febrero de 2009

  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