Discussion :

[sebing]

Alors essaie ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub nb_piquets_manquants_1_Click()
    Set oSQL = CurrentDb.QueryDefs("Rqt_piquet_manquant")
    txt = ""
    With oSQL
        Do While Not .EOF
	    txt = txt & Chr(10) & orSQL("deux")
            oSQL.MoveNext
        Loop
    End With
    oSQL.Close
    MsgBox txt
End Sub

@+.

Bonjour,
Ca declenche encore des erreurs
J'ai modifié orSQL("deux") par oSQL("deux")
et j'ai maintenant une erreur "erreur d'execution'438' Proprieté ou méthode non gérée par cet objet"
La ligne surlignée est "Do While Not .EOF"
Ma référence Microsoft DAO 3.6 est bien cochée.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub nb_piquets_manquants_1_Click()
    Set oSQL = CurrentDb.QueryDefs("Rqt_piquet_manquant")
    txt = ""
    With oSQL
        Do While Not .EOF
        txt = txt & Chr(10) & oSQL("deux")
            oSQL.MoveNext
        Loop
    End With
    oSQL.Close
    MsgBox txt
End Sub

Merci de votre patience

Bonne journée
Seb

[zoom61]

Exécute le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub nb_piquets_manquants_1_Click()
    Set oSQL = CurrentDb.QueryDefs("Rqt_piquet_manquant")
    txt = ""
    msgbox oSQL.RecordCount
    With oSQL
        Do While Not .EOF
        txt = txt & Chr(10) & oSQL("deux")
            oSQL.MoveNext
        Loop
    End With
    oSQL.Close
    MsgBox txt
End Sub

Et me dire la valeur qui apparait à l'écran !

[sebing]

Il y a toujours la même erreur et c'est la ligne

msgbox oSQL.RecordCount

qui est surlignée en jaune.
En mode débogage, quand je me mets au dessus de

oSQL("deux")

, un rectangle s'ouvre avec le message suivant oSQL("deux")=<Element non trouvé dans cette collection.>
Pour info ma requête est prise sur une requête d'analyse croisée.
Merci encore

Seb

[Godzestla]

Bonjour,
ça ne peut pas marcher, ta requète oSQL n'étant même pas ouverte.
Remarque que tu la fermes malgré tout en fin de code.

Code :

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

 oSQL.Close

Une fois ta connection correctement ouverte, .RecordCount sera disponible et alimenté.

Je pense qu'avant tout, tu dois te replancher sur les techniques de codage d'accès aux données.

Dans la FAQ il y a assurément un exemple tout cuit qu'il suffira d'a peine adapter.

[zoom61]

Avec ce code cela doit fonctionner :

Code :

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

1
2
3
4
5
6
7
8
9
10
SQL = "SELECT * FROM Rqt_piquet_manquant"
Set oSQL = CurrentDb.OpenRecordset(SQL)
 
txt = ""
 
While Not oSQL.EOF
    txt = txt & Chr(10) & oSQL.Fields(0).Value
    oSQL.MoveNext
Wend
MsgBox txt

[sebing]

Merci pour vos aides et le temps que vous passez a m'aider.
J'ai une nouvelle erreur: "Erreur d'execution'3061', trop peu de parametres. 2 attendu. Et c'est la ligne Set oSQL = CurrentDb.OpenRecordset(SQL) qui est surlignée en jaune.
Je suis vraiement désolé

[zoom61]

Peux-tu envoyer le code de ta requête ?

[sebing]

Peux-tu envoyer le code de ta requête ?

Le code de la requete "Rqt_piquet_manquant

Code :

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

1
2
SELECT IIf(IsNull([1]),[CodeG],[1]) AS un, IIf(IsNull([2]),[CodeG],[2]) AS deux, IIf(IsNull([3]),[CodeG],[3]) AS trois, IIf(IsNull([4]),[CodeG],[4]) AS quatre, IIf(IsNull([5]),[CodeG],[5]) AS cinq, IIf(IsNull([6]),[CodeG],[6]) AS six, IIf(IsNull([7]),[CodeG],[7]) AS sept, IIf(IsNull([8]),[CodeG],[8]) AS huit, IIf(IsNull([9]),[CodeG],[9]) AS neuf, IIf(IsNull([10]),[CodeG],[10]) AS dix, IIf(IsNull([11]),[CodeG],[11]) AS onze, IIf(IsNull([12]),[CodeG],[12]) AS douze, IIf(IsNull([13]),[CodeG],[13]) AS treize, IIf(IsNull([14]),[CodeG],[14]) AS quartoze, IIf(IsNull([15]),[CodeG],[15]) AS quinze, IIf(IsNull([16]),[CodeG],[16]) AS seize, IIf(IsNull([17]),[CodeG],[17]) AS dix_sept, IIf(IsNull([18]),[CodeG],[18]) AS dix_huit, IIf(IsNull([19]),[CodeG],[19]) AS dix_neuf, IIf(IsNull([20]),[CodeG],[20]) AS vingt, IIf(IsNull([21]),[CodeG],[21]) AS vingt_un, IIf(IsNull([22]),[CodeG],[22]) AS vingt_deux, IIf(IsNull([23]),[CodeG],[23]) AS vingt_trois, IIf(IsNull([24]),[CodeG],[24]) AS vingt_quatre, IIf(IsNull([25]),[CodeG],[25]) AS vingt_cinq, IIf(IsNull([26]),[CodeG],[26]) AS vingt_six, IIf(IsNull([27]),[CodeG],[27]) AS vingt_sept, IIf(IsNull([28]),[CodeG],[28]) AS vingt_huit, IIf(IsNull([29]),[CodeG],[29]) AS vingt_neuf, IIf(IsNull([30]),[CodeG],[30]) AS trente, IIf(IsNull([31]),[CodeG],[31]) AS trente_un
FROM [Copie de R_Planning_Analyse croisée(1)];

Le code de la requete Copie de R_Planning_Analyse croisée(1)];

Code :

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

1
2
3
4
5
6
TRANSFORM Count(T_Garde.CodeG) AS PremierDeGarde
SELECT T_Garde.CodeG
FROM R_Planning RIGHT JOIN T_Garde ON R_Planning.CodeG = T_Garde.CodeG
WHERE (((T_Garde.valeur)=1) AND ((T_Garde.obligatoire)=Yes))
GROUP BY T_Garde.CodeG, T_Garde.CodeG, T_Garde.valeur, T_Garde.obligatoire
PIVOT Day([DateJ]) In (1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31);

Encore merci

[zoom61]

Là, je ne vois pas...

[sebing]

Là, je ne vois pas...

Ah si les experts ne trouvent pas je vais avoir du mal à me depatouiller
Je continue a chercher et si je trouve la solution je la mettrais sur le site.

Je vous remercie encore pour l'aide apportée et le temps consacré à etudier mon soucis.

Bonne soirée
Seb

[pier.antoine]

Bonjour

Souvent, le message d'erreur "Erreur d'execution'3061', trop peu de parametres. 2 attendu" signifiat pour moi que dans ma requête il y a des paramètres à passer, qui ne le sont pas.

Une piste :
mettre un point d'arrêt juste après avoir défini la chaîne sql de la requête.
Faire un debug.print pour afficher cette chaîne sql.
La copier dans une requête vie, et voir si tout va bien.

Si tout va mal, trouver et corriger.

Pierre

[zoom61]

As-tu essayé de lancer ta requête ? Car cela correspond à un problème de requête et pas de code...

[sebing]

Merci Pierre, je vais essayer demain.
Oui Zoom61 la requête fonctionne.
À première vue ce serait donc un problème de requête, la requête est prise sur une requête d analyse croisée, c est pas ce type de requête qui poserait problème ?
Merci de vos aides, je continue à chercher.
Bonne soirée
Seb

[zoom61]

J'ai fait le test avec une requête d'analyse croisée et cela fonctionne correctement.

[sebing]

J'ai fait le test avec une requête d'analyse croisée et cela fonctionne correctement.

J'ai continuer a gratter, c'est une requete dont depend ma requete analyse croisee qui emet cette erreur.
Cette requete a un filtre pris sur mon formulaire, mais l'erreur est toujours presente meme quand le formulaire est ouvert.
Voici le code de la requete qui pose probleme:

Code :

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

1
2
3
4
PARAMETERS [Forms]![F_Planning]![An] Value, [Forms]![F_Planning]![Mois] Value;
SELECT T_Planning.Matricule, T_Planning.DateJ, T_Planning.CodeG
FROM T_Planning
WHERE (((Year([DateJ]))=[Forms]![F_Planning]![An]) AND ((Month([DateJ]))=[Forms]![F_Planning]![Mois]));

Merci encore pour vos implications
Bonne journée
Seb

[zoom61]

As-tu essayé sans la ligne :

Code :

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

PARAMETERS [Forms]![F_Planning]![An] Value, [Forms]![F_Planning]![Mois] Value;

Je ne vois pas à quoi elle sert dans ton cas, car tu prends les valeurs dans le formulaire.

[sebing]

As-tu essayé sans la ligne :

Code :

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

PARAMETERS [Forms]![F_Planning]![An] Value, [Forms]![F_Planning]![Mois] Value;

Je ne vois pas à quoi elle sert dans ton cas, car tu prends les valeurs dans le formulaire.

Merci zoom61, j'avais vu la même chose et enlevé cette ligne mais c'est le critere qui est pris sur le formulaire qui pause le soucis

Code :

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

1
2
3
SELECT T_Planning.Matricule, T_Planning.DateJ, T_Planning.CodeG, Year([DateJ]) AS Expr1, Month([DateJ]) AS Expr2
FROM T_Planning
WHERE (((Year([DateJ]))=[Forms]![F_Planning]![An]) AND ((Month([DateJ]))=[Forms]![F_Planning]![Mois]));

En effet lorsque j'enleve les criteres ça fonctionne pourtant mon formulaire est bien ouvert et les champs renseignés, j'ai même essayé la requete avant de lancer le code

Code :

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

WHERE (((Year([DateJ]))=[Forms]![F_Planning]![An]) AND ((Month([DateJ]))=[Forms]![F_Planning]![Mois]));

Encore merci

Seb

[sebing]

Bonjour,

Connaissez vous un moyen afin que l'erreur ne se produise plus et prenne bien en compte les filtres de ma requete?

Code :

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

WHERE (((Year([DateJ]))=[Forms]![F_Planning]![An]) AND ((Month([DateJ]))=[Forms]![F_Planning]![Mois]));

Je me prends la tête sur ce problème

Merci par avance

Seb

[zoom61]

Les champs [Forms]![F_Planning]![An] et [Forms]![F_Planning]![Mois] sont des champs saisis, et sont-ils numériques ?

[User]

Bonjour,

Il faut mettre les 2 paramètres en en-têtes du sql de la requête "Rqt_piquet_manquant":

Code :

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

1
2
PARAMETERS [Forms]![F_Planning]![An] Value, [Forms]![F_Planning]![Mois] Value;
SELECT...

Puis au niveau du code, pour passer ces 2 paramètres il faut faire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Set oSQL = CurrentDb.QueryDefs("Rqt_piquet_manquant")
oSQL.Parameters("[Forms]![F_Planning]![Mois]") = Forms!F_Planning!Mois
oSQL.Parameters("[Forms]![F_Planning]![An]") = Forms!F_Planning!An
Set oSQL = oSQL.OpenRecordset()
 
txt = ""
 
While Not oSQL.EOF
    txt = txt & Chr(10) & oSQL.Fields(0).Value
    oSQL.MoveNext
Wend
MsgBox txt

A+