Discussion :

[campello]

Bonjour,
dans un formulaire, j'utilise le code suivant, repris sur ce forum.

Code :

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

1
2
3
Private Sub Form_BeforeInsert(Cancel As Integer)
  NuméroBonCommande = CStr((Year(Now) * 10000) + Nz(DCount("[NuméroBonCommande]", "Commandes", "[NuméroBonCommande] Like '" & Year(Now) & "*'"), 0) + 1)
End Sub

je voudrais lorsque je lance une requete, pouvoir recupérer la valeur du champ la plus elevé.

Avez vous des piste, j'ai essayé max mais ... non

Merci à tous

Manu

[Tofalu]

Bonsoir,

C'est pourtant bien max qu'il faut utiliser.

En SQL :

Code :

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

SELECT Max(MonChamp) FROM MaTable

Ou alors, je n'ai pas compris la question

[campello]

le forum, tofalu,

J'ai déjà essayer mais cela ne marche toujours pas

Mon champ et au format texte est ce génant

Manu

[vodiem]

salut Tofalu et campello,

j'ai le souvenir d'avoir pondu un truc comme ca...

attention de reprendre dans le contexte (remise à zéro chaque année) et de comprendre la nuance avec un DMax():

Code :

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

NuméroBonCommande = CStr((Year(Now) * 10000) + Nz(DMax("[NuméroBonCommande]", "Commandes", "[NuméroBonCommande] Like '" & Year(Now) & "*'"), 0) + 1)

ou autrement comme cela:

Code :

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

NuméroBonCommande = CStr((Year(Now) * 10000) + Nz(DMax("[NuméroBonCommande]", "Commandes"), 0) + 1)

qui à une nuance près ne donne pas forcement le même résultat...

[campello]

Bonjour,
J'ai essayé... mais j'y parviens toujours pas.
POuvez m'aider svp avec le fichier joint
Merci bcp
Manu

[LedZeppII]

Bonsoir,

Ton champ [N°Commande] est de type texte au format "aaaa0000"
où aaaa est l'année et 0000 un compteur.

DMax renvoie soit une chaîne au même format, soit Null.
Dans le premier cas il ne faudra pas ajouter l'année*10000, car on l'a déjà.
Dans le deuxième, il faut que Nz remplace Null par l'année*10000

Code :

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

1
2
3
4
5
Private Sub Form_BeforeInsert(Cancel As Integer)
  Dim lgNumSuivant As Long
  lgNumSuivant = CLng(Nz(DMax("[N°Commande]", "bd", "[N°Commande] Like '" & Year(Now) & "*'"), Year(Now) * 10000)) + 1
  N°Commande = CStr(lgNumSuivant)
End Sub

A+

[campello]

Bonjour,

J'ai utilisé le code fourni par LedZeppII.

Ensuite je vais mettre dans une requête la fonction DMAX.
Elle n'y ai pas . Je pense que je fais fausse route.

En fait, je me sers pour le moment d'une requête qui me demande de tapez un n° de commande. Cette requête fait l'objet d'un état, qui me donne la commande en fonction du n° renseigné.

Ce que je veux mettre en place, c'est que lorsque je lance l'état, je n'ai pas besoin de noter mon N° de commande, il va me chercher le dernier enregistré.

Pouvez vous me donner votre avis svp

Merci à tous

Manu

[campello]

Bonjour le forum,

Je me casse la tête sur cette commande. (mon n° max saisie)
Je me suis dit :
Je vais créer un compteur n° auto en parrallèle de mon n° de commande.
Forcement le n° max sera à chaque coup en concordance avec mon denier n° de commande.
J'ai mis cette fomule dans ma requete : max([n°])

J'ai le message suivant :
impossible d'avoir une fonction d"agregat dans la clause where (bd.N°=min([n°]).

Quelquu'un peux m'aider...

Je n'ai pas la fonction DMAX comme annoncé plus haut......?

Merci d'avance à tous

Manu

[LedZeppII]

Bonsoir,

Sur la base de ta pièce jointe, voici une requête qui sélection les enregistrements de la table bd, dont le champ N°Commande est égal à la valeur max de ce champ

Code sql :

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

1
2
3
SELECT bd.N°, bd.N°Commande, bd.NOM, bd.Prix
FROM bd
WHERE (((bd.N°Commande)=DMax("N°Commande","bd")));

En mode création cela donne comme critère pour le champ N°Commande

Code :

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

MaxDom("N°Commande";"bd")

MaxDom est la traduction locale de DMax.

A+