اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

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

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

Aziz.rar

رابط هذا التعليق
شارك

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

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

 

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

  • Like 4
رابط هذا التعليق
شارك

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

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

Call DisplayImage(Pic1)

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

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

 

رابط هذا التعليق
شارك

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

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

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

Call DisplayImage(Pic1)

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

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

 

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

ولم يفلح

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

رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

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

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

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

تفضل

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

image.png.82aa1d66e22cc50520d0a956b337364a.png

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

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

image.png.696897f0a38c61c878183a9f9eb0ba96.png

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

Aziz.mdb

رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information