[مصمم هاوي]

عفواً ... أستاذتي أمير
بقى شئٌ آخر وهو :
هل تتكرم بالتعديل على كود عرض التقرير بحيث يتم عرض الصورة الشخصية
فقد حاولتُ التعديل عليه وفشلت

كود :

Dim X As String
X = txtID.Text

Unload Report2
         
Report2.DataControl1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
App.Path & "\Data_Base.mdb;Persist Security Info=False"

If RS.RecordCount <= 0 Then
  MsgBox "لايوجد سجل ", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "تنبيه"
 
  txtIDI.SetFocus
  Exit Sub
End If

Report2.DataControl1.Source = "Select * From [Q_Tech_Table] Where [ID] like '" & X & "'"

Report2.Show

Command7.Enabled = False