Incrementation automatique en vb6.0

Messages postés
2
Date d'inscription
mercredi 4 mai 2016
Statut
Membre
Dernière intervention
5 mai 2016
-
Bonjour,

J'aimerais avoir le code en vb6.0 pour faire une incrémentation automatique de ma clé primaire,

J'ai essayer avec ce code ci dessous:

Dim autonumber As long 
dim nummax as long
 
nummax = DCount("num", "depot")
If IsNull(nummax) Then
    autonumber =  "01"
Else
If nummax < 10 Then
    autonumber = "0" & (nummax + 1)
Else
If nummax < 100 Then
    autonumber = (nummax + 1)
Else
If nummax > 100 Then
    autonumber =  (nummax + 1)
Me.Text1 = autonumber
End If
End If
End If
End If
end sub


mais sa ne tient pas
Afficher la suite 

2 réponses

Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
215
0
Merci
Bonjour,
C'est quoi, Dcount sous VB6 ? Sorti d'un chapeau ? ou fonction de ton cru ? Et quel est alors le code de cette fonction ?????
Commenter la réponse de ucfoutu
Messages postés
1984
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
12 décembre 2019
79
0
Merci
Bonjour
Et en plus beau mélange entre des variables numériques et des variables chaines de caractères
Un bonjour à ucfoutu
Commenter la réponse de vb95