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

اضافة صورة الصنف في زر امر


ayman14

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

كل عام والجميع بالف خير

لدي نمودج وبه عدة ازرار 

عند فتح النمودج يثم توزيع اسماء الاصناف على الازرار
لكل صنف له صورة في الجدول
فهده الفكرة ثم العمل عليها

ما اريده هو تكملت الكود لتوزيع كل صورة صنف في زر

Set Rs = CurrentDb.OpenRecordset("select Id , NmEtm ,PrEtm , PcEtm from Etms"): Rs.MoveLast: Rs.MoveFirst
For Each C In Me.Controls
If Not Rs.EOF Then
C.Caption = Rs(1): C.Tag = Rs(0): 
Rs.MoveNext
C.Visible = True
Else
C.Visible = False

End If
Next

 

وهدا هو الكود المستخدم

 

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

24 دقائق مضت, ayman14 said:

كل عام والجميع بالف خير

لدي نمودج وبه عدة ازرار 

عند فتح النمودج يثم توزيع اسماء الاصناف على الازرار
لكل صنف له صورة في الجدول
فهده الفكرة ثم العمل عليها

ما اريده هو تكملت الكود لتوزيع كل صورة صنف في زر

Set Rs = CurrentDb.OpenRecordset("select Id , NmEtm ,PrEtm , PcEtm from Etms"): Rs.MoveLast: Rs.MoveFirst
For Each C In Me.Controls
If Not Rs.EOF Then
C.Caption = Rs(1): C.Tag = Rs(0): 
Rs.MoveNext
C.Visible = True
Else
C.Visible = False

End If
Next

 

وهدا هو الكود المستخدم

 

ههههههههههه

انا فهمى تقيل حبتين وباتعب مع الاكواد بدون القاعدة فعلا

احسن الينا بارفاق القاعدة محل التساؤل فيحسن الله اليكم  :rol:

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

شكرا على ردك سيد ابا جودي  

اخي الكريم المسؤلة لا تحتاج قاعدة او مثل

فالكود لجلب جدول الصنف موجود

لو تمعنت جيدا في الكود لوجدت \ اسم الصنف وكود الصنف موجودين في الكود

ما اريده هو كود  (Caption.Picture)

لتظهر صورة الصنف في الازرار 

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

طيب ارفق القاعدة ليتم التعديل مباشرة ان احببت :yes:

ارفق بمن يريد تقديم يد العون اليك اخى الحبيب بارفاق القاعدة الله يرضى عليك :fff:

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

السلام عليكم 

كل عام انتم بخير 

مبارك عليكم الشهر - وزادكم الله فيه قربة اليه

وبعد جرب يا أخى المرفق بهذا الموضوع فأعتقد أن به ما تريد وزيادة - جلب الصور من فولدر خارجى لعدم ثقل البرنامج بوضع الصور بالجدول.

ولا تنسى موافتنا بالنتائج -

والسلام

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

شكرا على اهتمامك السيد  ابو عبد الله الحلواني

المثال قريب من ما اريده 

الاختلاف هو في الادات المستخدمة

انا لااحب كثرة الاكواد اخي الكري

قم بفتخ المثال وسترى ما اريده ( اظهار الصورة في نفس الزر الدي يخمل اسم الصنف

الاصناف.mdb

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

اخي الكريم

هدا مجرد مثال

جدول اصناف

ونمودج لايوجد فيه سوى ازرار

عند فتح النمودج تجد كل زر يخمل اسم صنف

لم افهم انك لم تجد لااصناف ولا ازرار

ساعيد تحميل المثال

 

مثال-2.rar

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

بص هى الفكرة دى مش عارف هتعجبك واللا لاء
اولا الكود المستخدم صغير جدا جدا جدا ولكنه فعال جدا لانه يتعامل مع كل الازرار على النموذج مهما كان عددها

ولكن ركز معى فى الاتى 

- كل زر امر يجب كتابه كود الصنف الخاص به على التاج لزر الامر هذا
-يجب ان تكون اسم الصورة الخاصة بكل منتج برقم كود المنتج والذى سوف يتم كتابته على تاج زر الامر
-يجب ان تكون الصور بامتداد bmp

-------------------------

قطعا لا ادرى ان كانت هناك طريقة اخرى ابسط او اكواد اقل من المستخدمة فى طريقتى
ولكن هذا ما جال بخاطرى ولن استطيع ان اقدم ابسط من هذا او افضل

 

 

Picture Bbutton.zip

تم تعديل بواسطه ابا جودى
تعديل الكود داخل المرفق
  • Like 2
  • Thanks 1
رابط هذا التعليق
شارك

10 ساعات مضت, ayman14 said:

اخي الكريم

هدا مجرد مثال

جدول اصناف

ونمودج لايوجد فيه سوى ازرار

عند فتح النمودج تجد كل زر يخمل اسم صنف

لم افهم انك لم تجد لااصناف ولا ازرار

ساعيد تحميل المثال

 

مثال-2.rar 60.91 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 7 downloads

عذرا لم انتبه لمرفقك الا الان

- كل زر امر يجب كتابه كود الصنف الخاص به على التاج لزر الامر هذا
-يجب ان تكون اسم الصورة الخاصة بكل منتج برقم كود المنتج والذى سوف يتم كتابته على تاج زر الامر
-يجب ان تكون الصور بامتداد bmp

 

اتفضل يا سيدى التعديل على مرفقك

Picture Bbutton - مثال-2 -.zip

 

 

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

بجد 

11 ساعات مضت, ابوخليل said:

عمل ولا اجمل ولا اخصر  ابا جودي :signthankspin:

شكرا لك  :fff::gift2:

ولكن وعلى فكرة الفاكهة اللى حضرتك خدتها دى لسه ما ادفعش تمنها :biggrin:

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

السلام عليكم

مشكور استاد ابا جودي

المثال ممتاز جدا  

كنت ساعطيك لقب خبير

فاتضح لي اني لم ارى لائحة الشرف

وانت تستخقها بجدارة

 

بارك الله فيك وفي علمك وجزاك الله عنا كل الخير في هدا الشهر المبارك

كما اشكر  الاستاد ابو عبد الله الحلواني 

 

سؤال ان تكرمت بالاجابة

ادا اردت الصورة ان تكون خلفية لزر   (تمدد)  تاخد حجم  الزر     

وليس ايقونة  لزر

 

تم تعديل بواسطه ayman14
رابط هذا التعليق
شارك

في ١٥‏/٥‏/٢٠١٩ at 23:23, ayman14 said:

كل عام والجميع بالف خير

لدي نمودج وبه عدة ازرار 

عند فتح النمودج يثم توزيع اسماء الاصناف على الازرار
لكل صنف له صورة في الجدول
فهده الفكرة ثم العمل عليها

ما اريده هو تكملت الكود لتوزيع كل صورة صنف في زر

Set Rs = CurrentDb.OpenRecordset("select Id , NmEtm ,PrEtm , PcEtm from Etms"): Rs.MoveLast: Rs.MoveFirst
For Each C In Me.Controls
If Not Rs.EOF Then
C.Caption = Rs(1): C.Tag = Rs(0): 
Rs.MoveNext
C.Visible = True
Else
C.Visible = False

End If
Next

 

وهدا هو الكود المستخدم

 

احساسي ان هذا الكود يحمل بصمتي والله اعلم !

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

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

تعقيبا على مداخلتك

فالكود ثم اخده من منتدى عرب محيط

للاستاد  ابو فيصل

وهدا في تاريخ قديم على ما اتدكر 

سؤالي اليك اخي الكريم

في حالة عدم وجود صورة لصنف اريد عمل صورة افتراضية 

وشكرا 

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

عزيزي 

مشاركتي ليس والله اسالك من اين اتيت بالكود

ولكن في البرمجة هناك ما ينتاب المبرمج بشعور تجاه كوده .. فهو يعرفه مباشره .. فكانت الفكره هو استخدام التاق 

وهنا نفس الكود ... فمعقوله انا وابو فيصل نفس الفكره والبصمه ... الله اعلم

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

بالتوفيق

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

اقتباس
  •  

عمل ولا اجمل ولا اخصر  ابا جودي :signthankspin:

شكرا لك  :fff::gift2:

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

العلم ليس حكرا على احد من الناس ، والافكار تتلاقح

والعلم تراكمي .. الخلف يضيف ويطور ما تعلمه من السلف

العجيب .... بعد مداخلة الاستاذ رمهان .... بحثت عن الجزئية الخاصة بجلب الصور  وتوظيفها ضمن الكود المستخدم  فلم اعثر على شيء

وبهذا تعتبر هذه الاضافة جديدة على الاقل بالنسبة لي .. رغم انه لم يذكر تفرده بالفكرة .

لذا يحق لابي جودي تسميتها بالاضافة الجودية على غرار :  

اني اشم في الكود رائحة رمهانية :smile:

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

20 ساعات مضت, A7MD M7MD said:

ياريت يا أبو جودى تتكرم علينا وتشرح لنا وتفهمنا الكود

اولا الموديول

'المســـار الحالى لقاعدة البيــــانات ....
Public Function AppPath() As String
AppPath = CurrentProject.Path & "\"
End Function

تم الاعلان العام عن متغير نص يجلب مسار قاعدة البيانات

يتم استدعاءه فى اى جرء من قاعدة البيانات كالاتى

AppPath

-----------

' المســـار الحالى لمجلد صور الازرار....
Public Function PicBt() As String
PicBt = AppPath & "Picture Bbutton" & "\"
End Function

تم الاعلان العام عن متغير نص والذى يجلب مسار المجلد المضمن فى نفس مسار قاعدة البيانات

يتم استدعاءه فى اى جرء من قاعدة البيانات كالاتى

PicBt

ولاحظ الاتى

AppPath  هو المتغير الاول الذى تم الاعلان عنه فى الجزء الاول من الموديول وهو المسار الرئيسي لقاعدة البيانات
"Picture Bbutton"      اسم المجلد بجوار قاعدة البيانات والذى سوف نستخدمه لوضع الصور
طبعا كان ممكن دمجهما مهما ليصبحا كالاتى

Public Function PicBt() As String
PicBt = CurrentProject.Path & "\" & "Picture Bbutton" & "\"
End Function

ولكن افضل الفصل ليتم استدعاء كل منهما بسهوله حسب الحاجة فيما بعد

-------------------

 

الان الكود المستخدم عند الفتح للنموذج

Private Sub Form_Open(Cancel As Integer)
On Error Resume Next

    Dim ctl As Control
    For Each ctl In Me.Controls
        If ctl.ControlType = acCommandButton Then
            If Not IsNull(ctl.Tag) Or ctl.Tag <> "" Or ctl.Tag <> Null Then
            ctl.Picture = PicBt & ctl.Tag & ".bmp"
            End If
        End If
    Next ctl
    Exit Sub
End Sub

الاعلان عن متغير   ctl  ك عنصر تحكم
For Each للدوران على (كل) شيء  ، اى للدوران على كل العناصر 

وهنا يتم الدوران على كل العناصر التى تم اسناده الى المتغير  ctl
وهنا واتتنى الفكرة بعمل ذلك لان الازرار كثيرة جدا 

قمت باسناد الازرار فقط ليتم الدوران عليها فقط دون غيرها من باق العناصر داخل النموذج ولذلك استخدمت
ctl.ControlType = acCommandButton

وهنا فى هذا السطر

Not IsNull(ctl.Tag) Or ctl.Tag <> "" Or ctl.Tag <> Null Then

اخبر الكود انه عند الدوران على الازرار داخل النموذج ينظر الى قيمة التاج فان كانت غير فارغه يكمل باقى الكود

ctl.Picture  لجلب صورة عنصر التحكم (زر الامر) من 

 PicBt   المسار المحدد سلفا فى الموديل لمجلد الصور

ctl.Tag اسم الصورة والذى يساوى التاج على عنصر التحكم   (زر الامر)

".bmp"  امتداد الصورة

 

 

 

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

14 ساعات مضت, أبو عبدالله الحلوانى said:

بجد 

ولكن وعلى فكرة الفاكهة اللى حضرتك خدتها دى لسه ما ادفعش تمنها :biggrin:

هههههههههههههه

استاذى الجليل ومعلمى القدير واخى الحبيب الاستاذ @أبو عبدالله الحلوانى :fff:

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

ولذلك اردت ان انقل هذا الاحساس الى الجميع :yes:

وبهذا بتضاعف عدد من سيدفع الثمن هههههههههههههههههههههههههه

كل عام وانتم بخير وسعادة ان شاء الله

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

55 دقائق مضت, ابوخليل said:

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

العلم ليس حكرا على احد من الناس ، والافكار تتلاقح

والعلم تراكمي .. الخلف يضيف ويطور ما تعلمه من السلف

العجيب .... بعد مداخلة الاستاذ رمهان .... بحثت عن الجزئية الخاصة بجلب الصور  وتوظيفها ضمن الكود المستخدم  فلم اعثر على شيء

وبهذا تعتبر هذه الاضافة جديدة على الاقل بالنسبة لي .. رغم انه لم يذكر تفرده بالفكرة .

لذا يحق لابي جودي تسميتها بالاضافة الجودية على غرار :  

اني اشم في الكود رائحة رمهانية :smile:

والدى الحبيب استاذى الجليل ومعلمى القدير المبجل الاستاذ @ابوخليل :fff:

بحثت عن الجزئية الخاصة بجلب الصور  وتوظيفها ضمن الكود المستخدم  فلم اعثر على شيء

انا لا استطيع الحفظ وهذه هى مشكلة حياتى ولكن بمجرد الفهم تظل الافكار تتسارع داخلى واتخيل المضمون واقسمه الى

معطى + مجهول = نتيجة

واتعامل على هذا الاساس البحث عن المجهول بناء على تلك المعادلة 

ولاننى افكر  وابحث ولا استطيع الحفظ والله قد تصادف ان اقوم بعمل نفس الشئ فى كل مرة بطريقة مختلفة فى شكل وصياغة الكود 

فقط اكتب الكود بناء على ترتيب افكارى ومدى فهمى للمطلوب بما هو متاح 

وفى النهاية انا مجرد هاو ولست محترف فلم ادرس قط البرمجة فى حياتى واعتمد على التحليل والتطبيق والتجربة ليس الا

ونهاية الامر 

هو توفيق من الله سبحانه وتعالى

ومن بعد فضل رب العباد 

اساتذتى الكرام الذين تعملت منهم ومن اسلوبهم وافكارهم

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

11 ساعات مضت, ayman14 said:

سؤالي اليك اخي الكريم

في حالة عدم وجود صورة لصنف اريد عمل صورة افتراضية 

وشكرا 

تفضل .. 

ضع في مجلد الصور صورة تحمل الاسم : 0

On Error GoTo ErrHandler
    Dim ctl As Control
    For Each ctl In Me.Controls
        If ctl.ControlType = acCommandButton Then
            If Not IsNull(ctl) And ctl.Tag <> "" Then
            ctl.Picture = PicBt & ctl.Tag & ".bmp"
            End If
      End If
ReHandler:
  Next ctl
  Exit Sub
ErrHandler:
    If Err.Number = 2220 Then
        ctl.Picture = PicBt & "0.bmp"
        Resume ReHandler
        End If

 

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

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