modification de ce code

Question

Bonjour tout le forum
je veux imprimer tout les renseignement de l'employer(nom;Pnom;photo)dans Datareport
ce code me donne une seul photo pour tout les employers 
With DataEnvironment1
         .Commands(1).CommandType = adCmdText
         .Commands(1).CommandText = "select * from MD where num  LIKE '" & Text1.Text & "%';"
         .Commands(1).Execute
       If .rsCommand1.State = 1 Then
         .rsCommand1.Close
       End If
     End With
       With DataReport1.Sections("Section1")
            Set .Controls("Image3").Picture = Form1.Image1.Picture
        End With
       DataReport1.Show

cs_Jack · Answer

Salut
Pas clair du tout.
Quel est le rapport entre ces lignes de code et les explications/question ?

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

zine pef · Answer

merci jack
je veux modifier le code pour imprimer dans l'etat les renseignement de l'ouvrier
ce code donne une photo commun à tout les ouvriers.
With DataReport1.Sections("Section1")
Set .Controls("Image3").Picture = Form1.Image1.Picture

cs_Jack · Answer

Ok
Pour imprimer un DataReport : Recherche "imprimer DataReport" dans les codes (sauf Net) du site
Mais ton histoire de photo, je ne vois pas le rapport avec l'impression ...
Est-ce un autre problème ? Explique clairement

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

Modification de ce code

3 réponses

Votre réponse

Discussions similaires