First, copy this function to the module section:
-------------
Function Randomizer() As Integer
Static AlreadyPicked As Integer
If AlreadyPicked = False Then Randomize: AlreadyPicked = True
Randomizer = 0
End Function
-------------
Next, in the design view of a select query (with the subject table whose random records to be picked) enter in the query grid:
1)Column 1: YourFieldName
2)Column 2: Rnd(IsNull([YourFieldName])*0+1) - uncheck 'Show' and enter Ascending in Sort
3)Column 3: Randomizer() - In Criteria section: enter 0 - uncheck 'Show'
Finally type in the number of records to be returned in the combo box of the query tool bar, say 100 and click run. This number must not be greater than the number of records in your subject table. Of course, the query can have more than one field from the subject table.
Then you can have a report based on this query.
Lotto Quick pick, anyone?
HTH
Hoa Le