المشاركات : 761
المواضيع 134
الإنتساب : May 2015
السمعة :
62
الشكر: 667
تم شكره 1388 مرات في 627 مشاركات
تقبل الله منا ومنكم وغفر لنا ولكم
لا نزال نتعلم من هذا المنتدى الرائع والذي أكسبنا الكثير من المعلومات المفيدة
وسؤالي هنا :
هل يمكن حفظ الصور في مجلد البرنامج وذلك بملف Picture
بدل قاعدة البنانات لأنها تأخذ حيزاً كبيراً .
المثال في المرفقات للتطبيق
شاكرً لكم حسن اهتمامكم الكبير بالإجابة عن استفسارات الأعضاء الكرام
لتحميل المثال اضغط هنا
الملفات المرفقة
حفظ الصور في مجلد البرنامج.rar (الحجم : 1.49 م ب / التحميلات : 572)
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
المشاركات : 761
المواضيع 134
الإنتساب : May 2015
السمعة :
62
الشكر: 667
تم شكره 1388 مرات في 627 مشاركات
لله درُك ودر ُّأبيك أخي الحبيب ومشرفنا الغالي أمير على تكرمك بالإجابة
وأسال الله العظيم ربَّ العرش العظيم أن يجعله في ميزان حسناتك
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
المشاركات : 761
المواضيع 134
الإنتساب : May 2015
السمعة :
62
الشكر: 667
تم شكره 1388 مرات في 627 مشاركات
عفواً ... أستاذتي أمير
بقى شئٌ آخر وهو :
هل تتكرم بالتعديل على كود عرض التقرير بحيث يتم عرض الصورة الشخصية
فقد حاولتُ التعديل عليه وفشلت
كود :
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
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
المشاركات : 761
المواضيع 134
الإنتساب : May 2015
السمعة :
62
الشكر: 667
تم شكره 1388 مرات في 627 مشاركات
أحسن الله إليك وبارك الله فيك وجعل أعمالك في ميزان حسناتك يوم القيامة
واحياك الله حياة طيبة سعيدة هنية
إذا طُعِنتَ من الخلفِ فاعلمْ أنك في المقدمةِ
المشاركات : 49
المواضيع 15
الإنتساب : Aug 2016
السمعة :
2
الشكر: 121
تم شكره 99 مرات في 44 مشاركات
ماشاء الله أكثر من رائع
جزاكم الله الف خير
وجعله في ميزان حسناتكم