Random nummers d.m.v. een knop

[Rico58]

Hallo allen,

Ik probeer een formulier te maken met een knop waarmee een rij nummers worden gegenereerd
Ik heb een rij van 5 nummers. Elk nummer bestaat uit 7 getallen
Ik heb een voorbeeld hoe dit eruit moet zien. zie bijlage
Ik heb ook een script van hoe ik dit voor elkaar moet krijgen
Alleen heb ik geen kaas van gegeten dus ik weet niet waar ik dit moet plakken in aacess
Kan iemand mij hiermee helpen?

 

[OctaFish]

Welkom bij HelpMij . Probeer je nu een javascript code in een Access formulier te draaien? Knappe jongen als je dat gaat lukken, want Access spreekt alleen VBA. Dus dit script gaat sowieso nooit werken, je moet hem ombouwen naar VBA. En dan krijg je zoiets:

Function Willekeur() As Long
Dim iBoven As Long, iBeneden As Long
    iBoven = 9999999
    iBeneden = 1000000
    Randomize
    Willekeur = Int((iBoven - iBeneden + 1) * Rnd + iBeneden)
End Function

En achter de knop hangt dan deze code:

Private Sub randomfield_Click()
    Me.aantal = Willekeur
End Sub

 

[Rico58]

Hi Octafish,

Dankjewel voor je reactie, Ik had de code gekopieerd van een andere forum. Vreemd, zo zie je maar als er verstand van hebt dan valt dat gelijk op.
Ik ga je code uitproberen.Ik hou je op de hoogte hoe het afgelopen is. In ieder geval bedankt voor je hulp en advies

Mvg. Rico