[VBA] algo pour incrémentation type mois-num

Version imprimable

Lut' a tous

Voila mon probléme: quand j'ouvre un formulaire je dois génerer un code de type M-X, M étant le numero du mois en cours et X et le Num d'une commande durant le mois. Voila le code que j'ai établie en m'aidant de la FAQ (http://php.developpez.com/faq/?page=dates#date_jma)
Code:

1 2 3 4 5 6 7 8 9 10 11 $date = "now"; list($jour, $mois, $annee) = sscanf($date, "%d-%d-%d") code = DMax("codecommandefournisseur", "gecommandefournisseur") dmois = Left(code, Len(code) - 4) ref = Right(code, 3) if ($mois > dmois) then dmois = $mois End If resultat = dmois & ref + 1 nouv![codecommande] = resultat
il s'agit de la table: gecommandefournisseur avec pour champs:
numcommndefournisseur (num auto), codecommandefournisseur et date
mais alors mon code marche pas du tout!!!:aie:
si quelqu'un pouvait m'aider?:roll:

03/08/2006, 15h04
Nohant

hum, tu aurais pas repiqué un code en php ? parce que la syntaxe que tu utilises ne risque pas de marcher en vba :P
03/08/2006, 15h06
Kelly182

oups!!!! maintenant que tu le dis!!! j'avais pas vu que j'etait dans la faq PHP!!
8O

en terme de syntaxe ça serait plutôt du genre

Code:

1
2
3
4
5
6
7
8
9
10
strMois = DatePart("m", Now)
code = DMax("codecommandefournisseur", "gecommandefournisseur")
    dmois = Left(code, Len(code) - 4)
    ref = Right(code, 3)
    If (strMois > dmois) Then
        dmois = strMois
    End If
resultat = dmois & ref + 1
 
nouv![codecommande] = resultat

par compte ton code à 1ère vue ne gère pas le cas où la dernière commande date du mois précédent. Je pense qu'il manque un test du genre

Code:

1
2
3
4
5
    If (strMois > dmois) Then
        resultat = strMois & 1
    else
        resultat = dmois & ref + 1
    End If

03/08/2006, 15h27
Kelly182

oui c'est vrai, j'avais oublier le cas du mois de janvier et decembre, merci
ca marche nickel, sauf que je cherche la comment faire pour que ref soit un chiffre de type 003 et non 3. je pense teste la valeur a chaque fois et si la valeur et en dessous de 10 alors je rajoute deux zeros, et ainsi de suite
encore merci!
03/08/2006, 16h26
Nohant

Citation:

chiffre de type 003

jusqu'à présent les zéros à gauche sont non significatifs en mathématique :lol:

ce que tu veux c'est en réalité une chaîne de caractères

tu fais par ex :

Code:

ref = String(3 - len(ref), "0") & ref

donc si ref vaut 1 ça donne 001
si ref vaut 12 ça donne 012
si ref vaut 123 ça donne 123

@+
03/08/2006, 16h28
cafeine

et Format(Nombre, "000") aussi ;)

en fait pour les nombres j'ai fait comme ca:

Code:

1
2
3
4
5
 If (ref + 1 < 10) Then
           resultat = dmois & 0 & 0 & ref + 1
    ElseIf (ref + 1 < 100 And ref + 1 > 9) Then
           resultat = dmois & 0 & ref + 1
    End If

pour l'instant ca marche pour le premier cas.
merci a tous