تغيير صورة شعار الشركة للنمادج مرة واحدة؟؟؟

[عبدالعزيز محمد]

السلام عليكم اخواني

في المرفق قاعدة بيانات بها عدة نماذج وفي كل نموذج صورة شعار شركة ما مع تسمية تحمل بيانات عن الشركة 

كما توجد تقارير ولم اقم باضافتها 

المطلوب هو عند تغيير صورة الشعار والتسمية في كل النمادج والتقارير دفعة واحدة فأحيانا نجد بقاعدة البيانات عدة نمادج وتقارير فيكون من الصعب تغيير كل ذلك في نمودج وتقرير 

Aziz.rar

[AlwaZeeR]

وعليكم السلام ورحمة الله وبركاته

تم عمل وحدة نمطية لاستدعاء رابط الصورة في أي مكان سواء كان نموذج او تقرير وفي حدث الحالي او التحميل او الفتح 

 

Public Function DisplayImage(Imge As Control) As String
On Error Resume Next
Dim sImgPath As String

Dim Pic As DAO.Recordset
Dim Tbl As String
Set dbs = CurrentDb
Tbl = "SELECT * FROM [PicTable]"
Set Pic = dbs.OpenRecordset(Tbl)

sImgPath = Pic.Fields("PictureFld")

'=====================She3araaat===================
If IsNull(sImgPath) Or sImgPath = "" Then
Imge.Picture = ""
Imge.Visible = False
Else
Imge.Visible = True
Imge.Picture = sImgPath
End If
End Function

يتم استدعاؤها هكذا:

Call DisplayImage(Pic1)

pic1

هو اسم التكست بوكس الخاص بمسار الصورة ويمكنك تغييره حسب المسار لديك

الوحدات النمطية لفتح المستعرض للبحث عن الصورة كثيرة ومتعددة الاشكال

وضعت لك وحدة استخدمها قديما وتفي بالغرض رغم ان هناك غيرها وبشكل مختصر

تفضل المرفق

 

Aziz.accdb

[عبدالعزيز محمد]

جزاك الله خيرا على سرعة الرد

أين اجد مسار الصورة والليبل في الكود

حبذا لو يتم شرح مبسط للوحدة النمطية 

[عبدالعزيز محمد]

في انتظار الرد

 

[figo82eg]

عند التطبيق على قاعدة بيانات 2003 تظهر رسالة خطأ ممكن الحل بصيغة 2003

تم تعديل أكتوبر 21, 2019 بواسطه figo82eg

[ابو جودي]

 

Aziz.mdb

[محمد التميمي]

احسنت اخي AlwaZeeR بارك الله بك 

طبقت المثال على التقارير ايظاً روعة

[AlwaZeeR]

واذا اردنا نغير في me.form

في أي مكان في قاعدة البيانات سواء نموذج او تقرير يتم الاستدعاء بنفس الطريقة

Call DisplayImage(Pic1)

مسار الصورة : Pic1

بمعنى آخر: مربع النص الذي يظهر فيه مسار الصورة هو Pic1

 

[ابو ياسين المشولي]

3 ساعات مضت, AlwaZeeR said:

واذا اردنا نغير في me.form

في أي مكان في قاعدة البيانات سواء نموذج او تقرير يتم الاستدعاء بنفس الطريقة

Call DisplayImage(Pic1)

مسار الصورة : Pic1

بمعنى آخر: مربع النص الذي يظهر فيه مسار الصورة هو Pic1

 

فاهمك اخي لاني جربت me.form 

ولم يفلح

اما لو هو مربع او مكان صورة نعم يتغير

[عبدالعزيز محمد]

ممنون كثير من الجميع

يبقى تغيير التسمية التي بها بيانات الشركة التي اسميتها Le1 فكيف يتم تغييرها كما حدث لشعار الشركة

[عبدالعزيز محمد]

السلام عليكم اخوتي

مازلت انتظر الرد على تغيير التسمية( وهي عبارة عن تسمية بها اسم الشركة وعنوانها ورقم الهاتف) كذلك أريد تغييرها كما تم تغيير الشعار 

وجزاكم الله خيرا

[kaser906]

9 ساعات مضت, عبدالعزيز محمد said:

مازلت انتظر الرد على تغيير التسمية( وهي عبارة عن تسمية بها اسم الشركة وعنوانها ورقم الهاتف) كذلك أريد تغييرها كما تم تغيير الشعار 

وعليكم السلام

تفضل

تم اضافة حقل ف الجدول لاسم الادارة

تم اضافة حقل نص غير منضم للنماذج والتقرير

ويتم استدعاء اسم الادارة عن طريق دالة DLookUp

::بالتوفيق::

Aziz.mdb

[AlwaZeeR]

واضافة لحل الأخ العزيز كاسر

تعديل على نفس الوحدة

Public Function DisplayImage(Imge As Control, Txtbxt As TextBox) As String
On Error Resume Next
Dim sImgPath As String
Dim CopmN As String

Dim Pic As DAO.Recordset
Dim Tbl As String
Set dbs = CurrentDb
Tbl = "SELECT * FROM [PicTable]"
Set Pic = dbs.OpenRecordset(Tbl)

sImgPath = Pic.Fields("PictureFld")
CopmN = Pic.Fields("CompName")

'===============She3araaat============

If IsNull(sImgPath) Or sImgPath = "" Then
Imge.Picture = ""
Imge.Visible = False
Else
Imge.Visible = True
Imge.Picture = sImgPath
End If

Txtbxt = CopmN

End Function

 

AzizN.accdb