Discussion :

[totoche]

Bonjour,
Pour imprimer des données je souhaite utiliser le composant Datareport.
Je souhaite alimenter se DataReport avec les données issues d'un recordset;

dans la msdn il n'y a que des exemples en passant par un Data Environnment,
si qlq un bout de code
MERCI

[totoche]

J'ai l'erreur l'objet DataReport1 est introuvable

J'ai inserer un dataReport (DataReport1)via ajout de composant
dans la propriete Initialize de DataReport1 j'ai codé:

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
Private Sub DataReport_Initialize()
Dim cnx As ADODB.Connection
Set cnx = New ADODB.Connection
 
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
'Définition du pilote de connexion
cnx.Provider = "Microsoft.Jet.Oledb.3.51"
'Définition de la chaîne de connexion
cnx.ConnectionString = "C:\...\TAMO.mdb"
'Ouverture de la base de données
cnx.Open
'Exécution de la requête
rst.Open "SELECT NumMSA, Nom FROM T_TrimDTMO", cnx
Set DataReport1.DataSource = rst
With Me.Sections("DataReport1")
.Controls("Ctrlname1").DataField = "NumMSA"
.Controls("Ctrlname2").DataField = "Nom"
End With
End Sub

Merci de votre aide

[totoche]

il faut mettre le nom de la section et non le nom du dataReport.

Code :

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

With Me.Sections("Section2")

Maintenant j'ai l'erreur indice hors limite

[totoche]

sur le dataReport au niveau de la section faut inserer un contrôle type text

[said_elm]

sur le dataReport au niveau de la section faut inserer un contrôle type text

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Command1_Click()
Set rptJournal.DataSource = rsJourVte   ' rsJourVte est un recordset
rptJournal.Sections("Donnee").Controls("txtN").DataField = "nmeroOp"
rptJournal.Sections("Donnee").Controls("txtCode").DataField = "codeOpteur"
rptJournal.Sections("Donnee").Controls("txtDte").DataField = "dateOP"
rptJournal.Sections("Donnee").Controls("txtDesig").DataField = "DescriptionOP"
rptJournal.Sections("Donnee").Controls("txtVers").DataField = "Versement"
rptJournal.Sections("Donnee").Controls("txtRetr").DataField = "retrait"
rptJournal.WindowState = 2
rptJournal.Show 1
End Sub

Bien evedement le datareportest formaté en mode creation juste la liaison ce fait en dur