Discussion :

[Higmountain]

Bonjour à tous.
Tout d'abord merci à ce site et à tous ceux qui y participent qui m'a beaucoup aidé au cours de mes études. Je poste ce problème car je e trouve la solution nulle part (ma recherche peut ne pas être complète...)

Je cherche à récupérer des statistiques liées à un Utilisateur.
Les Statistiques de chaque utilisateur sont contenues dans la table Statistiques avec comme champ : le numéro de l'utilisateur, le nombre de renouvellemnt demandé jusqu'à cette dernière demande, la date de la demande. Tous en champ Texte (respectivement les noms des champs : Utilisateur / Nombre Renouvellement / date de la demande )

J'utilise une requete d'analyse croisée pour obtenir une table du type suivant :
-----------------------------------------------
|Utilisateur|21/01/2011|22/01/2012|29/07/2012|
-----------------------------------------------
| 1| 0| 1| 2|
-----------------------------------------------
| 2| 3| 4| 5|
-----------------------------------------------
| 3| 0| | |
-----------------------------------------------

Avec un formulaire je veux afficher un graphique qui ne concerne qu'un utilisateur en particulier (ici l'utilisateur 1).

Je cherche donc a exécuter ce bout de code :

Code :

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

1
2
3
4
5
6
7
 
Dim db As DAO.Database, rs As DAO.Recordset, rUser As DAO.Recordset, qdf As DAO.QueryDef
    Set db = CurrentDb
    Rsql = "SELECT * FROM [R_ANALYSE_CROISEE_Stat] WHERE [R_ANALYSE_CROISEE_Stat].[Utilisateur]='" & Me.textUserNumber.Value & "'"
    MsgBox (Rsql)
    Set qdf = db.CreateQueryDef("", Rsql)
    Set rs = qdf.OpenRecordset

après éxécution de ce code Access me renvoie un message d'erreur du type :
Erreur d'éxécution 3061
Trop peu de paramètres. 0 attendu.

Or lorsque j'éxécute dans access la requete suivante :

Code :

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

1
2
3
SELECT *
FROM R_ANALYSE_CROISEE_Stat
WHERE R_ANALYSE_CROISEE_Stat.Utilisateur='1';

Elle me renvoie bien ce que je veux :
-----------------------------------------------
|Utilisateur|21/01/2011|22/01/2012|29/07/2012|
-----------------------------------------------
| 1| 0| 1| 2|
-----------------------------------------------

Un bon samaritain pourrais-t-il m'aider ?

D'avance merci.

[marot_r]

Sur quelle ligne se produit l'erreur ?

A+

[Higmountain]

Oh pardon.
L'erreur se produit sur la ligne : Set rs = qdf.OpenRecordset

Merci.

[marot_r]

Je ne sais pas si c'est relié mais tu n'as pas besoin de l'objet QueryDef

Code :

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

1
2
3
4
5
6
 
    Dim db As DAO.Database, rs As DAO.Recordset, rUser As DAO.Recordset
    Set db = CurrentDb
    Rsql = "SELECT * FROM [R_ANALYSE_CROISEE_Stat] WHERE [R_ANALYSE_CROISEE_Stat].[Utilisateur]='" & Me.textUserNumber.Value & "'"
    MsgBox (Rsql)
    Set rs = db.OpenRecordset(rqsl)

A+

[Higmountain]

En effet, mais même sans le QueryDef (que je n'utilise pas habituellement quand je fais un recordSet), Access m'affiche ce fameux message d'erreur.

Ce que je ne comprends pas, c'est que habituellement, il y a au moins marqué "Trop peu de paramètres. 1 atendu" mais là juste "0 attendu".

Qu'est-ce que cela veut dire ? Qu'il n'y a pas assez de paramètres mais qu'il n'en attend pas plus pour autant ?

C'est assez mystérieux

A+

[marot_r]

Je suis d'accord avec toi, c'est assez étrange.

Tu as fait le test avec le SQL, est-ce bien celui que ta chaîne donne, c-à-d une copie du contenu de la variable, ou est-ce celui que tu penses que ta chaîne donne ?

Aussi essaye en enlevant la clause Where et voit ce que cela produit.

A+

[Higmountain]

Bonjour,
Alors je n'ai pas bien compris ce que tu me demandais dans ta première question.
Comme je le disais dans mon premier post, j'ai testé avec le SQL Access et elle me renvoie bien ce que je veux.

J'ai testé aussi sans la clause Where et j'obtiens la même erreur.

A+

[marot_r]

Dés fois on fait le test qu'on pense être bon, en tapant soi-même le SQL et le SQL produit par le programme est différent de ce qu'on a testé.

Essaye cela :

créer la requête avec l'éditeur de requête (je vais l'appelé : rInterogation mais tu peux mettre ce que tu veux.)

Code :

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

1
2
3
SELECT *
FROM R_ANALYSE_CROISEE_Stat
WHERE R_ANALYSE_CROISEE_Stat.Utilisateur=[prmUtilisateur];

ensuite défini les paramètres comme prmUtilisateur, type Entier long.

après modifie ton code comme suit :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
    Dim db As DAO.Database, rs As DAO.Recordset, rUser As DAO.Recordset
    dim q as dao.qerydef
    Set db = CurrentDb
    set q=db.querydefs("rInterogation")
    q.parameters("prmUtilisateur")=Me.textUserNumber
    Set rs = q.OpenRecordset
    '
    'Ici ton code
    '
   rs.close:set rs=nothing 'Ferme le recordset et libère la mémoire
   set q=nothing 'Libère la mémoire

[Higmountain]

Raah, je viens de réécrire mon code selon tes directives, je lance le formulaire associé au code et ... erreur 3061 (avec toujours 0 attendu sinon c'est pas drôle).

Il y a peut-être un autre moyen de stocker une requete SELECT qu'un recordSet en VBA ?

[Higmountain]

La situation s'est débloquée. Ton idée d'utiliser les paramètres d'une requete est excellente !
Alors l'explication que j'ai pue avoir c'est que l'erreur vient de DAO qui ne prends pas en compte "naturellement" les paramètres de requetes. Pour initialiser les paramètres d'une requete on peut utiliser le code suivant (dans mon cas ):

Code :

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

1
2
3
4
5
 
Dim prm As DAO.Parameters
For Each prm In qdf.Parameters
        prm.Value = Me.textUserNumber
Next

L'erreur 3061 ne se produit plus. Est-ce que tout les problèmes sont résolus ? je ne pense pas, mais l'espoir fait vivre.

Merci beaucoup a toi marot_r.

[marot_r]

Si c'est réglé, appuis sur le bouton en bas de la discussion.

A+