Discussion :

[Fossil72]

Bonjour,
Je voudrais créer une fonction publique permettant de trouver la valeur la plus haute d'un champ d'une table. Ce cahmp est de type numérique entier.
Cette fonction retournerait la valeur maxi sur la base de 2 paramètres (nom de la table et nom du champ de cette table)
Mon code est le suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Function DernierAT(Nom_Table As String, Nom_Champ As String) As Integer
Dim rst As DAO.Recordset
Dim str_maxiAT As String
Dim int_dernierAT As Integer
 
str_maxiAT = "Select Max(" & Nom_Champ & ") as IDMax from " & Nom_Table & " "
MsgBox str_maxiAT
Set rst = CurrentDb.OpenRecordset(str_maxiAT, dbOpenForwardOnly, dbReadOnly)
 
DernierAT = rst("IDMax")
rst.Close
Set rst = Nothing
End Function

J'ai essayé plusieurs combinaisons, toutes avec des erreurs (différentes !). Celle qui correspond au code ci dessus est l'"erreur 3601 : trop peu de paramètres 1 attendu"

pouvez vous me dire ce qui ne vas pas ?
Je suis nouveau sur le forum.

[bernardmichel]

Hello !

Essayes peut-être ceci, des apostrophes avant et après un champ string (Nom_Table):

Code :

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

1
2
3
4
5
6
 
str_maxiAT = "Select Max(" & Nom_Champ & ") as IDMax from '" & Nom_Table & "'"
Set rst = CurrentDb.OpenRecordset(str_maxiAT, dbOpenForwardOnly, dbReadOnly)
DernierAT = rst("IDMax")
rst.Close
Set rst = Nothing

Cordialement

[marot_r]

Bonjour.

Pourquoi ne pas utiliser DMax() à la place de ta fonction ? Cela fait exactement cela et c'est déjà codé dans Access.

ex :

Code :

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

=Nz(DMax("TonChamp","TaTable"),0)

Attention avec NZ(), elle fait parfois sauter les décimales.

Sinon à propos de ton problème, vérifie que ni le nom du champ ni le nom de la table ne contienne de blancs.

Une méthode si tu as des blancs dans tes noms et de toujours encadrer les noms de champ, table et requête par des crochets.

Ici cela donnerai

Code :

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

"Select Max([" & Nom_Champ & "]) as IDMax from [" & Nom_Table & "]"

Une méthode simple quand on débug du SQL généré par code est

1. De mettre un point d'arrêt juste après la création de la chaîne SQL.
2. De taper [Ctrl][g] pour faire apparaître la fenêtre d'exécution immédiate.
3. De taper ? NomTaVariableSQL [Enter] pour faire afficher le SQL.
4. Sélectionner le SQL affiché et le copier dans le SQL d'une requête vierge,
5. Demander à afficher la requête.

Ça aide généralement à trouver le problème.

A+

[Fossil72]

Bonjour BernardMichel et Marot r.

Merci de vos réponses.
J'ai essayé avec les apostrophes et j'obtient le message "erreur d'execution 3450 : erreur de syntaxe dans la requète. La clause de la requète est incomplète"
La visualisation du code montre un surligné en jaune de la ligne set (la même ligne qui posait problème auparavant).

je vais essayer avec la fonction DMAX. Je ne voulais pas l'utiliser car il m'a été dit qu'elle était consommatrice en ressource machine (mais je suis très loin d'être un expert dans le domaine)Est ce vrai ?
Sinon mais nomss ne contiennet pas de blancs, mais l'information est très utile car j'ai "ramé" avant de trouver les & et autre " à mettre autour des noms pour indiquer que c'est le contenu qui est à prendre en compte et non le nom lui même.

Merci de votre aide

[marot_r]

je vais essayer avec la fonction DMAX. Je ne voulais pas l'utiliser car il m'a été dit qu'elle était consommatrice en ressource machine (mais je suis très loin d'être un expert dans le domaine)Est ce vrai ?

Oui c'est ce que j'ai entendu aussi mais personnellement je n'ai jamais expérimenté de sérieux problèmes de performance en l'utilisant.
Il faudrait la comparer avec ton code pour vérifier si elle est plus rapide ou moins rapide mais elle a l'avantage d'exister déjà.
De plus avec la montée en puissance des machines sauf sur des gros ou très gros volumes je ne suis pas certain qu'on verrait une différence significative.

Si tu veux gagner en vitesse, que tu veux juste lire des données "fixes" durant ta lecture (ex : une table de référence), tu peux ouvrir tes recordsets en mode dbOpenSnapShot.
Ça je l'ai testé et cela diminue par deux le temps d'accès aux données par rapport à un dbOpenDynaSet. Toute fois dans la majeur partie des cas, le dbOpenDynaset est bien suffisant.

A+

[Fossil72]

Voilà j'ai essayé le code
DernierAT = Nz(DMax(" & Nom_champ & ", " & nom_table & "), 0)
Et j'ai eu une erreur

J'ai essayé également
? rst et j'ai eu une erreur d'exécution 91 variable objet non définie.

Je ne sais que faire

[bernardmichel]

Hello !

Alors, essayes cela:

Code :

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

DernierAT = Nz(DMax(Nom_champ, nom_table), 0)

[Fossil72]

Bonjour,

Merci BernardMichel. ça marche
Merci aussi à Maro_r pour son aide.