Incrementation automatique en vb6.0

Signaler
Messages postés
2
Date d'inscription
mercredi 4 mai 2016
Statut
Membre
Dernière intervention
5 mai 2016
-
Messages postés
2252
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
29 octobre 2020
-
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

2 réponses

Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
230
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 ?????
Messages postés
2252
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
29 octobre 2020
115
Bonjour
Et en plus beau mélange entre des variables numériques et des variables chaines de caractères
Un bonjour à ucfoutu