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

[ابو جودي]

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

[safaa salem5]

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

الطريقة الرابعة -2.accdb 868 kB · 2 downloads

مش بيسجل غير نتيجه واحده   

[ابو جودي]

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

انتى بتهزرى واللا ده بجد

[safaa salem5]

معلش انا اسفه جدا انا عارفه انى تعبتك معايا بس النتيجه اللى انا عايزاها زى دى

[ابو جودي]

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

[safaa salem5]

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

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

اصل انا هلغى زرار ابديت وهخلى الكود عند النقر المزدوج

[safaa salem5]

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

[ابو جودي]

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

وزر الامر الغية والمرفق كله لو عاوزه احذقيه

ولما تحبى تضيفى اكتر من نتيجة اعمليها فى ميت خطوة 

فى ناس بتحب تضيع عمرها ع الفاضى لان وقتها فاضى وانا مش منهم 

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

[safaa salem5]

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

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

وزر الامر الغية والمرفق كله لو عاوزه احذقيه

ولما تحبى تضيفى اكتر من نتيجة اعمليها فى ميت خطوة 

فى ناس بتحب تضيع عمرها ع الفاضى لان وقتها فاضى وانا مش منهم 

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

لا دا برنامج انا بجيب لحضرتك الفكره منه

عموما شكرا لحضرتك جزاكم الله خيرا 

[Foksh]

مداخلة ليس لها علاقة بالحل ،

على حد علمي انه تم اختيار أفضل إجابة للموضوع ، ولكن المشكلة ما زالت لم تنتهي 🤔

[ابو جودي]

2 ساعات مضت, safaa salem5 said:

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

 

 

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

[ابو جودي]

لن اقول الا ان فهم السؤال ثلثى الاجابة 

وارجو ولوجه الله تعالى رحمة ورأفة بمن يحاول تقديم المساعدة

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

- وضع المرفق المراد العمل عليه وتعديله 

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

نحن وحين نضع الاجابات لن نفتح المندل او نضرب الودع او نحضر الارواح لتدلنا على افكاركم وتطلعاتكم 

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

الرحمة يرحمكم الله

 

[hanan_ms]

استاذي @ابو جودي ❤️🌹

تقصد عند نقر المزدوج قبل فتح النافذه 

فحص 

if isnull(me.text)or me.text = "" then

docmd.openform "",,,,

else

if msgbox (يوجد عناصر مدرجة هل ترغب بالاستمرار او اضافة جديد =حذف

....

end if

 

2- محتاجة كود لتغير حقل القائمة من

Lest box 

متعدد او محدد والعكس 

 

3- بدل الزر خلها تعين مفاتيح الكيبورد لاعتماد itme

 

هي ما سوة شي ما شفت اللسة من غير شي  SQL

كل ما في الموضوع ترغب بتوضيح 

بكمل 

 

لازم تغير تصميم والاوان والمكنسة السحرية😂 فحص اذا كان 

6- if Fieldes =0 

if msgbox = add to tablet or Close

 

7- فحص بعد الاختيار اذا كان يساوي احد العناصر المختارة 

اظن يفضل جدول 

يعني راح تفحص الحقل سطر سطر ؟!

جدول بسيط 

بالاول يلحق 

اذا لم تختر شي يحذف ويغلق النافذه

اذا اخترات يفحص الجدول والمحددين بقائمة الحقل المتعدد اذا لا يساوي 

 ادراج وحذف الجدول 

او 

رسالة = تعديل او اغلاق

end if

استاذي @ابو جودي خذلك قهوة ❤️🌹🌹

بجرب طريقة 5 

 

 

 

[hanan_ms]

تنفيذ طلب حبيبتي صفاء @safaa salem5❤️

استاذي ما استخدم الاكواد ولا الدوال في الطريقة الخامسة @ابو جودي ❤️🌹🌹

'=========================
      Dim TXx As Integer

   For TXx = 0 To Me.Resultlist.ListCount - 1
   Me.Resultlist.SetFocus
   If TXx = Me.Resultlist.ListIndex Then
 Me.Resultlist.Selected(lrow:=TXx) = False
 End If

Next
MsgBox "الخيار محدد مسبقا في اللسته حبيبتي صفاء", vbExclamation

 عند الاعتماد لا يمكن الاضافة او التحديد مع القائمة مميز الطريقة شوي😇 

 كانت العملية بتصور استاذي @ابو جودي 

حقلين قائمة والمنتصف سهم في الشمال واليمين هذا الي كنت افكر فية 

وصحيح حبيبتي ضيفي حقل نعم \ لا

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

مثل الصلاحيات تقريبا 

:للتجربة

ListBox_Selected_Item.rar

[safaa salem5]

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

تم تعديل يوليو 17, 2024 بواسطه safaa salem5

[hanan_ms]

العفو يا عمري ❤️

حبيبتي صفاء جربي المرفق نفس طلبج 

5 minutes ago, safaa salem5 said:

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

الجدول للفحص والكنترول وهو مؤقت 

=============================

واذ حاب تالغين الجدول وتبين بس الحاق 

حقل قائمة غير منظم مع حقل قائمة استعلام 

me.resullist.selecteditme.value or index = me.liestbox.selecteditme.value or index

SQL_Run

كأنه بس اشوف قميص استاذي @ابو جودي 😂❤️🌹

On 7/16/2024 at 12:22 AM, ابو جودي said:

 

[M.Abd Allah]

السلام عليكم

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

مشاركتى عشان الموضوع زاد فى اكتر من صفحه 

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

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

safaa_nn.accdb

[safaa salem5]

20 hours ago, M.Abd Allah said:

السلام عليكم

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

مشاركتى عشان الموضوع زاد فى اكتر من صفحه 

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

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

safaa_nn.accdb 784 kB · 5 downloads

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

  شكرا   لكل الناس اللى ساعدتنى ووقفت معايا 

@عمر ضاحى

شكرا

@Foksh

شكرا 

@ابو جودي

شكرا 

@ابو خليل

شكرا 

@kkhalifa1960

شكرا حبيبتى 

@hanan_ms

[qathi]

اختنا @safaa salem5
ممكن ترفقي لنا الملف الأخير كما في الصورة المتحركة

4 ساعات مضت, safaa salem5 said:

شكرا حبيبت@hanan_ms

 

[ابو جودي]

في 18‏/7‏/2024 at 22:38, safaa salem5 said:

وعلشان مش حابه اسبب لحد تعب او اجهاد بسبب طلباتى اللى  بتكون صعبه ومبهمه او مش واضحه بالنسبالكم علشان كدا   انا اخدت قرار مش هدخل المنتدى تانى

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

محدش زعلان ولا متعصب ولا تعبان 

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

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

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