[مصمم هاوي]

تقبل الله منا ومنكم وغفر لنا ولكم
لا نزال نتعلم من هذا المنتدى الرائع والذي أكسبنا الكثير من المعلومات المفيدة
وسؤالي هنا :
هل يمكن حفظ الصور في مجلد البرنامج وذلك بملف  Picture
بدل قاعدة البنانات لأنها تأخذ حيزاً كبيراً .
المثال في المرفقات للتطبيق
شاكرً لكم حسن اهتمامكم الكبير بالإجابة عن استفسارات الأعضاء الكرام
لتحميل المثال اضغط هنا

[مصمم هاوي]

لله درُك ودر ُّأبيك أخي الحبيب ومشرفنا الغالي أمير على تكرمك بالإجابة
وأسال الله العظيم ربَّ العرش العظيم أن يجعله في ميزان حسناتك

[مصمم هاوي]

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

كود :

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

[مصمم هاوي]

أحسن الله إليك وبارك الله فيك وجعل أعمالك في ميزان حسناتك يوم القيامة
واحياك الله حياة طيبة سعيدة هنية

[عبدالقادرعواد]

ماشاء الله أكثر من رائع
جزاكم الله الف خير
وجعله في ميزان حسناتكم