ayman14 قام بنشر مايو 15, 2019 قام بنشر مايو 15, 2019 كل عام والجميع بالف خير لدي نمودج وبه عدة ازرار عند فتح النمودج يثم توزيع اسماء الاصناف على الازرار لكل صنف له صورة في الجدول فهده الفكرة ثم العمل عليها ما اريده هو تكملت الكود لتوزيع كل صورة صنف في زر 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 وهدا هو الكود المستخدم
ابو جودي قام بنشر مايو 15, 2019 قام بنشر مايو 15, 2019 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 وهدا هو الكود المستخدم ههههههههههه انا فهمى تقيل حبتين وباتعب مع الاكواد بدون القاعدة فعلا احسن الينا بارفاق القاعدة محل التساؤل فيحسن الله اليكم 1
ayman14 قام بنشر مايو 15, 2019 الكاتب قام بنشر مايو 15, 2019 شكرا على ردك سيد ابا جودي اخي الكريم المسؤلة لا تحتاج قاعدة او مثل فالكود لجلب جدول الصنف موجود لو تمعنت جيدا في الكود لوجدت \ اسم الصنف وكود الصنف موجودين في الكود ما اريده هو كود (Caption.Picture) لتظهر صورة الصنف في الازرار
ابو جودي قام بنشر مايو 15, 2019 قام بنشر مايو 15, 2019 طيب ارفق القاعدة ليتم التعديل مباشرة ان احببت ارفق بمن يريد تقديم يد العون اليك اخى الحبيب بارفاق القاعدة الله يرضى عليك
أبو عبدالله الحلوانى قام بنشر مايو 15, 2019 قام بنشر مايو 15, 2019 السلام عليكم كل عام انتم بخير مبارك عليكم الشهر - وزادكم الله فيه قربة اليه وبعد جرب يا أخى المرفق بهذا الموضوع فأعتقد أن به ما تريد وزيادة - جلب الصور من فولدر خارجى لعدم ثقل البرنامج بوضع الصور بالجدول. ولا تنسى موافتنا بالنتائج - والسلام
ayman14 قام بنشر مايو 15, 2019 الكاتب قام بنشر مايو 15, 2019 حاضر اخي الكريم سوف انزل مثال لان الجهاز الدي اتواصل به خاص لايوجد فيه اي برنامج اكسس عند وصولي الى البيت ساقوم بتنزيله من جهاز الاخر وشكرا
ayman14 قام بنشر مايو 15, 2019 الكاتب قام بنشر مايو 15, 2019 شكرا على اهتمامك السيد ابو عبد الله الحلواني المثال قريب من ما اريده الاختلاف هو في الادات المستخدمة انا لااحب كثرة الاكواد اخي الكري قم بفتخ المثال وسترى ما اريده ( اظهار الصورة في نفس الزر الدي يخمل اسم الصنف الاصناف.mdb 1
ابو جودي قام بنشر مايو 15, 2019 قام بنشر مايو 15, 2019 لم اجد لا ازرار ولا اصناف اخى انت من يريد حل مسألته وسبحان الله انا من اتحايل عليك لتساعدنى
ayman14 قام بنشر مايو 15, 2019 الكاتب قام بنشر مايو 15, 2019 اخي الكريم هدا مجرد مثال جدول اصناف ونمودج لايوجد فيه سوى ازرار عند فتح النمودج تجد كل زر يخمل اسم صنف لم افهم انك لم تجد لااصناف ولا ازرار ساعيد تحميل المثال مثال-2.rar
ابو جودي قام بنشر مايو 16, 2019 قام بنشر مايو 16, 2019 (معدل) اتفضل تم تعديل مايو 16, 2019 بواسطه ابا جودى
ابو جودي قام بنشر مايو 16, 2019 قام بنشر مايو 16, 2019 (معدل) بص هى الفكرة دى مش عارف هتعجبك واللا لاء اولا الكود المستخدم صغير جدا جدا جدا ولكنه فعال جدا لانه يتعامل مع كل الازرار على النموذج مهما كان عددها ولكن ركز معى فى الاتى - كل زر امر يجب كتابه كود الصنف الخاص به على التاج لزر الامر هذا -يجب ان تكون اسم الصورة الخاصة بكل منتج برقم كود المنتج والذى سوف يتم كتابته على تاج زر الامر -يجب ان تكون الصور بامتداد bmp ------------------------- قطعا لا ادرى ان كانت هناك طريقة اخرى ابسط او اكواد اقل من المستخدمة فى طريقتى ولكن هذا ما جال بخاطرى ولن استطيع ان اقدم ابسط من هذا او افضل Picture Bbutton.zip تم تعديل مايو 16, 2019 بواسطه ابا جودى تعديل الكود داخل المرفق 2 1
ابو جودي قام بنشر مايو 16, 2019 قام بنشر مايو 16, 2019 10 ساعات مضت, ayman14 said: اخي الكريم هدا مجرد مثال جدول اصناف ونمودج لايوجد فيه سوى ازرار عند فتح النمودج تجد كل زر يخمل اسم صنف لم افهم انك لم تجد لااصناف ولا ازرار ساعيد تحميل المثال مثال-2.rar 60.91 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 7 downloads عذرا لم انتبه لمرفقك الا الان - كل زر امر يجب كتابه كود الصنف الخاص به على التاج لزر الامر هذا -يجب ان تكون اسم الصورة الخاصة بكل منتج برقم كود المنتج والذى سوف يتم كتابته على تاج زر الامر -يجب ان تكون الصور بامتداد bmp اتفضل يا سيدى التعديل على مرفقك Picture Bbutton - مثال-2 -.zip 4
A7MD M7MD قام بنشر مايو 16, 2019 قام بنشر مايو 16, 2019 ايه الحجات الغريبه دى والكود ده الغريب ده انا مش فاهم حاجه بس بجد الشغل والنتيجة ولا أروع تحفة وربنا ياريت يا أبو جودى تتكرم علينا وتشرح لنا وتفهمنا الكود السحرى ده
أبو عبدالله الحلوانى قام بنشر مايو 16, 2019 قام بنشر مايو 16, 2019 بجد 11 ساعات مضت, ابوخليل said: عمل ولا اجمل ولا اخصر ابا جودي شكرا لك ولكن وعلى فكرة الفاكهة اللى حضرتك خدتها دى لسه ما ادفعش تمنها 2
ayman14 قام بنشر مايو 16, 2019 الكاتب قام بنشر مايو 16, 2019 (معدل) السلام عليكم مشكور استاد ابا جودي المثال ممتاز جدا كنت ساعطيك لقب خبير فاتضح لي اني لم ارى لائحة الشرف وانت تستخقها بجدارة بارك الله فيك وفي علمك وجزاك الله عنا كل الخير في هدا الشهر المبارك كما اشكر الاستاد ابو عبد الله الحلواني سؤال ان تكرمت بالاجابة ادا اردت الصورة ان تكون خلفية لزر (تمدد) تاخد حجم الزر وليس ايقونة لزر تم تعديل مايو 16, 2019 بواسطه ayman14
رمهان قام بنشر مايو 17, 2019 قام بنشر مايو 17, 2019 في ١٥/٥/٢٠١٩ 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 وهدا هو الكود المستخدم احساسي ان هذا الكود يحمل بصمتي والله اعلم !
ayman14 قام بنشر مايو 17, 2019 الكاتب قام بنشر مايو 17, 2019 وعليكم السلام تعقيبا على مداخلتك فالكود ثم اخده من منتدى عرب محيط للاستاد ابو فيصل وهدا في تاريخ قديم على ما اتدكر سؤالي اليك اخي الكريم في حالة عدم وجود صورة لصنف اريد عمل صورة افتراضية وشكرا
رمهان قام بنشر مايو 17, 2019 قام بنشر مايو 17, 2019 عزيزي مشاركتي ليس والله اسالك من اين اتيت بالكود ولكن في البرمجة هناك ما ينتاب المبرمج بشعور تجاه كوده .. فهو يعرفه مباشره .. فكانت الفكره هو استخدام التاق وهنا نفس الكود ... فمعقوله انا وابو فيصل نفس الفكره والبصمه ... الله اعلم يارجل حتى مسالة سرد الازرار والمرور عليها لتصبح كنقاط بيع فكره جديده في المنتدى هنا .. بالتوفيق
ابوخليل قام بنشر مايو 17, 2019 قام بنشر مايو 17, 2019 اقتباس عمل ولا اجمل ولا اخصر ابا جودي شكرا لك نحن دوما نستحسن ونشجع اذا اعجبتنا الفكرة ، ونكل الشخص الى ذمته العلم ليس حكرا على احد من الناس ، والافكار تتلاقح والعلم تراكمي .. الخلف يضيف ويطور ما تعلمه من السلف العجيب .... بعد مداخلة الاستاذ رمهان .... بحثت عن الجزئية الخاصة بجلب الصور وتوظيفها ضمن الكود المستخدم فلم اعثر على شيء وبهذا تعتبر هذه الاضافة جديدة على الاقل بالنسبة لي .. رغم انه لم يذكر تفرده بالفكرة . لذا يحق لابي جودي تسميتها بالاضافة الجودية على غرار : اني اشم في الكود رائحة رمهانية 1
ابو جودي قام بنشر مايو 17, 2019 قام بنشر مايو 17, 2019 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" امتداد الصورة
ابو جودي قام بنشر مايو 17, 2019 قام بنشر مايو 17, 2019 14 ساعات مضت, أبو عبدالله الحلوانى said: بجد ولكن وعلى فكرة الفاكهة اللى حضرتك خدتها دى لسه ما ادفعش تمنها هههههههههههههه استاذى الجليل ومعلمى القدير واخى الحبيب الاستاذ @أبو عبدالله الحلوانى دائما انتهز الفرصة عندما اجد ردا من احد اساتذتنا الكرام عمالقة هذا الشرح لاتعلم منهم وراى افكارهم الرائعة وبصراحة وبعد تفحص مثالكم الرائع وجدت تلك الصور الرائعة والتى ذادت جوعى وانا صائم من روعتها حتى اننى احسست اننى شممت رائحتها ولذلك اردت ان انقل هذا الاحساس الى الجميع وبهذا بتضاعف عدد من سيدفع الثمن هههههههههههههههههههههههههه كل عام وانتم بخير وسعادة ان شاء الله
ابو جودي قام بنشر مايو 17, 2019 قام بنشر مايو 17, 2019 55 دقائق مضت, ابوخليل said: نحن دوما نستحسن ونشجع اذا اعجبتنا الفكرة ، ونكل الشخص الى ذمته العلم ليس حكرا على احد من الناس ، والافكار تتلاقح والعلم تراكمي .. الخلف يضيف ويطور ما تعلمه من السلف العجيب .... بعد مداخلة الاستاذ رمهان .... بحثت عن الجزئية الخاصة بجلب الصور وتوظيفها ضمن الكود المستخدم فلم اعثر على شيء وبهذا تعتبر هذه الاضافة جديدة على الاقل بالنسبة لي .. رغم انه لم يذكر تفرده بالفكرة . لذا يحق لابي جودي تسميتها بالاضافة الجودية على غرار : اني اشم في الكود رائحة رمهانية والدى الحبيب استاذى الجليل ومعلمى القدير المبجل الاستاذ @ابوخليل بحثت عن الجزئية الخاصة بجلب الصور وتوظيفها ضمن الكود المستخدم فلم اعثر على شيء انا لا استطيع الحفظ وهذه هى مشكلة حياتى ولكن بمجرد الفهم تظل الافكار تتسارع داخلى واتخيل المضمون واقسمه الى معطى + مجهول = نتيجة واتعامل على هذا الاساس البحث عن المجهول بناء على تلك المعادلة ولاننى افكر وابحث ولا استطيع الحفظ والله قد تصادف ان اقوم بعمل نفس الشئ فى كل مرة بطريقة مختلفة فى شكل وصياغة الكود فقط اكتب الكود بناء على ترتيب افكارى ومدى فهمى للمطلوب بما هو متاح وفى النهاية انا مجرد هاو ولست محترف فلم ادرس قط البرمجة فى حياتى واعتمد على التحليل والتطبيق والتجربة ليس الا ونهاية الامر هو توفيق من الله سبحانه وتعالى ومن بعد فضل رب العباد اساتذتى الكرام الذين تعملت منهم ومن اسلوبهم وافكارهم
ابوخليل قام بنشر مايو 17, 2019 قام بنشر مايو 17, 2019 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 1
ayman14 قام بنشر مايو 17, 2019 الكاتب قام بنشر مايو 17, 2019 وعليكم السلام استادي ابو خليل بارك الله فيك على متابعة الموضوع الكود لم يعمل معي تطلع رسالة مفادها | ||خطأ في الكود (Resume ReHandler)
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.