ابو جودي

شوف هذا راى ولك طبعا مطلق الحرية انا عن نفسى افضل استخدام اسماء الجدول بالطريقة الاتية tblOfficenaForms ممكن حد تانى يحبها كده tbl_Officena_Forms انا وضعت دالة لتحويل اول حرف من كل مفطع الى حرف كبير وباقى الاحرف صغيرة وترطت للمستخدم حرية الاختيار فى موضوع ال Under Score وطبعا انا اسف انا غلط فى كتابتها على النموذج بالشكل Use ChkUnder Score لانها مفروض كانت تكون Use Under Score و\بعا جمبها او تحتها تلميح لتوضيح الوظيفة بس وقتها كنت خلاص رايح الشغل وضيق وقتى خلانى اقع فى المشكلة الالولى اللى اظهرت الرسائل مع اكثر من حقل طبعا انا اول التعديل كتبت الكود بصراحة ان تكون النتيجة بالشكل التالى tblOfficenaForms وبعدين فلت ليه افرض رأى فى الكود ولذلك فكرت فى استخدام Optional علشان اسيب للجميع حرية الاختيار وعدلت الكود تانى على هذا الاساس لاحظ كده فى الفترى الاخيرة تحديدا كل ما اقدمه احاول بقدر الامكان تحقيقة باكبر قدر ممكن من المرونه حتى وان تطلب هذا جهدا فى التفكير وانشاء وترتيب الافكار فى الكود وان ذادت اسطر الكود لا ابالى شوفت مرفق لعبة الكلمات المتقاطعة ؟ من هنا كنت عاملة بسيط من زمان جدا جدا على سبيل التسلية وقتها ولم اكمل العمل ولكن بعد مشاهدتى لموضوع الاستاذ @Moosak صحى الطفل اللى جوايا وذكريات الماضى لانه كنت و والدى رحمه الله تعال وكل المسلمين يوميا نلعبها فى الجرائد ونلعب ونضخك وقت الافطار بعد صلاة الفجر و وقت الشروق ولكن بصراحة لانه احبه جدا فى لله قلت اعاكسة ويلا بقى تحدى.... طبعا امزح انه اخى الحبيب ولكن انا تعلمت الكثر بسبب فقط عاصفة الافكار التى اجتاحتنى وقتها

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

سوف اقدم اليك النصح وانا اقل طويلب علم بالمنتدى ضع نصب عينيك دائما وابدا وبوجه خاص مع الاكسس البساطة قدر الامكان لانه صدقنى وعندما تكون البيانات اولا قليلة او قد يتتطلب مشروعك عمل وتنفيذ الكثير من الاجراءات وبالاخص ان كانت معقدة وام تم التعامل مع جهاز ضعيف او عبر استخدام القاعدة ضمن شبكة محلية قد تصيبك صدمة من استخدام ما قد يكون لو تأثير بالسلب على اداء وسرعة فاعدة البيانات لذلك انصحك بالبساطة اعلم انه فد ترى وتشاهد حركات وامور تكون مبهجة وقد تعجب بها جدا ولكن كما اخبرتك واليك مثال على الرئيسية على سبيل المثال expand and collapse button V3.zip

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

انت تعرف أن الوصف ده بيظهر فى النموذج واللا معندكش فكرة

السلام عليكم اعتذر جدا جدا جدا لكم اساتذتى الافاضل @Moosak , @عمر ضاحى اثناء تجربتى للتعديلات لم اقم الا باضافة حقل واحد لضيق وقتى لذلك لم تظهر المشكلة والان بفضل الله تم تدارك المشاكل وحلها جميعا يرجى الرد بنتيجة التجربة وانتظروا تحديث جديد ان قدر الله لنا اللقاء ان شاء الله Create advanced tables V 2.0.1 .accdb

مين قال انه صعب هذه الفكرة الاولى لتعديل المرفق الاساسى والتعديلات كالاتى - من الجدول : tblHolidaySettings يتم تحديد ايام الاجازات الاسبوعية لتغير لونها فى نموذج الـ frmCalendar لتكون باللون الاحمر ويمكن تغير اللون من الكود من السطر HolidayColor = vbRed - تم عدم تفعيل ايام العطلات تبعا للتواريخ الموجودة بالجدول : tblPublicHolidays - تم اضافة Label بأسفل النموذج frmCalendar لعرض تواريخ العطلات واسمائها والغير مفعلة فى النموذج ليكون المستخدم على علم بسبب عدم تفعيل هذه التواريخ calendar V 2.0 .accdb

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

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

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

الطريقة الخامسة.accdb

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

انا بجد مش هاتكلم

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

الطريقة الرابعة -2.accdb

ارفعى المرفق اللى انت شغالة عليه

طبعا لازم يعمل كده واكتر من كده المفروض يشد قى شعرة ويصرخ والله مع الرسالة كمان لان سيادتك مش مركزة اصلا 😡 حدث التركيز يا دكتور = TextBox_GotFocus([Form],[TestnameN]) لكن الحدث للنقر المزدوج هو اللى يكون بالشكل ده لما نكون عاوزين الليست بوكس متعدد القيم يا دكتور =OpenListBoxForm([Form],[TestnameN],True) ولكن الحدث للنقر المزدوج هو اللى يكون بالشكل الافتراضى ده لما نكون عاوزين الليست بوكس قيم مفردة فقط وليست متعددة يا دكتور =OpenListBoxForm([Form],[TestnameN]) يا ريت نركز شوبة انا عامل لك افكار اقسم طلعت عينى مش هتبقى انت وهى ومراتى والعيال

اه حاجة ع الهامش كده يا دكتور @safaa salem5 بطلى تاكلى الحروف زى حلاتى انتى كتبتى Macroscopic Examintion : كلتى حرف a Macroscopic Examination : وطبعا الافضل تكون Macroscopic Examinations :

ابدأ فى العمل وعندما تتعثر اسأل مبدأ المنتدى سؤال وجواب يا صديقى العزيز هذا القسم من المنتدى تعليمى أما ولكن فى حالة طلب ليس هذا المكان المناسب وإنما عليك أن >>---> تتوجه الى هنا على الفور

اتفضلى يا ست الدكتورة على الله بس الشغل يعجب معاليكى كده 3 جنيه مش حسيبهم يرجى التركيز جيدا لقد قمت تقريبا بتكويد العمل كله من خلال وحدة نمطية ولا يوجد اى اكواد مستقبلا تخص هذه الجزئية فى النماذج يتم استدعاء الدوال لحدث التركيز من خلال Expression Builder وليس من خلال Code Builder وبالتالى حدث التركيز يتم استدعاءه بالشكل التالى = TextBox_GotFocus([Form],[TestnameN]) مما تتيح هذه الطريقة اختيار كل مربعات النص دفعة واحدة التى نريد تفيذ هذا الاجراء عليها ووضع كود الاستدعاء السابق فى حدث التركيز مرة واحدة بدلا من عمل ذلك لكل مربع والمعلمات التى نمررها لكود الاستدعاء هذا تكون كالتالى اسم النموذج الحالى وبدلا من كتابة اسم النموذج كل مرة فقط [Form] سوف تتكفل بذلك. اما الجزء الثانى اسم مربع النص الذى نريد تحديث قيمته الكود الثانى فى حدث النقر المزدوج بنفس الآلية والاسلوب السابق ولكن يزيد عليه اضافة القيمة البولينية (Boolean value) >>--> True بالشكل التالى : =OpenListBoxForm([Form],[TestnameN],True) عندما يكون الاستدعاء بالشكل السابق سوف يتم استدعاء النموذج Resultaddfixed_frm بقائمة قيم متعددة .. لا سحر ولا شعودة دا اكسس يا حضرات طيب وعندما نريد للقيم ان تكون مفردة وليست متعددة يتم الاستدعاء بالشكل الافتراضى بدون اضافة القيمة البولينية (Boolean value) =OpenListBoxForm([Form],[TestnameN]) وفى انتظار رأى استاذى الجليل ومعلمى القدير الاستاذ @Moosak صاحب المكتبة العامرة هل تستاهل الافكار هنا فى المرفقات الثالث والرابع عبى يابا واللا ايه وطبعا فى إنتظار رأى استاذى الجليل ومعلمى القدير الاستاذ @kkhalifa1960 والذى اسأل الله تعالى له الشفاء و دوام الصحة والعافية والبركة فى العمر والعمل بما أنه صاجب السبق فى الرد على الموضوع احد اعمدة المنتدى الذين اتعلم منهم الطريقة الرابعة.accdb

يعنى لو حققت لك ده نشتغل بالطريقة الاولى واللا الثالثة ؟

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

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

طب وعلشان يبقى لى جنية مش ربع جنيه بس 😡 الطريقة الثالثة والاخير كما ينبغى انا عن نفسى لو دا شغلى حيبقى كده الفيم الافتراضية اللى عمالين نعملها DLookUp كل شوية لكل حقل اللى بصراحة انا مش عارف معناها ايه ولكن ايه العذاب ده هى حبة سطور فى موديول وخلصت الحكاية ' Procedure to load default values from lookup table into text boxes for any form Public Sub LoadDefaultValues(frm As Form) Dim ctl As Control Dim defaultValue As String For Each ctl In frm.Controls ' Check if the control is a text box and has the specific tag If ctl.ControlType = acTextBox And ctl.Tag = "GetTestFixedData" Then ' Set the default value if it exists defaultValue = Nz(DLookup("fixeddefault", "fixed_tbl", "[Reportname] = '" & ctl.Name & "'"), "") If defaultValue <> "" Then ctl.defaultValue = """" & defaultValue & """" Else ctl.defaultValue = "" End If End If Next ctl ' Repaint and process events for the entire form Call RepaintAndProcessEvents(frm) End Sub اعملى بقه 100 تموذج وفى كل نموذج حطى الـ 80 مربع نص باسمائهم صح وبس فى حدث التحميل Call LoadDefaultValues(Me) وهو شاطر وابن حلال هيفهمك لوحده وبسرعة ويحقق لك احلامك بس بشرط هنجيلة كمان شوية --- طيب طالما ان النماذج ممكن تكون كثيرة وكذلك مربعات النص لنتائح التحاليل انا وفرت كل شوية كتابة كود فى حدث التركيز لكل مربع نص لانه عذاب ووجع قلب اه والله زيمبئولك كده بجد الا اذا وقتك فاضى بئه وعاوزة تضيعيه ومعاه عمرك فى كتر الكتابة كل الحكاية انا فى الدالة دة OpenListBoxForm استخدمت السطر ده defaultValue = Nz(DLookup("fixedname", "fixed_tbl", "[Reportname] = '" & FormName.ActiveControl.Name & "'"), "") ده بيعمل ايه والمفروض انا التزم بأيه علشان يشتغل معايا صح ده بيروح قبل ما يفتح نموذج الليست بوكس ع الجدول fixed_tbl وتبعا لاسم مربع النص اللى انا هاعمل عليع دوبل كليك يجيبلك قيمة fixedname لما يكون الحقل Reportname = اسم مربع النص الحالى ولو تفتكرى قلتلك " بس بشرط هنجيلة كمان شوية " وهنا نيجى للنقطة المهمة جدا جدا جدا دى القيمة اللى فى الجدول fixed_tbl فى حقل fixeddefault واللى هتكون بداخل مربع النص اللى انا هأفتح منه الليست بوكس لازم يكون اسم مربع النص بنفس اسم القيمة اللى فى Reportname فى نفس الجدول ده " وهو ده الشرط المهم " طبعا الشغل اللى فات ده كله بناء على تحليل الالية والنتائج والافكار اللى انا شوفتها فى تصميمك المرفق اذا انا فهمت وحللت صح او طبعا سيادتك ما تفاجئينا كالعادة طبعا بعد تقديم الحل انك تقصدى شئ تانى او فى شئ خفى فى تصميمك ولم تذكيرة او لم تطلبى كل طلباتك والمتعلقة بالسؤال والموضوع مرة واحدة المرفق بعد كل التعديلات ومسح كل الزيادات ووجع القلب اللى كان وتضيع الوقت والعمر فى تكرار اكواد كثيرة تم اعادة تنقيحه وهيكلتة اذا وافق رغباتك يبفى الحمد الله فضل ونعمه 🤲👌 اذا فى مفاجئات كالعادة يبقى لنا الله الطريقة الثالثة.accdb