toevals generator op een Access pagina

Status
Niet open voor verdere reacties.
J

Johgs

Gebruiker
Lid geworden
19 mei 2011
Berichten
337
Iemand toevallig een toevalsgenerator (at random generator) voor het genereren van een geheel getal tussen 0 en een maximum ingesteld getal, dit laatste eventueel opgezocht in een tabel.

Gaat om het bepalen van een willekeurig volledig ad random te kiezen te bemonsteren product in een opeenvolgende reeks. De USA eist tegenwoordig dat dit aantoonbaar ad random gebeurt
 
Ga hier eens mee stoeien, zou ik zeggen.


Code: 
Function aSelect() As Double
    Randomize
    aSelect = Round(Rnd(IsNull(100000) * 0 + 1) * 10000, 0)
End Function


Code: 
Sub testje()
    MsgBox aSelect
End Sub
 
Ander voorbeeldje met een query om 10 willekeurige records te plukken uit een tabel:

Code: 
Public Function funGetRandom(varFld As Variant)
   Randomize
   funGetRandom = Rnd
End Function


Code: 
SELECT TOP 10 code, omschrijving, uni2, uni3 FROM [BIK] ORDER BY funGetRandom([uni2]);
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan