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
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
212
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
1946
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
6 octobre 2019
68
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