ابو جودي

بعد اذن والدى الحبيب واستاذى الجليل ومعلمى القدير المبجل الاستاذ @ابوخليل انا حضرت الجواب ولما وجدت مشاركتك استحييت ان اضع الاجابة التى فكرت بها وعلى استحياء اضح هذا الكود بدون استخدام كود تصييد الاخطاء 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 If Dir(PicBt & ctl.Tag & ".bmp") = "" Then If Dir(PicBt & "0.bmp") = "" Then Exit Sub Else ctl.Picture = PicBt & "0.bmp" End If Else ctl.Picture = PicBt & ctl.Tag & ".bmp" End If End If End If Next ctl Exit Sub

اتففضل New Microsoft Access قاعدة بيانات.accdb

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

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

اولا الموديول 'المســـار الحالى لقاعدة البيــــانات .... 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" امتداد الصورة

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

هذا القسم تعليمى للاسف كان اولى بك وضع مشاركتك فى قسم https://www.officena.net/ib/forum/157-إعلانات-شخصية-للاعضاء-فقط-فى-مجال-الموقع/

على فكرة انا مش عارف افهم اى شئ وللاسف فهم السؤال نصف الاجابة

1- انشئ موديول جديد وضع به هذا الكود Option Compare Database Option Explicit Public Function GetWaiting(strData As String) DoCmd.OpenForm "frmWaiting" Forms!frmWaiting!lblWaiting.Caption = strData Pause 0.1 End Function Public Function Pause(NumberOfSeconds As Variant) On Error GoTo Err_Pause Dim PauseTime As Variant, Start As Variant PauseTime = NumberOfSeconds Start = Timer Do While Timer < Start + PauseTime DoEvents Loop Exit_Pause: Exit Function Err_Pause: MsgBox Err.Description Resume Exit_Pause End Function 2- قم بنقل النموذج frmWaiting من المثال المرفق 3- فى نموذج البحث فى قاعدتك اذهب الى زر الامر الخاص بالبحث وضع به هذا الكود On Error Resume Next Call GetWaiting("برجاء الإنتظار .. جارى معالجة البيانات............") .......... هنا كود البحص الخاص بك مكان هذا السطر .............. DoCmd.Close acForm, "frmWaiting" بس خلاص

Waiting_Fotm.zip اقتح النموذج HomePage

والله نفس الكود سبحان الله على كل الحمد لله

اتفضل هذا اقصى ما استطيع تقديمه تأجير_ومبيعات_ابو_همام_2019.accdb اعتذر جدا اليك

نعم اخى الكريم انتظر ردك بعد التجربة ان شاء الله

اتفضل الكود Form_kkk.تاريخ_الارجاع_الفعلي.SetFocus Form_kkk.تاريخ_الارجاع_الفعلي = [Form_استرجاع سقف].التاريخ

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

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

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

جرب هذا ا لكود على البرنامج الكامل هذا المرفق اصلا به خلل [Forms]![kkk]![تاريخ الارجاع الفعلي] = [التاريخ]

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

Private Sub التاريخ_AfterUpdate() '[Forms]![استرجاع سقف]![التاريخ] = [Forms]![salloum]![تاريخ الارجاع الفعلي] Form_kkk.تاريخ_الارجاع_الفعلي = Me.التاريخ End Sub

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

المرفق

على افتراض ان اسم الحقل قى النموذج الفرعى txtTarget واسم الحقل فى النموذج الرئيسي txtSource الحطوة التالية انت ادرى بتصميمك انظر متى تريد تنفيذ هذا الحدث وضع الكود كالاتى فى النموذج الفرعى txtTarget = Form_frmMainName.txtSource ويمكن عمل ان اردت Link Master Fields Link Child Fields باسماء الحقول ولكن فى هذه الحالة لن تظهر اى قيم فى النموذج الفرعى الا ان كانت قيم الحقول متساوية

اسف على التأحيــــر تقييم_الطالبات_v_2.0.0.mdb

عذرا لم انتبه لمرفقك الا الان - كل زر امر يجب كتابه كود الصنف الخاص به على التاج لزر الامر هذا -يجب ان تكون اسم الصورة الخاصة بكل منتج برقم كود المنتج والذى سوف يتم كتابته على تاج زر الامر -يجب ان تكون الصور بامتداد bmp اتفضل يا سيدى التعديل على مرفقك Picture Bbutton - مثال-2 -.zip