Séquence aléatoire
Question posée sur le forum self-access.com : comment générer automatiquement une séquence aléatoire de la forme
110 23459 875
? Avec les espaces toujours au même emplacement ?
La fonction
Recopiez la fonction suivante dans un module standard de votre base de données :
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
Function SuiteAleatoire() As String Dim intI As Integer, strResultat As String Randomize strResultat = "" For intI = 1 To 11 If intI = 4 Or intI = 9 Then strResultat = strResultat & " " End If strResultat = strResultat & Int(Rnd * 10) Next SuiteAleatoire = strResultat End Function |
Exploiter la fonction
Pour tester la fonction :
- Faites apparaître la fenêtre Exécution (
CTRL
+G
). - Tapez dans cette fenêtre :
? SuiteAleatoire()
puis appuyez sur la touche[Entrée]
.
Vous pouvez ensuite utiliser la fonction…
- dans un champ calculé de requête
- dans un champ calculé de formulaire ou d’état
- et bien sûr dans une portion de code Visual Basic.
La même, mais en différent !
Pour ne pas avoir les espaces dans votre séquence de 11 chiffres, enlevez le If. Ce qui donne :
1 2 3 4 5 6 7 8 9 10 11 |
Function SuiteAleatoire() As String Dim intI As Integer, strResultat As String Randomize strResultat = "" For intI = 1 To 11 strResultat = strResultat & Int(Rnd * 10) Next SuiteAleatoire = strResultat End Function |