مشكلة في علوق نتائج الاستعلام في قاعدة البيانات .

[يوسف مؤذن]

السلام عيكلم و رحمة الله و بركاته

لو سمحت .. اجب على الصورة المرفقة من فضلك

[Hamdi Edlbi-khalf]

و عليكم السلام و رحمة الله و بركاته

في السجل الأول ١/٧/٢٠١٨

في السجل الثاني فارغ 

[Shivan Rekany]

في ١٣‏/٩‏/٢٠١٨ at 16:48, Khalf said:

كتابة تاريخ بداية المدة الجديدة أن يتم تحديث نهاية فترة الإيجار السابقة ببداية فترة الإيجار الجديدة - 1 .

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

[Hamdi Edlbi-khalf]

1 دقيقه مضت, Shivan Rekany said:

واسف تعبت معي بالشروحات

انا الأسف ... و اعتذر مجدداً 

ابدا من النموذج الرئيسي و اكتب به البيانات التي ارغب بها

 

ثم اضغط زر اضافة سجلات

 

فيضيف  سجلات على عدد أعضاء مجلس الادارة الموجود في حقل ضمن النموذج الرئيسي

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

فتظهر قيمة حقل الانتخاب و المناصب في النموذج الفرعي 

 

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

 

و الذي عند الضغط عليه يظهر الانتخابات السابقة 

شكراً مرة أخرى و بارك الله بك .

[Shivan Rekany]

القي نظرتا الى استعلام q1 و q2
هذه هو الاستعلام الاول
 

SELECT [قاعدة البيانات].[اسم المنظمة], tblm.الجمعية, tblm.المعرف, tblm.الاسم, tblm.المناصب, tblm.الانتخابات, tblm.الانتهاء, tblm.links, tblm.[المناصب الإدارية]
FROM [قاعدة البيانات] INNER JOIN tblm ON ([قاعدة البيانات].ID = tblm.links) AND ([قاعدة البيانات].[آخر انتخابات هيئة عامة] = tblm.الانتخابات) AND ([قاعدة البيانات].[آخر توزيع مناصب] = tblm.المناصب) AND ([قاعدة البيانات].[اسم المنظمة] = tblm.الجمعية);

وعلي اساس هذا الاستعلام قمنا بعمل هذا استعلام التحديث

UPDATE q1 SET q1.الانتهاء = DateAdd("d",-1,DMax("[المناصب]","tblm","[tblm]![الجمعية]='" & [الجمعية] & "'"));

والنتيجة كما مبينة في الصور

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

 

برنامج_(1)_-_Copy_-_Copy.rar

تم تعديل سبتمبر 14, 2018 بواسطه Shivan Rekany

[Hamdi Edlbi-khalf]

السلام عليكم

في الواقع لم يعمل لدي الملف كما هو مبين عندكم في الصورة المرفقة مع الأسف ....

بقيت المشكلة القديمة و التحديث الخاطئ!!!

أولا - كونه لا يوجد في القاعدة الاستعلام query1 قمت بتغيير الاسم إلى q1

ثانياً - بقيت مشكلة التحديث الخاطئ كما هي ... مع الأسف الشديد !

[Hamdi Edlbi-khalf]

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

بعد التعديلات عمل لدي الاستعلام ... شكراً لك أستاذ شيفان !!

جهد رائع جزاك الله كل خير

إلا أنه عند إضافة حقل جديد في النموذج الفرعي فقد عاودت المشكلة للظهور مرة أخرى ....

تم تعديل سبتمبر 14, 2018 بواسطه Khalf

[Hamdi Edlbi-khalf]

أمر آخر أود أن أضيفه :

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

و هو ما لجأت إليه معتمداً على الطريقة التي قدمتها لي سابقاً باستخدام الفيجوال بيزيك .. و هي ذات طريقة الأخ العزيز @AlwaZeeR

 

 أن أنسخ قيمة حقل في نموذج إلى حقل آخر مع تحريك الشاشة إلى أسفل ...

و لكن  لكي يكون الأمر ناجحاً في نموذج فرعي فقد سبقت الأمر بـ

ON ERROR RESUME NEXT

سأطبق الطريقة على قاعدة البيانات الأساسيةو أخبركم بالنتيجة مبدئياً . لا زالت بعد السجلات تبدي نفس المشكلة!!!

 

تم تعديل سبتمبر 14, 2018 بواسطه Khalf

[Shivan Rekany]

58 دقائق مضت, Khalf said:

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

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

اعرف هذا صعب عليك لكن هكذا سيكون احسن باذن الله

تقبل تحياتي 

[Hamdi Edlbi-khalf]

الان, Shivan Rekany said:

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

اعرف هذا صعب عليك لكن هكذا سيكون احسن باذن الله

تقبل تحياتي  

الحمد لله

من وحي طريقتك وصلت أخيراً إلى الحل ........

أستاذ شيفان

المشكلة التي كانت عقبة أمام إيصال الفكرة هي تعقيدات قانونية في إعداد البرنامج و ليست البرمجة في ذاتها.

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

لقد كان علوق النتائج في الاستعلام  ما أبحث عن إجابة عنه ، فقد بدا محبطاً للغاية ,,,, بلا سبب,,,,, بلا تعليل ,,,, و كاد ذلك أن يهدم العمل برمته   و أعتقد أن المسألة في أصلها ثعرة برمجية ليس  من حل لها إلا بالالتفاف عليها .

بعد هذه التجربة بات الأمر واضحاً ، فكم من برنامج تم إعداده من شركات برمجة لم ينجح كون الموضوع فيه ما فيه من خصوصية و خفايا قانونية و تعقيدات

و الآن أمهلني حتى أعد قاعدة واضحة - على ما اعتقد  😅 -  لما توصلت إليه و بقي  لدي سؤال عن نفس الموضوع بحاجة إلى مساعدتكم به ..

كل الشكر لك كل الشكر لمن قدم المساعدة ....

 

[Hamdi Edlbi-khalf]

السلام عليكم

@Shivan Rekany

أعتذر على التأخر بوضع الحل الذي توصلت له ....

http://www.mediafire.com/file/9l4l446f4g4jlnx/%u0628%u0631%u0646%u0627%u0645%u062C_%281%29_-_Copy_-_Copy.accdb/file

و لكن هناك طلب في حال تم فإن العمل سيغدو مكتملاً إن شاء الله ..

و هو اختيار السطر السابق me.listbox.selected (j-1)   من المربع غير المنضم عند الضغط على الزر الأحمر  ثم إجراء عملية التحديث

مما يمكنني من القيام بعملية التحديث  على السجلات المطلوبة .

حاولت باستخدام الكود السابق بعد تعريف المتغير j و وضع الدالة if

إلا أنه لم يعمل ...

شكراً لك أخي على مساعدتك القيمة ....

تم تعديل سبتمبر 16, 2018 بواسطه Khalf

[Shivan Rekany]

14 ساعات مضت, Khalf said:

أعتذر على التأخر بوضع الحل الذي توصلت له ....

وانا اعتذر منك ... منذ البارحة عطل جهاز اللابتوب الشخصي ... انتظرني ان شاء الله بعد اصلح الجهاز راح اكون معك

[Hamdi Edlbi-khalf]

السلام عليكم

أستاذ @Shivan Rekany

لقد توصلت إلى الأمر التالي 

ME.CB100.SELECTED(1) = true
'اختيار السطر الأول
ME.CB100.SELECTED( CB100.LISTCOUNT--2) =  true
IF ME.CB100.LISTCOUNT = 0 or
IF ME.CB100.LISTCOUNT = 1 then
me.cb100.setfocus 
else
  ME.CB100.SELECTED( CB100.LISTCOUNT-2)= true
END IF
إضغط و إسحب للتحريك

 

تم تعديل سبتمبر 19, 2018 بواسطه Khalf

[Hamdi Edlbi-khalf]

الحمد لله الذي بنعمته تتم الصالحات 

لقد تم الأمر على خير ما يرام 

و بطريقة مركبة 

شغلت فيها زراً عن طريق زر آخر ..

 

شكراً أستاذي 

@Shivan Rekany

[Shivan Rekany]

1 ساعه مضت, Khalf said:

لقد تم الأمر على خير ما يرام 

و بطريقة مركبة 

شغلت فيها زراً عن طريق زر آخر ..

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

تم تعديل سبتمبر 19, 2018 بواسطه Shivan Rekany

[خربطة]

شكراً للجميع

تم تعديل سبتمبر 20, 2018 بواسطه خربطة

[Hamdi Edlbi-khalf]

السلام عليكم

أستاذ

@Shivan Rekany

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

في المرفق وضعت زراً باللون الأحمر يقوم بإنجاز تحديث زر الانتهاء باستخدام حلقة تكرارية تنتقل بين أسطر مربع القائمة و لكن مع انتقاله بين السجلات لا يقوم بتحديث الحقل المطلوب بخلاف لو كان التحديث دون حلقة تكرارية

الأمر الآخر أنني اضطررت لعمل زر ضمن النموذج الفرعي لتنفيذ المطلوب فهل يمكن تنفيذ العملية مباشرة دون استخدام زر في النموذج الفرعي

 

http://www.mediafire.com/file/3412of2a2jzru5y/%25D8%25A7%25D9%2584%25D8%25A8%25D8%25B1%25D9%2586%25D8%25A7%25D9%2585%25D8%25AC.accdb/file

تم تعديل سبتمبر 21, 2018 بواسطه Khalf

[Hamdi Edlbi-khalf]

هناك أمر آخر ...

هل يؤدي استخدام النماذج الفرعية ضمن البرنامج إلى الإبطاء من أدائه في حال استخدم على شبكة داخلية ؟

مع أنه لا خطط مبدئياً لاستخدامه ضمن الشبكة .

شكراً أستاذ

@Shivan Rekany

بانتظار إبداعاتك ..

تم تعديل سبتمبر 23, 2018 بواسطه Khalf

[Shivan Rekany]

في ٢١‏/٩‏/٢٠١٨ at 22:56, Khalf said:

في المرفق وضعت زراً باللون الأحمر يقوم بإنجاز تحديث زر الانتهاء باستخدام حلقة تكرارية تنتقل بين أسطر مربع القائمة و لكن مع انتقاله بين السجلات لا يقوم بتحديث الحقل المطلوب بخلاف لو كان التحديث دون حلقة تكرارية

الأمر الآخر أنني اضطررت لعمل زر ضمن النموذج الفرعي لتنفيذ المطلوب فهل يمكن تنفيذ العملية مباشرة دون استخدام زر في النموذج الفرعي

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

 

البرنامج.rar

[Hamdi Edlbi-khalf]

 

شكراً أستاذ

@Shivan Rekany

جزاك الله كل خير 

فعلاً مبدع .. بارك الله لك و بعلمك 

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

أستاذ

@Shivan Rekany

مع الأخوة في هذا المنتدى و خصوصاً .. 

@AlwaZeeR

@kaser906

 

لقد كانت رحلة طويلة ... استغرقت مني أكثر من أربعة أشهر من البحث و التجريب و السؤال يومياً ...حتى تبلورت طريقة العمل و كيفية تنفيذها

و لولا مشاركتكم و عونكم كانت غير ممكنة 

الآن صرت من محبي 

Recordset و recordsetclone 

ههههههه

فلولاهما لما تمكنت من الوصول إلى هذه النقطة بعد أن فشل الاستعلام ...

لن تصدق  الآن أني أشعر و كأني لاجئ يهرب من الشرطة المقدونية و اليونانية و العصابات الأفغانية ... و الآن وصل لحدود ألمانيا .....  

شكراً لكم و ألف شكر .. لكم السلام في الدنيا و في الحياة الأُخرى..