Discussion :

[sihamelm]

Bonjour
Encore un pti problème je promes c'est mon dernier.
J'ai un etat qui a en source une requete paramétrée "RCA2 (année et mois)" et une table "solde"
et j'ai mis un formulaire "welcome" pour entrer l'année et le mois et sur clic "ok" j'ai mis un code qui fais des calculs et les stockes dans la table "solde" et après l'état s'ouvre or lors de l'ouverture de l'état j'ai encore le mesgbox pour entrer le mois et la date qui est declencher par la requete RCA2
comment faire pour que la requete source recupere la donnée entrées dans le formulaire "welcome"

[sihamelm]

je ne sais pas si c'est fesable ou pas j'ai mis dans le code

Code :

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

1
2
3
4
5
6
7
8
9
Set Tdf = db.QueryDefs("RCA2")
 
  ' Code qui utilise qdf
  ' Par exemple
Tdf.Parameters("année") = Forms!Welcome.Form!cboannee   '<== si requête paramétrée
Tdf.Parameters("mois") = Forms!Welcome.Form!mois
Set mydeb = Tdf.OpenRecordset
 
Report![CA].RecordSource = "SELECT *, solde.initial, solde.final FROM " & mydeb & " LEFT JOIN solde ON " & mydeb!DateCA & "= solde.DateCA;"

mais ça me donne incompatibilité de type pour mydeb

[tee_grandbois]

Bonsoir,
le message d'erreur indique que tu veux utiliser un objet recordset (mydeb) à l'intérieur d'un texte ("SELECT * ...)
il faudrait que tu récupères le texte SQL de "RCA2" contenu dans Tdf.SQL :

Code :

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

1
2
Dim Mydeb As String
Mydeb = Tdf.SQL

et après il faudrait remplacer les paramètres par leur valeur :

Code :

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

Mydeb = Replace(Replace(Mydeb, "L_Annee", tdf.Parameters("année")), "Le_Mois", tdf.Parameters("mois"))

Les variables L_Annee et Le_Mois sont ceux utilisés dans la clause WHERE.
ensuite l'utiliser dans le SQL final :

Code :

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

Report![CA].RecordSource = "SELECT Mydeb.*, solde.initial, solde.final FROM SOLDE, (" & mydeb & ") AS Mydeb LEFT JOIN solde ON mydeb.DateCA = solde.DateCA;"

A priori, cela devrait fonctionner. Si ce n'est pas le cas, poste le code de RCA2.

[tee_grandbois]

Bonjour,
il faut modifier l'instruction Replace pour enlever le point virgule contenu dans Mydeb :

Code :

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

Mydeb = Replace(Replace(Left(Mydeb, Len(Mydeb) - 1), "L_Annee", tdf.Parameters("année")), "Le_Mois", tdf.Parameters("mois"))

[sihamelm]

Bonjour,
Merci grandbois pour la réponse
j'ai tjs pas compris c'est quoi " l_annee" et "le_mois"??

[sihamelm]

Re,
j'ai essayé mais ça me renvoie une erreur "objet requis" dans

Code :

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

Report![CA].RecordSource = "SELECT Mydeb.*, solde.initial, solde.final FROM SOLDE, (" & mydeb & ") AS Mydeb LEFT JOIN solde ON mydeb.DateCA = solde.DateCA;"