openrecordset et parametre

[zebi42]

Bonjour,

Le code suivant me renvoie l'erreur: 'Membre de méthode ou de données introuvable sur la 1ére des ligne RS.Parameters....

Quequ'un a t'il une idée ?

Merci d'avance

Code :

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
32
Private Sub Traitement_Click()
Dim RS As Recordset
Dim SQL As String
 
' --Traitement global-------------------------
 
 
SQL = "PARAMETERS [DSectZon] Text ( 255 ), [FSectZon] Text (255), " _
      & "[Debp] Long, [Finp] Long; " _
      & "SELECT Secteur.£LILIB AS Secteur, Famille.Lib_Fam AS Famille, " _
      & "Start.Article AS Code_Article, Article.ARTLIB AS Désignation, " _
      & "Sum(Start.CA) AS CA, Sum(Start.QTE) AS Quantité, [lge]/1000 AS longueur " _
      & "FROM ((Famille INNER JOIN Start ON Famille.Code_Fam = Start.Famille) " _
      & "INNER JOIN Article ON Start.Article = Article.ARTNUM) " _
      & "INNER JOIN Secteur ON Start.Sect = Secteur.£LICLE "
 
cond = "WHERE (((Start.Per) Between [Debp] and [finp]) and " _
      & "((start.sect) between [DSectZon] and [FSectZon]) and " _
      & "((Famille.Code_Fam) Between ""01"" And ""99"")) "
 
grp = "GROUP BY Secteur.£LILIB, Famille.Lib_Fam, Start.Article, Article.ARTLIB, " _
      & "[lge]/1000 ORDER BY Secteur.£LILIB, Famille.Lib_Fam, Start.Article;"
 
SQL = SQL & cond & grp
 
MsgBox SQL
 
Set RS = CurrentDb.OpenRecordset(SQL)
    RS.Parameters("Debp") = Me.DePer
    RS.Parameters("Finp") = Me.APer
    RS.Parameters("DSectZon") = Me.DeSect
    RS.Parameters("FSectZon") = Me.ASect

[jpcheck]

Salut,

a ma connaissance, Parameters s'applique a des QueryDef, pas des Recordset

L'aide en ligne explique exactement ce que tu sembles ici chercher a faire