Discussion :

[totoche]

Je reprend un code dans lequle figure l'instruction suivante

Code :

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

Set rs1 = rs(0).Value

rs(0).Value correpond rs dans sa totalité?

[Le Pharaon]

Est ce que ça fonctionne avant tout ?
Quand je vois un Set je m'attends souvent à un New , c'est à mon avis pour instantier un objet.

[sovo]

rs(0).Value correpond rs dans sa totalité?

Je n'en suis pas tres sur.
et si tu fesais

Code :

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

Set rs1 = rs

La je crois que ca marche.

[totoche]

Oui rs1 = rs(0).value fonctionne

Voici l'utilisation du rs1, le code je le comprend c'est juste saivoir ce qui est contenu dans rs(0).value

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
19
20
 
'Pour info
 .CommandText = " SHAPE {SELECT Nom, Prenom, VRB FROM `T_TrimDTMO`}  AS Command1 COMPUTE Command1 BY 'Nom'"
 ....          
With .Sections("Section1").Controls
          For intCtrl = 1 To .Count
          If TypeOf .Item(intCtrl) Is RptLabel Then
                   .Item(intCtrl).Caption = rs1.Fields(q).Name & " :"
                     q = q + 1
          End If
         
          
          If TypeOf .Item(intCtrl) Is RptTextBox Then
                   .Item(intCtrl).DataMember = "Command1"
                   .Item(intCtrl).DataField = rs1(z).Name
                   
                   z = z + 1
         End If
      Next
            End With

[AlainTech]

Comment est déclaré rs1?

Si tu y mets une valeur (.Value), ce doit être une String ou un nombre.

Tu ne peux donc pas en faire un RecordSet et, par conséquent, pas de Set.

[totoche]

rs1 est un recordset

[AlainTech]

Alors, pourquoi y mets-tu une valeur (.Value)???

[totoche]

Le contexte dans lequel j'utilise ce code :
générer un dataReport avec en-tête de groupe, et sans dataEnvironnement.
Il fonctionne très bien.
l'appel au rs1 se fait pour la section1 (détail).
si je n'utilise pas rs1 = rs(0).value mais rs1=rs alors j'ai l'erreur :
"Champ de données Command1.command1 de la propriété datafield introuvable". rs(0).Value semble être la syntaxe nessaire pour transmettre le data members du rs initial.
tout le code dont je m'inspire:

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
Dim cn As New ADODB.Connection
      Dim rs As New ADODB.Recordset
      Dim cmd As New ADODB.Command
      Dim rs1 As New ADODB.Recordset
      Private Sub Command1_Click()
      Dim q As Integer
      Dim intCtrl As Integer
      Dim x As Integer
      Dim z As Integer
      x = 0
      q = 0
      z = 0
 
      With DataReport1
      .Hide
      Set .DataSource = rs
      .DataMember = ""
      With .Sections("section4").Controls
      For intCtrl = 1 To .Count
      If TypeOf .Item(intCtrl) Is RptLabel Then
         .Item(intCtrl).Caption = "City" & " :"
          q = q + 1
      End If
      If TypeOf .Item(intCtrl) Is RptTextBox Then
        .Item(intCtrl).DataMember = ""
        .Item(intCtrl).DataField = "City"
      End If
      Next
      End With
 
      q = 0
      With .Sections("Section1").Controls
          For intCtrl = 1 To .Count
          If TypeOf .Item(intCtrl) Is RptLabel Then
                   .Item(intCtrl).Caption = rs1.Fields(q).Name & " :"
                    q = q + 1
          End If
          If TypeOf .Item(intCtrl) Is RptTextBox Then
                   .Item(intCtrl).DataMember = "Command1"
                   .Item(intCtrl).DataField = rs1(z).Name
                   z = z + 1
          End If
      Next intCtrl
      End With
      .Refresh
      .Show
      End With
      End Sub
 
      Private Sub Form_Load()
 
      Command1.Caption = "Show Report"
      cn.Open "Provider=MSDATASHAPE; Data Provider=Microsoft.JET.OLEDB.4.0;" & _
               "Data Source=D:\Program Files\Microsoft Visual Studio\VB98\Nwind.mdb;"
 
      With cmd
           .ActiveConnection = cn
           .CommandType = adCmdText
           .CommandText = " SHAPE {SELECT FirstName,Lastname,City FROM `Employees`}  AS Command1 COMPUTE Command1 BY 'City'"
           .Execute
      End With
 
      With rs
           .ActiveConnection = cn
           .CursorLocation = adUseClient
           .Open cmd
      End With
      Set rs1 = rs(0).Value
 
      End Sub