Generation automatique
protozorus
Messages postés
38
Date d'inscription
mardi 13 décembre 2005
Statut
Membre
Dernière intervention
1 novembre 2007
-
15 févr. 2006 à 09:23
thetoto52 Messages postés 87 Date d'inscription lundi 9 janvier 2006 Statut Membre Dernière intervention 11 novembre 2008 - 15 févr. 2006 à 10:44
thetoto52 Messages postés 87 Date d'inscription lundi 9 janvier 2006 Statut Membre Dernière intervention 11 novembre 2008 - 15 févr. 2006 à 10:44
A voir également:
- Génération automatique
- Création automatique de documents - Forum ASP / ASP.NET
- Défilement automatique page web - Forum Javascript / DHTML
- Visual studio code retour à la ligne automatique - Forum Visual Basic
- Desactiver le retour à la ligne d'une RichTextBox - Forum VB.NET
- Echange de lien automatique ✓ - Forum PHP
4 réponses
Mindiell
Messages postés
558
Date d'inscription
jeudi 25 juillet 2002
Statut
Membre
Dernière intervention
5 septembre 2007
1
15 févr. 2006 à 09:48
15 févr. 2006 à 09:48
Si tu as une base, tu peux chercher l'id max, et y ajouter un...
Si plusieurs personnes utilisent ta base en même temps, c'est un poil plus complexe...
Mindiell Software
Si plusieurs personnes utilisent ta base en même temps, c'est un poil plus complexe...
Mindiell Software
galopin01
Messages postés
133
Date d'inscription
lundi 4 octobre 2004
Statut
Membre
Dernière intervention
14 octobre 2011
1
15 févr. 2006 à 09:54
15 févr. 2006 à 09:54
Bonjour,
cette fonction renvoie un N° incrémenté à chaque appel:
Private Function NewNum() as String
Dim pref$, sFich$, z$, NumInc$
pref = "zk" & Right(Year(Date), 2) & Format(Month(Date), "00")
sFich = pref & "???.dat"
z = Dir(sFich)
If z = "" Then
Open pref & "001.dat" For Random As #1
Close #1
End If
z = Dir(sFich)
NumInc = Format(CInt(Mid(z, 7, 3)) + 1, "000")
Name z As Left(z, 6) & NumInc & Right(z, 4)
NewNum = Mid(z, 3, 7)
End Function
...Sous la forme AAMMNNN (AA année, MM mois, NNN = nombre)
Nota : La fonction génère un fichier : ZAAMM???.dat dans le répertoire de travail.
A+
cette fonction renvoie un N° incrémenté à chaque appel:
Private Function NewNum() as String
Dim pref$, sFich$, z$, NumInc$
pref = "zk" & Right(Year(Date), 2) & Format(Month(Date), "00")
sFich = pref & "???.dat"
z = Dir(sFich)
If z = "" Then
Open pref & "001.dat" For Random As #1
Close #1
End If
z = Dir(sFich)
NumInc = Format(CInt(Mid(z, 7, 3)) + 1, "000")
Name z As Left(z, 6) & NumInc & Right(z, 4)
NewNum = Mid(z, 3, 7)
End Function
...Sous la forme AAMMNNN (AA année, MM mois, NNN = nombre)
Nota : La fonction génère un fichier : ZAAMM???.dat dans le répertoire de travail.
A+
protozorus
Messages postés
38
Date d'inscription
mardi 13 décembre 2005
Statut
Membre
Dernière intervention
1 novembre 2007
15 févr. 2006 à 10:03
15 févr. 2006 à 10:03
Hum re,
Je ne comprends pas vraiment la fonction,
Je voudrait que ca genere un ombre entre 1 et 9999 a chaque ouverture sans que le nombre se repete
merci kan mm
Je ne comprends pas vraiment la fonction,
Je voudrait que ca genere un ombre entre 1 et 9999 a chaque ouverture sans que le nombre se repete
merci kan mm
thetoto52
Messages postés
87
Date d'inscription
lundi 9 janvier 2006
Statut
Membre
Dernière intervention
11 novembre 2008
15 févr. 2006 à 10:44
15 févr. 2006 à 10:44
Pour faire simple
1 tu utilise une base de donnée avec multi utilisataeur ou mono
tu te reserve un endroit dans tabase de donnée une table parame
et a chaque fois que tu ouvre un formulaire tu vas chercher le nombre que tu a conservé dans ta table et tu lui ajoute 1.
Il ne te rest plus qu'a aficher ce nombre
2 tu nutilise pas de base de donnée
fait ma meme chose mais en ecrivant dant un fichier text.
1 tu utilise une base de donnée avec multi utilisataeur ou mono
tu te reserve un endroit dans tabase de donnée une table parame
et a chaque fois que tu ouvre un formulaire tu vas chercher le nombre que tu a conservé dans ta table et tu lui ajoute 1.
Il ne te rest plus qu'a aficher ce nombre
2 tu nutilise pas de base de donnée
fait ma meme chose mais en ecrivant dant un fichier text.
