random

Hvis du laver følgende funktion:

Public Function GetRandom(Hvorfra As String) As Long

    Dim MyDB As Database
    Dim MyRs As DAO.Recordset
   
    Set MyDB = CurrentDb
    Set MyRs = MyDB.OpenRecordset(Hvorfra, dbOpenSnapshot)
   
    MyRs.MoveLast
    GetRandom = MyRs.RecordCount
   
    MyRs.Close
   
End Function

så kan du kalde den fra kriteriefeltet i din Query på denne måde:

GetRandom(\"Querynavn\")

Så mangler du bare lige at dette skal ske i et felt, som indeholder en tæller, der giver alle records et unikt nummer fra 1 og opefter.