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

[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.