Bonjour,
voila ma proposition.
Function NouvId(Table, Champ, Optional Incr = 1) As Long
Dim s As Single, vMax As Variant
If Incr = 1 Then
Randomize
Do
s = Rnd() * 4294967294#...
Bonjour,
voila ma proposition.
Function NouvId(Table, Champ, Optional Incr = 1) As Long
Dim s As Single, vMax As Variant
If Incr = 1 Then
Randomize
Do
s = Rnd() * 4294967294#...
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.