Discussion :

[Kelly182]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!!!
si quelqu'un pouvait m'aider?

[Nohant]

hum, tu aurais pas repiqué un code en php ? parce que la syntaxe que tu utilises ne risque pas de marcher en vba

[Kelly182]

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

[Nohant]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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!

[Nohant]

chiffre de type 003

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

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

tu fais par ex :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

@+

[cafeine]

et Format(Nombre, "000") aussi

[Kelly182]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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