Afficher un Numero Aléatoire

Résolu
gladiator1024 Messages postés 65 Date d'inscription vendredi 4 janvier 2008 Statut Membre Dernière intervention 1 février 2011 - 15 nov. 2010 à 13:20
NHenry Messages postés 15112 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 13 avril 2024 - 15 nov. 2010 à 22:22
-J'ai programmé une base de données d'accès et VB6 Reliée Adodb

La question est que je veux
Je Voudrais une fois je clique sur commande Nouveau
Cette command afficher un numéro Aléatoire Avant d'afficher cette numéro dans champ de Référence la BDD Faire une test sur BDD. si Cette Numéro
duplique si oui La BDD afficher un notre numero pas duplique

* le numéro et contiens neuf Chiffres



Tous les remerciements et son appréciation

4 réponses

cs_ShayW Messages postés 3253 Date d'inscription jeudi 26 novembre 2009 Statut Membre Dernière intervention 3 décembre 2019 57
15 nov. 2010 à 13:47
Salut
peut etre comme ça

Dim value As Long
  Do
   value = Int(999999999 * Rnd)
   Loop Until Len(Trim(str(value))) = 9

et aussi n'oublies pas d'ajouter Randomize
3
NHenry Messages postés 15112 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 13 avril 2024 159
15 nov. 2010 à 14:02
Bonjour,

ShayW, ton code peut aller plus vite :
Dim value As Long
  value = Int(99999999 * Rnd)+100000000   

Comme ça tu as forcément 9 chiffres.

Mon site
3
gladiator1024 Messages postés 65 Date d'inscription vendredi 4 janvier 2008 Statut Membre Dernière intervention 1 février 2011
15 nov. 2010 à 14:17
Merci ShayW et merci NHenry

Ms comment fait un petit test sur bdd Si cette nombre pas duplique

merci
0
NHenry Messages postés 15112 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 13 avril 2024 159
15 nov. 2010 à 22:22
Bonjour,

"SELECT COUNT(*) FROM Matable WHERE MonId=" & Valeur

Si valeur <>0, c'est que ça existe déjà.

Mon site
0
Rejoignez-nous