Discussion :

[far34]

Bonjour,

Je voudrais générer des nombres entier aléatoire sans doublons dans ma requête .

J'ai utilise le générateur d'expression, mais sans succés
voila ma formule
ENt((30000-20000)*aléat(numéro_produit))

Est ce qu'il y a un moyen de le faire avec le générateur d'expression ou bien il faut rentré du code VBA.

Merci à tous.

Note: je suis un débutant qui est encore dans la base

[madefemere]

Bonsoir,

Je ne pense pas que ça soit possible sans VBA. Vu qu'il faut vérifier si la valeur sortie n'existe pas déjà.
Cette routine devrait faire ce que tu veux :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub AjouterValeurs()
Dim rst As DAO.Recordset
Dim ValeurChamp As Long
Dim RECALCULER As String
Set rst = CurrentDb.OpenRecordset("T_Table1", dbOpenDynaset)
With rst
    .MoveFirst
    While Not .EOF
 
RECALCULER:
     Randomize
     ValeurChamp = Int((30000 - 20000 + 1) * Rnd + 20000) + Rnd
     .FindFirst "[ChampAleat]=" & ValeurChamp
 
     If Not .NoMatch Then
         GoTo RECALCULER
     End If
     .Edit
     ![ChampAleat] = ValeurChamp
     .Update
     .MoveNext
    Wend
End With
rst.Close
Set rst = Nothing
End Sub

Il faut que tu aies une table T_Table1 avec un champ ChampAleat et d'autres champs remplis de données.

Bonne continuation

[far34]

Bonsoir,

Je ne pense pas que ça soit possible sans VBA. Vu qu'il faut vérifier si la valeur sortie n'existe pas déjà.
Cette routine devrait faire ce que tu veux :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub AjouterValeurs()
Dim rst As DAO.Recordset
Dim ValeurChamp As Long
Dim RECALCULER As String
Set rst = CurrentDb.OpenRecordset("T_Table1", dbOpenDynaset)
With rst
    .MoveFirst
    While Not .EOF
 
RECALCULER:
     Randomize
     ValeurChamp = Int((30000 - 20000 + 1) * Rnd + 20000) + Rnd
     .FindFirst "[ChampAleat]=" & ValeurChamp
 
     If Not .NoMatch Then
         GoTo RECALCULER
     End If
     .Edit
     ![ChampAleat] = ValeurChamp
     .Update
     .MoveNext
    Wend
End With
rst.Close
Set rst = Nothing
End Sub

Il faut que tu aies une table T_Table1 avec un champ ChampAleat et d'autres champs remplis de données.

Bonne continuation

Salut
J'ai renomé la table et le champ.
Mais c'est ou qu'il faut ajouté le code.?
Quand je l'ajout dans l'editeur ca marche pas?

Merci

[madefemere]

Bonjour,

Tu crées un nouveau module indépendant et tu colles le code dedans.

Après,
1- soit tu appelles le code dans la fenêtre d'exécution : tu tapes le nom de la fonction et appuies sur Enter.
2- soit tu crées un bouton ou n'importe contrôle dans un formulaire. Et tu appelles la fonction à partir d'un évènement du contrôle.

Le choix dépend si t'as besoin de faire l'opération une seule fois ou à répétition.

Bonne continuation

[far34]

Bonjour,

Tu crées un nouveau module indépendant et tu colles le code dedans.

Après,
1- soit tu appelles le code dans la fenêtre d'exécution : tu tapes le nom de la fonction et appuies sur Enter.
2- soit tu crées un bouton ou n'importe contrôle dans un formulaire. Et tu appelles la fonction à partir d'un évènement du contrôle.

Le choix dépend si t'as besoin de faire l'opération une seule fois ou à répétition.

Bonne continuation

J'ai reussi à comprendre ou entrée le code, sauf que j'ai un message d'erreur qui aparait dans une boite lors l'exécution
Ça dit : Erreur de compilation: Type défini par l'utilisateur non défini et il met par la suite en noire la deuxième ligne du code "As DAO.Recordset"

Est ce que ça te dit quelquechose??

[Robert1957]

Bonjour far34,

Dans la fenêtre VBA sous Outils, Références, tu dois cocher la référence Microsoft Office XX.X Object Library.

Bonne journée

[Tofalu]

Une autre solution consiste à verser les données dans une table dont une des colonnes sera de type long avec comme valeur par défaut =GenUniqueId()

Un peu de lecture : http://www.developpez.net/forums/d30...registrements/

[far34]

Une autre solution consiste à verser les données dans une table dont une des colonnes sera de type long avec comme valeur par défaut =GenUniqueId()

Un peu de lecture : http://www.developpez.net/forums/d30...registrements/

J'ai essayer GenUniqueId(), mais ça génère des nombres réel positif et négatif même si j'indique Entier Log??
De plus, que j'aimerias que ça soit des chiffres entiers dans un intervalle définie.
Je pense que j'ai le même problème que Krina85. Je vais continuer à lire le poste que tu as partager.
Merci

[far34]

Bonsoir,

Je ne pense pas que ça soit possible sans VBA. Vu qu'il faut vérifier si la valeur sortie n'existe pas déjà.
Cette routine devrait faire ce que tu veux :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub AjouterValeurs()
Dim rst As DAO.Recordset
Dim ValeurChamp As Long
Dim RECALCULER As String
Set rst = CurrentDb.OpenRecordset("T_Table1", dbOpenDynaset)
With rst
    .MoveFirst
    While Not .EOF
 
RECALCULER:
     Randomize
     ValeurChamp = Int((30000 - 20000 + 1) * Rnd + 20000) + Rnd
     .FindFirst "[ChampAleat]=" & ValeurChamp
 
     If Not .NoMatch Then
         GoTo RECALCULER
     End If
     .Edit
     ![ChampAleat] = ValeurChamp
     .Update
     .MoveNext
    Wend
End With
rst.Close
Set rst = Nothing
End Sub

Il faut que tu aies une table T_Table1 avec un champ ChampAleat et d'autres champs remplis de données.

Bonne continuation

Salut,
j'ai réussi à faire rouler le module mais mon VBA plante.
Et j'ai seulement un chiffre qui parait sur ma table.

[far34]

Bonjour far34,

Dans la fenêtre VBA sous Outils, Références, tu dois cocher la référence Microsoft Office XX.X Object Library.

Bonne journée

Salut,
J'ai réussi a faire rouler le code, mais j'ai un problème de code.
Est ce qu’il y a quelqu'un qui reconnait le défauts

[Tofalu]

Quel est le message d'erreur ?

[far34]

Quel est le message d'erreur ?

voila

[far34]

On fait.
J'ai une requête d'Ajout qui envois les données à la table T_Table1, et dans la table, j'ai crée un champ ChampAleat qui devrait me générer des numéro compris dans un intervalle et sans doublons.