Discussion :

[Braiice]

Bonjour,

J'ai le besoin suivant:

Récupérer la valeur "Montant" dans une requête qui ne renvoi qu'une seule ligne.

Je pensais que ca allait être très simple mais j'ai une succession d'erreur...
Au début je pensais passer par un recordset puis pour court-circuiter l'erreur j'ai voulu passer par un DLookup pour au final revenir sur le recordset... sans succès.

Voici mon code actuel:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Function AffichageMontant()
 
Dim Montant As Integer
Dim rstACTION As DAO.Recordset
Dim strSQL As String
 
'-- lecture de la requête pour récupérer le montant total relancé
strSQL = "SELECT ACTIONS.NUM_ACTION, ACTIONS.Montant FROM Actions WHERE (((ACTIONS.NUM_ACTION)=[Formulaires]![Saisie Action]![NUM_ACTION]));"
 
'-- ouverture d'un recordset contenant résultat de la requête action
Set rstACTION = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
 
'-- test du volume du recordset, s'il est vide: fin de la procédure
If rstACTION.EOF Then Exit Sub
 
MsgBox (Montant)
 
End Function

Et j'ai l'erreur suivante qui pop: "Erreur '3061', trop peu de paramètres. Au moins 1 attendu" sur la ligne suivante:

Code :

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

Set rstACTION = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)

Remarques: cette fonction est intégrée dans un module avec une autre fonction qui comporte des variables du même nom, est-ce un problème ? Initialement, cette fonction étant complémentaire, je l'avais directement inclue dans la fonction principale, mais pour gérer l'erreur je l'ai ressortie afin d'y voir plus clair.
J'ai cherché pendant 2 bonnes heures sans succès ...

Merci

[marot_r]

Bonjour.

Quand on tape du SQL, il faut que tout soit en Anglais.

Code :

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

"SELECT ACTIONS.NUM_ACTION, ACTIONS.Montant FROM Actions WHERE (((ACTIONS.NUM_ACTION)=[Forms]![Saisie Action]![NUM_ACTION]));"

Et c'est vicieux car si tu regardes le SQL cree par Access tu as sans doute [Formulaires]. Ca arrive parfois. Access oublie de traduire et cela ne semble pas le gener.

A+

[Braiice]

Salut !

Merci pour ta réponse, j'ai essayé. Sans succès .

Toujours la même erreur sur la ligne annoncée...

[marot_r]

OK, l'autre cause classique est une faute d'orthographe dans un des noms de champ.

Access prend cela pour une demande de parametre.

Copie ton SQL dans une requete vierge et demande a voir le resultat, cela devrait te donner une piste.

A+

[Braiice]

Problème résolu.

Ce n'était pas un problème de syntaxe ou d'orthographe mais un problème de logique : le chat se mordait la queue.
Ca m'a permis de simplifier et de me rendre compte que j'avais une solution encore plus simple pour récupérer ce que je voulais... Et ca m'a pris 1 ligne à ajouter dans la fonction principale................................

Merci pour votre aide en tout cas,

Bye

[Braiice]

Bonjour,

Je sèche sur un problème tout à fait similaire mais sur une autre fonctionnalité de mon code et j'ai clairement identifié ce qu' Access n'apprécie pas.

Lors de l'ouverture d'un recordset contenant une requête il y a bug si dans la requête il y a un critère qui pointe vers un contrôle de formulaire.
La requête est juste, puisqu'elle tourne dans le QBE. J'ai modifié les termes FR pour qu'ils soient en anglais.

Toujours la même erreur:

"Erreur d'exécution '3061': trop peu de paramètres. 1 attendu"

L'erreur intervient sur le Set rstCONTACT

Code :

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

1
2
3
4
5
6
7
 
strSQL = "SELECT TEMP_FACT_A_RELANCER.[Date_piece], TEMP_FACT_A_RELANCER.LECR, TEMP_FACT_A_RELANCER.Montant FROM TEMP_FACT_A_RELANCER WHERE (((TEMP_FACT_A_RELANCER.[A_RELANCER O/N])=True));"  '-- sans intérêt pour le sujet
 
strSQL2 = "SELECT CONTACTS.Civilité, CONTACTS.[Nom contact], CONTACTS.Prénom, CONTACTS.Mail FROM Contacts WHERE((([Nom contact] & ' ' & [Prénom])=[Forms]![Saisie Action]![INTERLOCUTEUR]));"
 
Set rstTEMPFACT = dbsBalCli.OpenRecordset(strSQL, dbOpenDynaset) '-- sans intérêt pour le sujet
Set rstCONTACT = dbsBalCli.OpenRecordset(strSQL2, dbOpenDynaset)

Quand je supprime le critère de ma requête SQL, donc en gros pas de clause WHERE, ou quand je fixe la valeur dans le critère à autre chose qu'un contrôle de formulaire, le code tourne sans pb.

Help, c'est un besoin pressant ...

[marot_r]

Bonjour.

Code :

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

1
2
3
strSQL2 = "SELECT CONTACTS.Civilité, CONTACTS.[Nom contact], CONTACTS.Prénom, CONTACTS.Mail"
strSQL2 = strSQL2  & " FROM Contacts"
strSQL2 = strSQL2  & " WHERE ([Nom contact] & ' ' & [Prénom])=[Forms]![Saisie Action]![INTERLOCUTEUR];"

Comme c'est un zone de texte, il faut utiliser les delimiteurs adaptes soit l'apostrophe ou le guillemet (et perso, je prefere les guillemets) donc je pense que la solution est :

Code :

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

1
2
3
strSQL2 = "SELECT CONTACTS.Civilité, CONTACTS.[Nom contact], CONTACTS.Prénom, CONTACTS.Mail"
strSQL2 = strSQL2  & " FROM Contacts"
strSQL2 = strSQL2  & " WHERE [Nom contact] & "" "" & [Prénom] =""" & [Forms]![Saisie Action]![INTERLOCUTEUR] & """"

J'ai enleve les parantheses qui ne seravaient a rien.

A+

[marot_r]

Une autre facon de remonter la piste du bug est

1. passer en mode debug
2. se mettre dans la fenetre d'execution immediate ([ctrl][g])
3. taper : ? rstCONTACT.parameters(1).name [Enter] (ou 0, je ne me souviens jamais ou commence la sequence)

Ca va afficher le nom du parametre attendu par Access

A+

[Braiice]

Merci beaucoup, la requête SQL a été comprise. Je faisais une erreur ou Access n'aime simplement pas sous la forme initiale ?

[tee_grandbois]

bonjour,

Je faisais une erreur ou Access n'aime simplement pas sous la forme initiale ?

L'erreur est assez fréquente d'inclure des paramètres issus d'un formulaire à la construction du SQL d'un RecordSet entre les délimiteurs "".
Il faut savoir qu'on peut utiliser cette méthode pour le RecordSource d'un formulaire ou le contenu d'une liste déroulante mais pas pour un RecordSet dans VBA, ou alors il faut utiliser Parameters comme te l'as indiqué marot_r.
Le plus simple c'est de concaténer les paramètres à la phrase SQL : "WHERE param =" & Me!monparam & " And ..."