عايزه افضل اقتراح لطريقة تصميم فورم كل حقوله يتم ملأها من خلال الاختيار من ليست بوكس

[safaa salem5]

13 minutes ago, ابو جودي said:

ان شاء الله نعم انا مجيب 

اعتذر على التأخير انا على سفر 

هناك طريقة ثانية لاختصار واختزال كل اوامر الـتركيز  >>--->>   GotFocus()
بس لما حضرتك تاكدى على الاول ان هى دى النتيحة اللى انتى عاوزاها صح يا افندم 

الطريقة الاولى.accdb 780 kB · 0 downloads

ايوه تمام هى دى النتيجه وفى انتظار الطريقه التانيه 

13 minutes ago, ابو جودي said:

ان شاء الله نعم انا مجيب 

اعتذر على التأخير انا على سفر 

هناك طريقة ثانية لاختصار واختزال كل اوامر الـتركيز  >>--->>   GotFocus()
بس لما حضرتك تاكدى على الاول ان هى دى النتيحة اللى انتى عاوزاها صح يا افندم 

الطريقة الاولى.accdb 780 kB · 0 downloads

ايوه تمام هى دى النتيجه وفى انتظار الطريقه التانيه 

13 minutes ago, ابو جودي said:

ان شاء الله نعم انا مجيب 

اعتذر على التأخير انا على سفر 

هناك طريقة ثانية لاختصار واختزال كل اوامر الـتركيز  >>--->>   GotFocus()
بس لما حضرتك تاكدى على الاول ان هى دى النتيحة اللى انتى عاوزاها صح يا افندم 

الطريقة الاولى.accdb 780 kB · 0 downloads

ايوه تمام هى دى النتيجه وفى انتظار الطريقه التانيه 

ايوه تمام هى دى النتيجه وفى انتظار الطريقه التانيه 

[ابو جودي]

منذ ساعه, safaa salem5 said:

ايوه تمام هى دى النتيجه وفى انتظار الطريقه التانيه 

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

كده الحساب ربع جنية بس يلا خليها علينا احنا 

 

الطريقة الثانية.accdb

[ابو جودي]

ملاحظة هامة جدا 

انا مازلت على سفر يعنى ارجو التماس العزر لى فى حالة التاخير انا فى العمل وقتى ضيق 

[safaa salem5]

2 hours ago, ابو جودي said:

ملاحظة هامة جدا 

انا مازلت على سفر يعنى ارجو التماس العزر لى فى حالة التاخير انا فى العمل وقتى ضيق 

توصل بالسلامه  ومتشكره جدا لحضرتك جزاك الله الجنه

[safaa salem5]

6 hours ago, ابو جودي said:

ان شاء الله نعم انا مجيب 

اعتذر على التأخير انا على سفر 

هناك طريقة ثانية لاختصار واختزال كل اوامر الـتركيز  >>--->>   GotFocus()
بس لما حضرتك تاكدى على الاول ان هى دى النتيحة اللى انتى عاوزاها صح يا افندم 

الطريقة الاولى.accdb 780 kB · 3 downloads

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

تم تعديل يوليو 14 بواسطه safaa salem5

[safaa salem5]

5 hours ago, ابو جودي said:

كده الحساب ربع جنية بس يلا خليها علينا احنا 

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

[ابو جودي]

 طب وعلشان يبقى لى جنية   مش ربع جنيه بس 😡

الطريقة الثالثة والاخير كما ينبغى

انا عن نفسى لو دا شغلى حيبقى كده 

الفيم الافتراضية اللى عمالين نعملها 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

[safaa salem5]

14 hours ago, safaa salem5 said:

محتاجه يكون فى اتاحه لبعض  الحقول(مش كلهم) انها تقبل انى  اضيف فيها اكتر من اختيار كل اختيار يكون فى سطر @ابو جودي بمعنى تانى  بعض الحقول لا يمكن ان تقبل سوى قيمه واحده والبعض الاخر يمكن ان يقبل قيمه او اكتر من قيمه

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

[hanan_ms]

حبيبتي صفاء ❤️🌹🌹

بعد اذن استاذي @ابو جودي

اظن احتمال اصبة هالمره 😇

من اي فورم لو كان من مفرع لتفريع الفورم او فور جديد 

 من فورم واحد فقط List Box 

يوجد شرح بسيط داخل المرفق

على طريقة استاذ @Moosak

بموضوع MyMsgbox 😇

 

بس اضافة فورم مخفي 

docmd.openform,,,,,,hide 😇

من او ما يشتغل البرنامج بسبب الاستعلام يبحث عت الحقل البحث 

Like "*"

ويكون خالص 

  هل هو طلب حبيبتي صفاء @safaa salem5❤️

Moosak List_Box Menu Anyway.rar

[safaa salem5]

صباح الخير ياقلبى معلش انتى مستواكى اعلى منى بمراحل عشان كدا انا مابفهمكيش انا لسه يدوب على ادى .. دا اولا  ثانيا ايه الشغل العالى دا  الموضوع بسيط عندى خالص انا مش مخزن عشان اطلع رصيد وكميه والكلام الكبير دا  الفكره اللى انا بعملها انى انا عندى فى المعمل تقرير زى اليورن او الاستول بتكون فيلداته كلها اختياريه عشان نوفر عاللى بيسجل النتائج انه يقعد يكتب كل كلمه . وبصراحه ابو جودى حقق المطلوب بس فاضل نقطه بسيطه ان بعض الحقول فى بعض الاوقات بتاخد اكتر من اختيار يعنى مثلا مريض عنده فى تقرير البول نوعين من الاملاح زى Uric Acid(+)  ,ونوع تانى Ca oxalate(+)   المفروض هيتم اختيارهم ويكونو فى نفس الحقل   والنقطه دى اللى واقفه معايا يا حبيبتى وشكرا جدا لاهتمامك

انا عامله الحقول اللى ممكن تاخد قيمه او اكتر من الخصائص زى الصوره

والحقول اللى بتاخد قيمه واحده الزاميه

تم تعديل يوليو 15 بواسطه safaa salem5

[safaa salem5]

10 hours ago, ابو جودي said:

ذا فى مفاجئات كالعادة   يبقى لنا الله 

هو مفيش مفاجات ولا حاجه بس واضح انك كنت موضب الطريقه التالته قبل ماتقرأ طلبى  اللى هوا دا   ( محتاجه يكون فى اتاحه لبعض  الحقول(مش كلهم) انها تقبل انى  اضيف فيها اكتر من اختيار كل اختيار يكون فى سطر @ابو جودي بمعنى تانى  بعض الحقول لا يمكن ان تقبل سوى قيمه واحده والبعض الاخر يمكن ان يقبل قيمه او اكتر من قيمه

[ابو جودي]

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

 

[safaa salem5]

4 minutes ago, ابو جودي said:

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

 

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

تم تعديل يوليو 15 بواسطه safaa salem5

[ابو جودي]

4 دقائق مضت, safaa salem5 said:

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

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

ولو حتستخدمى الطريقة الاول ودى اخر كلام هاروح احمل مرفقها واشوف هاعملها لك ازاى

منتظر رايك وبسرعة

 

[safaa salem5]

22 minutes ago, ابو جودي said:

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

ولو حتستخدمى الطريقة الاول ودى اخر كلام هاروح احمل مرفقها واشوف هاعملها لك ازاى

منتظر رايك وبسرعة

 

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

 

تم تعديل يوليو 15 بواسطه safaa salem5

[ابو جودي]

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

 

[safaa salem5]

1 minute ago, ابو جودي said:

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

 

علشان ما ارهقش حضرتك زياده عن اللزوم خلينا فى الاولى بناء على انها افضل الحلول بالنسبالى حاليا

[ابو جودي]

اتفضلى يا ست الدكتورة 
على الله بس الشغل يعجب معاليكى 

كده 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

[ابو جودي]

اه حاجة  ع الهامش كده يا دكتور @safaa salem5

بطلى تاكلى الحروف زى حلاتى 

انتى كتبتى Macroscopic Examintion :
كلتى حرف a
Macroscopic Examination :
 

وطبعا الافضل تكون
Macroscopic Examinations :

[safaa salem5]

1 hour ago, ابو جودي said:

=OpenListBoxForm([Form],[TestnameN],True)

لما بكتب القيمه دى بيدينى الرساله دى

[ابو جودي]

طبعا لازم يعمل كده

واكتر من كده المفروض يشد قى شعرة ويصرخ والله مع الرسالة كمان لان سيادتك مش مركزة اصلا 😡

حدث التركيز يا دكتور 
 

= TextBox_GotFocus([Form],[TestnameN]) 

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

=OpenListBoxForm([Form],[TestnameN],True)

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

=OpenListBoxForm([Form],[TestnameN])

 

يا ريت نركز شوبة انا عامل لك افكار اقسم طلعت عينى مش هتبقى انت وهى ومراتى والعيال

[safaa salem5]

7 minutes ago, ابو جودي said:

يا ريت نركز شوبة انا عامل لك افكار اقسم طلعت عينى مش هتبقى انت وهى ومراتى والعيال

😂

[safaa salem5]

10 minutes ago, safaa salem5 said:

بحاول الصق الكود دا فى حدث عند النقر المزدوج    

=OpenListBoxForm([Form],[TestnameN],True)

نفس الرساله

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

[ابو جودي]

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

 

[safaa salem5]

1 minute ago, ابو جودي said:

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

 

نفس الملف والله الطريقه الرابعه