Discussion :

[GalaskyGriz]

Coucou c'est encore moi (eh oui, en stage sans tuteur, problèmes obligent). En vérité je règle au maximum mes problèmes tout seul mais là encore je bute.

Du coup je veux attribuer une valeur aléatoire à mon champ, blablabla, j'épluche le net, et je tombe sur GenUniqueId(). La fonction semble satisfaire tous mes désirs !
Sauf qu'elle marche pas et je ne sais pas pourquoiii : "Sub ou Fonction non définie". J'ai cherché parmi les librairies pour ajouter les deux mentionnant le mot "JET", sans résultat.

Merci de bien vouloir (encore) m'aider !

Code :

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

1
2
3
Set champ = Tbl.CreateField("Random", dbLong)
champ.DefaultValue GenUniqueID()
Tbl.Fields.Append champ

[marot_r]

Bonjour.

Cela a l'air d'etre une function "interne" de Access et je ne pense pas qu'elle soit accessible a partir du code ou d'une requete.
En tout cas quand on cherche VBA et GenUniqueID il n'y a rien qui sort.

Pour genere une valeur aleatoire dans une requete il faut "encapsuler" la function RND() dans une function VBA.

Code :

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

1
2
3
4
 
public function MyRND() as single
   MyRnd=rnd()
end function

cela force Access a generer un nombre different a chaque enregistrement sinon il te repete la meme valeur tout le temps.

Alternativement si c'est dans une table, tu peux aussi utiliser un Autonum et mettre la propriete new value ("prochaine valeur" en francais ?) a random (aleatoire).
C'est en bas la ou on defini la taille des champs et autres trucs.
Ca te donne un numero unique entre 1 et le maximum d'un entier long.

A+

[marot_r]

Heu en relisant ton post la solution devrait etre :

Code :

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

champ.DefaultValue = "GenUniqueID()"

Avec les guillemets autours.

Desole pour la fausse piste. Je la laisse parcqu'elle pourrait etre utile dans d'autre circonstance.

A+

[GalaskyGriz]

Woh, j'ai été mauvais sur ce coup... En tout cas je te remercie pour la qualité des solutions que tu apportes !