RE:ordenar aleatoriamente
Private Sub Comando0_Click()
'1-La tabla debe tener un campo por el cual se debe ordenar, en este caso el campo lo llamo Orden y es de tipo numérico
'2-Crear una consulta de selección y/o un formulario, que desplieque los datos en forma ascendente por "Orden"
'3-Crear un formulario que contenga un botón y en el evento click ejecute el código siguiente:
Dim dbs As Database
Dim rst1 As Recordset
Dim sql1 As String
Dim Consulta As String
Set dbs = CurrentDb
sql1 = "Select * from Tabla1"
Set rst1 = dbs.OpenRecordset(sql1)
With rst1
Do While Not .EOF
.Edit
!Orden = Int((75 * Rnd) + 1)
.Update
.MoveNext
Loop
.Close
End With
Consulta = "Consulta1"
DoCmd.OpenQuery Consulta, acNormal, acEdit
End Sub
'Nora el # 75 es el rango de números aleatorios