إضافة زر جديد بقائمة مطعم

[wael_rafat]

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

تحية طيبة لاساتذتي الكرام والاخوة الاعضاء الافاضل ،،،

سؤالي بخصوص طريقة اضافة زر جديد بالقائمة عند اضافة صنف جديد بقائمة الاصناف

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

وبعد البحث وجدت مثال مشابه لطلبي ولكن  الطريقة مختلفة لدي ، حيث ان الطريقة التي اتعامل معها طريقة ال " Tag " ويرجع الفضل لهذه الطريقة بعد ربنا سبحانه وتعالي الي استاذي ومعلمي القدير " رمهان " بارك الله فيه وفى علمة وجزاه الله عنا كل خير .

مرفق مثال مع صورة توضيحية للمطلوب ..

 

الطريقة الرمهانبية.rar

[رمهان]

اهلا بالاخ وائل

انا حجاوب وحدة وحدة حتى نحصل على المراد باذن الله

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

جرب وبالتوفيق

 

الطريقة الرمهانبية.rar

[wael_rafat]

استاذي الغالي رمهااان

كالعادة لمسات رمهانية ولا اروع من كدة ماشاء الله تسلم اناملك استاذي القدير ... بارك الله فيك وزادك الله من علمة

طريقة فعالة ومختصرة كعادتك استاذي " المختصر المفيد "  

وعليه يجب ان اقوم في البداية  بتسمية جميع ازرار صفحة المأكولات ال20 زر  من cmd1001 الي cmd1020 . وايضا باقي الصفحات .   تمام

اقتراحي استاذي العزيز ان تكون الازرار الخالية  من " اسم الصنف "  غير ظاهرة ويظهر فقط الازرار التي تحمل عنوان اي اسم الصنف .

وجزاك الله كل خير استاذنا القدير 

مع كل الحب والتقدير

[wael_rafat]

للتذكرة استاذنا الغالي رمهااان

طريقة اخفاء الازرار التي لا تحمل اسماء ،،، واظهار فقط الازرار التي تحمل اسماء " اسم الصنف"

وسامحني علي الاطالة بارك الله فيك

كل الشكر والتقدير استاذنا الحبيب

 

[رمهان]

15 دقائق مضت, wael_rafat said:

للتذكرة استاذنا الغالي رمهااان

طريقة اخفاء الازرار التي لا تحمل اسماء ،،، واظهار فقط الازرار التي تحمل اسماء " اسم الصنف"

وسامحني علي الاطالة بارك الله فيك

كل الشكر والتقدير استاذنا الحبيب

 

اعتقد تقصد اخفاء الازرار وكذلك الصور ! لان الصور هي الظاهرة !

وحيث ان بفكرتك لا يوجد ربط بين زر الامر والصورة التي خلف : تتكرم باعادة تتسمية الصور هكذا

img001 

img002

اي نفس قاعدة تسمية ازرار الامر

وكذلك نافذة المشروبات تاخذ نفس النمط

ثم تعيد رفع الملف مرة اخرى طبعا بها كود مشاركتي السابقة !

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

 

بالتوفيق

[wael_rafat]

تمام ....  استاذي الغالي بارك الله فيك 

جاري اعادة تسمية الصور .

[wael_rafat]

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

12 ساعات مضت, رمهان said:

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

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

وسامحني على الاطالة وبارك الله في عمرك واهلك وعلمك

خالص شكري وتقديري

تسمية الصور.rar

[رمهان]

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

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

ثم اعمل اخفاء لجميع ازرار الامر والصور ( يمكنك فتح form1  في التصميم ثم تحديد الكل ثم خاصية مرئي= لا )

ثم استبدل الكود للنموذج عند التحميل بهذا :

Private Sub Form_Load()
Set rs = CurrentDb.OpenRecordset("select itemcode,itemdes from tmenu where menucode='1'"): rs.MoveLast: rs.MoveFirst
For x = 0 To rs.RecordCount - 1
Me.Controls("cmd" & rs(0)).Caption = rs(1)
Me.Controls("cmd" & rs(0)).Visible = True
Me.Controls("img" & rs(0)).Visible = True
rs.MoveNext
Next
End Sub

بالتوفيق

تم تعديل نوفمبر 27, 2016 بواسطه رمهان

[wael_rafat]

جزاك الله عنا كل خير استاذنا الغالي

ولا يحرمنا منك ولا من طرقك الرمهانية  

كل الشكر والتقدير