Discussion :

[lecaire]

me familiarisant avec datareport et adodc j'execute le code suivant qui me génère le message d'erreur: erreur d'execution 424 un objet est requis suivant après un clic sur le bouton command1

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
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 dr
 .Hide
' Set dr.DataSource = rs
Set .DataSource = rs
'.DataSource = rs
  .DataMember = " "
  With .Sections("section1").Controls
   For intctrl = 1 To .Count
    If TypeOf .Item(intctrl) Is RptLabel Then
     .Item(intctrl).Caption = rs.Fields(q).Name & " : "
     q = q + 1
    End If
   If TypeOf .Item(intctrl) Is RptTextBox Then
    .Item(intctrl).DataMember = ""
    .Item(intctrl).DataField = ""
    z = z + 1
   End If
   Next intctrl
 End With
 .Refresh
 .Show
 End With
End Sub

j'avoue que j'ai pris compros grande chose en allant sur l'aide.
c'est la l'instruction

Code :

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

set. datasource= rs

qui est souligné en jaune
voici le code que je mets au chargement de la feuille

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
Private Sub Form_Load()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cmD As New ADODB.Command
Command1.Caption = " show report"
cn.Open "provider=microsoft.jet.oledb.4.0;data source=c:\program files\microsoft visual studio\vb98\nwind.mdb;"
 
With cmD
 .ActiveConnection = cn
 .CommandType = adCmdText
 .CommandText = "select nom,prénom from employés"
 .Execute
End With
With rs
 .ActiveConnection = cn
 .CursorLocation = adUseClient
 .Open cmD
 End With
End Sub

merci de me signifier ce qui coince

[ProgElecT]

ce qui coince, la portée de ta variable rs tu la declares dans Form_Load puis tente de l'utiliser dans Command1_Click, declares la au tout debut de ton formulaire sous Otion Explicit

Motif de l'edit: dr est declaré ou, il y en a peut être d'autres, ajoutes Option Explicit au tout debut de ton formulaire, le debugeur te signalera tout de suite les variables non declarées ou hors de portées.

[lecaire]

après avoir déclaré rs sous l'option explicit, a l'execution après le clic sur command1, j'ai le message d'erreur suivant:erreur d'execution 8577, les arguments sont d etype incorrect, en dehors des limites autorisées ou en conflit les uns avec les autres
j'ai le bout de code

Code :

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

.refresh

qui est souligné
dr n'est déclaré nul part c'est le nom du datereport à travers la propieté name de la fenetre de proprieté

[Delbeke]

Quand une instruction commence avec un point, c'est qu'on se refère a l'objet déclaré avec With Objet , l'extrait de code que tu donnes ne permet pas de savoir de quel objet tu demandes le refresh.

Deplus que veux tu dire exactement avec

après avoir déclaré rs sous l'option explicit

Option explicit est une directive expliquant au compilateur qu'aucune variable ne doit être utilisée si elle n'est pas explicitement déclarée. Ce doit être ta premiere ligne de code, elle ne doit pas se trouver ni dans une sub , ni une fonction, les déclarations de variables de niveau feuille sont déclarées après.

Exemple de code avec la directive Option Explicit

Code :

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

1
2
3
4
5
6
7
8
Option Explicit
Dim MaVarialbleDeNiveauFeuille As String
Private Sub Form_Load()
  MaVarialbleDeNiveauFeuille = "Essais"
End Sub
Private Sub Command1_Click()
  MsgBox MaVarialbleDeNiveauFeuille
End Sub

Je pense qu'une petite révision sur la portée des variables dans vb te ferais le plus grand bien

[lecaire]

le code

Code :

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

.refresh

fait reference au datareport nommé dr qui est utilisé avec le premier with
Aussi pour l'option explicit ,voici comment je l'utilise,

Code :

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

1
2
3
4
Option Explicit
Dim rs As New ADODB.Recordset
Dim cn As New ADODB.Connection
Dim cmD As New ADODB.Command

je crois l'avoir compris

[lecaire]

en fait avec ce message erreur 8577 lorsque je cilc sur l'aide, j'ai une boite de dialogue qui me dit impossible d'afficher l'aide ce qui ne me donne pas un debut de solution au blocage