Incrementation automatique en vb6.0

Messages postés
2
Date d'inscription
mercredi 4 mai 2016
Dernière intervention
5 mai 2016
- 4 mai 2016 à 12:53 - Dernière réponse :
Messages postés
1710
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
20 novembre 2018
- 4 mai 2016 à 15:06
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 

Votre réponse

2 réponses

Messages postés
18039
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
4 mai 2016 à 14:42
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
1710
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
20 novembre 2018
4 mai 2016 à 15:06
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

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.