Discussion :

[Popperwin]

Bonjour,

J'ai besoin d'aide afin de finir mon projet.

Je souhaiterai lorsque je clique sur "Valider", générer un code unique et introuvable pour le commun des mortels.



Je ne sais pas comment faire. Mon formulaire marche parfaitement, cependant il reste une colonne de ma table qui n'est pas renseignée. La colonne "Code".

Avec les informations présente dans ce formulaire :

• Nom de la société
• Zone
• Installation
• Date
• Numéro identification (NuméroAuto dans mon cas)

Est-il possible de générer un code totalement aléatoire et unique, et l'inclure dans ma table_DemandeConsignation lorsque je clic sur Valider ?

Exemple de code : Sur une base de 6 caratères

4Xd854
789dF1
1047qP
Z504wS
...etc

Je vous remerice !

[Tofalu]

Une astuce :

Dans la structure de la table, définir le champ Code en entier Long, valeur par défaut "=GenUniqueId()"

Et ainsi,à chaque nouvel enregesitrement, un code aléatoire unique sera défini.

Par contre cela donnera un entier.

Si tu veux vraiment une chaine sur 6 caractères, il te faudra écrire ta propre fonction, à partir par exemple de la fonction Rnd et une conversion Hexadécimale.

Une piste :

Code :

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

1
2
3
4
Const NBMAX = 16777215
Dim n As Long
n = Int(NBMAX * Rnd + 1)
MsgBox Hex(n)

Pour empécher les doublons, il faudra indexer le champ Code sans doublon et tenter l'insertion jusqu'à ce que la valeur soit acceptée

[Tofalu]

Grossièrement, dans la valeur par défaut d'un contrôle :

Code :

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

1
2
3
4
5
6
7
8
9
Function CreationCodeUnique() As String
Const NBMAX = 16777215
Dim n As Long
Do
    n = Int(NBMAX * Rnd + 1)
    DoEvents
Loop While Not IsNull(DLookup("Code", "tblTest", BuildCriteria("Code", dbText, Hex(n))))
CreationCodeUnique = Hex(n)
End Function

[Popperwin]

Salut Tofalu est merci pour tes réponses.

Dans un premier temps j'ai testé avec la valeur par défaut "=GenUniqueId()".

Cela marche parfaitement. Mais par contre beaucoup trop long et parfois j'ai des valeurs dans le négatif :/

Pour ton deuxième message, je ne sais pas quoi faire. A vrai dire je ne sais même pas ou mettre ces lignes. Dans la code VBA du bouton validé ?

Je te remercie encore

[ilank]

Bonjour,
c'est bien cette idée Popperwin, Tofalu

j'ai ceci à utiliser dans une zone de texte d'un formulaire :
Dans la propriété Valeur par défaut de la zone de texte écrire :
=SetUniqueId(6)

6 représente la taille de la chaine à renvoyer.

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Function SetUniqueId(Optional codeSize As Integer = 2) As String
    Dim CharCode As Byte, Code As String
    if CodeSize<2 then codesize=2
    Randomize
    Do
      CharCode = Int((62 * Rnd) + 1)
      Code = Code & Chr(CharCode + IIf(CharCode < 11, 47, IIf(CharCode < 37, 54, 60)))
     Loop Until Len(Code) = codeSize
    SetUniqueId = Code
End Function

[Tofalu]

Bonjour,
c'est bien cette idée Popperwin, Tofalu

j'ai ceci à utiliser dans une zone de texte d'un formulaire :
Dans la propriété Valeur par défaut de la zone de texte écrire :
=SetUniqueId(6)

6 représente la taille de la chaine à renvoyer.

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Function SetUniqueId(Optional codeSize As Integer = 2) As String
    Dim CharCode As Byte, Code As String
    if CodeSize<2 then codesize=2
    Randomize
    Do
      CharCode = Int((62 * Rnd) + 1)
      Code = Code & Chr(CharCode + IIf(CharCode < 11, 47, IIf(CharCode < 37, 54, 60)))
     Loop Until Len(Code) = codeSize
    SetUniqueId = Code
End Function

Je ne vois pas ce qui garantit l'unicité de la chaîne renvoyée

[Popperwin]

Bonjour,
c'est bien cette idée Popperwin, Tofalu

j'ai ceci à utiliser dans une zone de texte d'un formulaire :
Dans la propriété Valeur par défaut de la zone de texte écrire :
=SetUniqueId(6)

6 représente la taille de la chaine à renvoyer.

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Function SetUniqueId(Optional codeSize As Integer = 2) As String
    Dim CharCode As Byte, Code As String
    if CodeSize<2 then codesize=2
    Randomize
    Do
      CharCode = Int((62 * Rnd) + 1)
      Code = Code & Chr(CharCode + IIf(CharCode < 11, 47, IIf(CharCode < 37, 54, 60)))
     Loop Until Len(Code) = codeSize
    SetUniqueId = Code
End Function

Ok merci.

J'ai utilisé cette fonction. Marche très bien.