Discussion :

[floran30]

Bonjour je souhaite utiliser un datareport pour imprimer une feuille dans mon projet.

Mais j'ia un probleme dans mon code je lie le datareport a un adodc.

Code :

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

Datareport1.datasource = adodc5

Et j'ia une erreur Methode ou membre de données introuvable avec datasource surligné.

[ThierryAIM]

Code :

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

Datareport1.datasource = adodc5.Recordset

[floran30]

Dim bd As DAO.Database
Dim tbl As DAO.Recordset
Dim str As String

str = "SELECT * " _
& "FROM Document " _
& "WHERE Document.Id_document = " & List4.text & " " _



Set bd = OpenDatabase(".\bd1.mdb")
Set tbl = bd.OpenRecordset(str)

Set DataReport1.DataSource = tbl

J'ai une erreur type incompatible sur "Datareport1.datasource = tbl"
pourquoi ?

[ThierryAIM]

C'est normal, un DataReport ne fonctionne pas avec des Recordsets DAO

tu vas devoir passer par ADO, si tu veux utiliser un DR, désolé

[floran30]

Bon c'est bon je me debrouille pas mal.
J'ai reussi a deoturner le probleme en utilisant un dataenvirronement.

Dans les propriété du dataenvironnement je met cette requete :

SELECT *
FROM Document, Produit_facture
WHERE Produit_facture.Id_document = Document.Id_document
AND Produit_facture.Id_document = 13

Jusque la aucun probleme je lance mon programme il m'affiche bien les données correspondant a l'enregistrement de l'id_document 13.

Mais maintenant ce que je souhaiterais faire c'est mettre une variable a la place de 13 dans ma requete sql.

C'est a dire faire:

SELECT *
FROM Document, Produit_facture
WHERE Produit_facture.Id_document = Document.Id_document
AND Produit_facture.Id_document = "list4.text"

Mais le je m'en douté il ne le prend pas.
Donc comment faire ?

[floran30]

Bon J'ai fais ceci :

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
str = "SELECT * " _
    & "FROM Document, Produit_facture, Client " _
    & "WHERE Produit_facture.Id_document = Document.Id_document " _
    & "AND Document.Id_client = client.Id_client " _
    & "AND Produit_facture.Id_document = " & List4.text & ""

Set bd = OpenDatabase(".\bd1.mdb")
Set tbl = bd.OpenRecordset(str)

DataReport1.Sections("Section2").Controls("lblFacture").Caption = tbl.Fields("document.Id_document")
DataReport1.Sections("Section2").Controls("lblDate").Caption = tbl.Fields("Date")
DataReport1.Sections("Section2").Controls("lblNom").Caption = tbl.Fields("Nom")
DataReport1.Sections("Section2").Controls("lblPrenom").Caption = tbl.Fields("Prenom")
DataReport1.Sections("Section2").Controls("lblAdresse").Caption = tbl.Fields("Adresse")
DataReport1.Sections("Section2").Controls("lblCP").Caption = tbl.Fields("Code_postal")

For intCtrl = 1 To DataReport1.Sections("Section2").Controls.Count
DataReport1.Sections("Section1").Controls.Item("Text5").DataMember = ""
DataReport1.Sections("Section1").Controls.Item("Text5").DataField = tbl.Fields("Document.Id_document")
Next

Pour les label c'est bon ca marche niquel aucun probleme.
En revanche je seche sur la parti des txtbox qui sont en faite la list des produits de la facture. C'est la partie que j'ia mis en gras, j'ai essayer comme ca mais j'ia des erreurs.
Je ne sais vraiment pas comment faire.

[ThierryAIM]

C'est normal, un DataReport ne fonctionne pas avec des Recordsets DAO

Je dois pas écrire français