Discussion :

[devito]

Bonjour ! J'essaye désespérément de faire une requête mise à jour (soit en mode requête soit en VBA) qui à partir d'une fonction "générer nombre aléatoire" va me remplir une table qui contient déjà des colonnes remplies, dont la colonne que je veux remplacer est en clé primaire avec liens à d'autres tables. J'ai constaté que le problème est que si j'essaye sur une colonne non clé primaire, j'obtiens toujours le même nombre dans toutes les lignes. D'où ma question : comment faire pour appliquer ma fonction de génération de nombre aléatoire pour le champs à modifier dans chaque ligne ?

Mille merci pour toute l'aide et les réponses que vous pourrez m'apporter ! Je mets ci-dessous les lignes de code...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.RunSQL "UPDATE ELEVES SET ELEVES.NoEleve = GenerePass('Nombre_aleatoire');"

' ici je demande de faire une MàJ du champ NoEleve de ma table ELEVES


La fonction NoEleveParDefaut est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Function GenerePass(Nombre_aleatoire As Variant) As String
Dim i As Integer
Dim pass As String
pass = ""
 
Randomize
 
For i = 1 To 8
   pass = pass & Left(10 * Rnd, 1)
   Next i
   GenerePass = UCase(pass)
 
End Function

[mout1234]

Ton paramètre Nombre_aleatoire ne sert à rien et l'appel correspondant dans ta requete SQL n'a pas de sens...

Vires ton paramètre et ca ira mieux!

[tee_grandbois]

Bonsoir devito,

D'où ma question : comment faire pour appliquer ma fonction de génération de nombre aléatoire pour le champs à modifier dans chaque ligne ?

Le code tel que tu l'as écris est correct et génère bien un nombre aléatoire de 8 chiffres. Je n'ai pas tout compris de l'utilisation que tu souhaites en faire, mais même avec un nombre aussi grand, il subsiste une petite chance de générer 2 fois le même nombre pour un élève ! (1 sur 99 millions, c'est moins que de gagner le gros lot du loto tout de même). Est-ce que la propriété Nouvelles valeurs dans numéroauto qui peut être Incrément ou Aléatoire, peut résoudre ton problème ? L'inconvenient c'est que les nombres générés se situent dans une fourchette de valeurs qui va de -2 147 483 648 à 2147 483 647 : le résultat n'est pas très beau dans les fichiers car tu as des n° à 1 chiffre qui cotoient ceux à 9, le signe négatif en plus, si j'ose dire

Mais si vraiment tu veux utiliser ta fonction, sache que 'Nombre_aleatoire' avec les ' ' est une constante donc le code ne sera appelé qu'une fois pour tout ton jeu d'enregistrements :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.RunSQL "UPDATE ELEVES SET ELEVES.NoEleve = GenerePass('Nombre_aleatoire');"

Pour forcer Access à te renvoyer un nombre différent, il faut que tu passes un champ de ta table en paramètre comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.RunSQL "UPDATE ELEVES SET ELEVES.NoEleve = GenerePass([NoEleve]);"