السلام عليكم
احتاج الى تصحيح او تعديل في هذا الكود لكي تظهر كل صورة لكل موظف
و هذا الكود تظهر صورة واحدة مشتركة لكل الموظفين ارجوا منكم و من الله المساعدة
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