Query to select different row number from each group ?

[rpeare]

I would not use the RND function alone. Basically the seed value of the random function does not change, so if you open your database, select your 'random' items. Then close the database, select the 'random' items again you will get the exact same set of records. That is the whole point of using a VBA module and using the RANDOMIZE function, because it reseeds your database. Do not use RND by itself if you value a truly random sample.

To itsme.. I adapted some code I found elsewhere and didn't spend a whole lot of time examining it, I got a sample working and that was all I was interested in

[ItsMe]

To itsme.. I adapted some code I found elsewhere and didn't spend a whole lot of time examining it, I got a sample working and that was all I was interested in

Oh, I thought you mentioned that the table was not populating with an actual random number. Just for the fun of it, I created a little snippit for a random function.

Dim iRecNum As Integer
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("Table1", dbOpenDynaset)
Dim max As Long
max = 40
Dim i As Integer
Dim intCount As Integer
intCount = 50
    For i = 0 To intCount - 1
        Randomize
        iRecNum = (max * Rnd) + 1
        
            rs.AddNew
                rs![RandomNum] = iRecNum
            rs.Update
    
    Next i
rs.Close
Set rs = Nothing

[rpeare]

Yeah the problem I ran into was that if I used RANDOMIZE in a module I could not get it to carry through to a generated SQL statement so I had to create a dataset, then generate a random number between 1 and the maximum number of records then cycle through the recordset to pull the random record. It's not pretty but I tested it several times and got, what I thought, was a truly random selection every time.