Foksh

تفكير بصوت مرتفع ،، بما ان المشروع عبارة عن قاعدتين إحداهما الرئيسية التي تحتوي كافة العناصر دون الجداول ومرتبطة بجداول القاعدة الثانوية ، ودون اي تغيير في قاعدة الجداول ، فأعتقد أنه لا حاجة لإعادة الربط بين قاعدة النماذج وقاعدة الجداول. أيضاً كنت اعمل على فكرة وهي بشكل مختصر كالآتي :- عند فتح قاعدة البيانات ستقوم قاعدة البيانات الرئيسية بفتح ملف TEXT على موقع جوجل درايڤ مثلاً وجلب رقم الاصدار ومقارنته مع حقل في قاعدة البيانات نفسها ؛ فإذا كانت القيمة أكبر في ملف الـ TEXT فسيخبرك بوجود نسخة جديدة مع الذهاب إلى رابط التحميل ليتم تحميلها وستقوم بدورك كمستخدم باستبدال النسخة القديمة بالحديثة . وغير ذلك لن يتم إخبار المستخدم بوجود تحديث جديد. والأداة الوسيطة التي ذكرها معلمنا الجليل @ابوخليل ستكون قاعدة بيانات مستقلة وظيفتها فقط التنزيل واستبدال النسخة القديمة بالحديثة. هذا تصور قيد التطوير ولكن انشغالي ببرنامج الحضور والإنصراف هو من اشغلني عن استكمال الفكرة.

اخي الكريم @abouelhassan هي من جوجل مع التعديل عليها واعادة تصميمها حسب حاجتي باستخدام الفوتوشوب . لكن غداً إن شاء الله سأرسل بمشاركة جديده اكثر من رابط مجاني يحتوي على الكثير من العناوين التي قد تحتاجها بكل التخصصات 🤗 .

انتظرونا في التحديثات الجديدة قريباً

اخي الكريم هذا الموضوع تمت الإجابة عليه أنصحك بفتح موضوع جديد لسؤالك وطلبك.

لا أعلم لم تقوم بارسال قاعدة البيانات كاملةً .. على العموم جرب انشاء استعلام جديد وضع كود الـ SQL التالي به ، واجعله مصدر بيانات للتقرير كتجربة SELECT members.fileno, members.nome, members.gov, members.tel1, parents.mmob, parents.fmob, [telholder] & "," & [tholdrelation] & "," & [telno] AS [All] FROM (members INNER JOIN parents ON members.[fileno] = parents.[fileno]) INNER JOIN tels ON (parents.fileno = tels.fileno) AND (members.fileno = tels.fileno) GROUP BY members.fileno, members.nome, members.gov, members.tel1, parents.mmob, parents.fmob, [telholder] & "," & [tholdrelation] & "," & [telno] HAVING (((members.fileno)<10)); وأخبرني بالنتيجة 😅

مرفقك اخي الكريم 😊

هل هذا طلبك أخي الكريم ، Database1.accdb

لقد استخدمت علامة التنصيص الغير صحيحة > ' . والصحيح استخدام علامة التنصيص هذه " New Microsoft Access Database.accdb

جرب هذا الكود التالي:- Private Sub YourButton_Click() ' الكود الذي تريد عرضه Dim codeText As String codeText = "DLookup(""result"", ""test_order_tbl"", ""[test] = ' & T & ' And [ID] = [Forms]![visit_frm]![ID]"")" ' عرض الكود في مربع النص Me.YourTextBox.Value = codeText End Sub للعدم تواجدي أمام الكمبيوتر حالياً ، استبدل اسم الزر واسم مربع النص في نموذجك 😊

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

🧐 متابع بصمت حتى أرى النتيجة النهائية وأثري معلومتي ومكتبتي بهذا الحدث 😀

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

أعي كلامك جيدا استاذنا الفاضل ، فهو ما يسمى بنظام المياومة تقريباً للموظفين الذين لم يتم تثبيتهم في الكادر الوظيفي عندنا ، ولكن فكرة انه عدم وجود المنطق في كتابة التاريخ هي ما سببت لي هذا التعمق في التعليقات. يعني بناءً على النموذج لو تم طرح 13 يوم من التاريخ الحالي 14/03/2024سيقوم النموذج بإنتاج وخلق تاريخ جديد ليس له وجود في البشرية . ولا حتى كل 4 سنوات ( لا كبيسة ولا اي غيره ) 😅 30/02/2024 😵 اشكر لكم سعة صدركم ، واعتذر اذا خرجت خارج إطار الموضوع 🤗

لا اريد الإحباط لصاحب الموضوع الأستاذ @Ahmed_J ، ولكن في هذا المثال التالي أخبرني أين المنطق في النتيجة !!! لو طرحنا 14 يوم من التاريخ الحالي 14/03/2024 فأن النتيجة حسب طلبك لو تم تنفيذها ستكون 30/02/2024 ،برأيك لو انت محاسب أو مدير شركة وقد قدمت لك انا كموظف تقرير يضم هذا التاريخ ، هل ستقبل به حتى لو لم تكن ستستخدم النتائج في تقرير ، هو مجرد نقاش لا دخل له بالحلول المقدمة.

اخي الكريم انت تريد حلول لمشكلتك أم شروط للحلول ؟؟؟؟

ومشاركة مع الأستاذ @kkhalifa1960 .. في حدث عند النقر في نموذج البحث داخل الزر المسؤول عن فتح التقرير . استخدم الكود التالي :- حيث قمت باستخدام شرط الاستعلام في شرط فتح التقرير Private Sub Command25_Click() MsgBox Me.texttosearch.Value Dim filterValue As String filterValue = Forms!search2!texttosearch DoCmd.OpenReport "postsubsearch2", acViewPreview, , "[members]![nome] & ' ' & [members]![nash] & ' ' & [post]![recever] & ' ' & [parents]![fname] & ' ' & [medic]![short case] Like '*" & filterValue & "*'" End Sub وأخبرني بالنتيجة

حجم قاعده البيانات تقريباً 50 ميجا 😅 ، على العموم تم التحميل ، بس ارجع للعمل أشوف الملف ، ولا يهمك 😊

في الوقت الحالي غير متواجد امام الكمبيوتر ، ولكن ارسل مرفقك عل الأمر بسيط ولم ننتبه له 🤗 ، والمتابعة في أقرب وقت.

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

كل الاحترام والتقدير لك مرورك الطيب اخي @abouelhassan 🥰

لو عدلت الكود بناءً على التاريخ اللي حددته سيكون سهل وبدون مشكلة ، لكن جربه على تواريخ اخرى ستلاحظ خطأ في عملية الحساب ،، على العموم غداً إن شاء الله سأرسل لك التعديل المتوافق مع مثالك ، جربه واخبرني بالنتائج

لا أعتقد أنه من الممكن التعامل مع التواريخ خلاف المنطق !! ففي مثالي السابق شهر 2 في عام 2023 كان 28 يوم وليس 29 ، فكيف تريد التعامل مع التاريخ خلاف المنطق !!! كأن تقول اريد ان يتم احتساب الفرق بين وقتين بعتبار ان الأيام جميعها تتكون من 25 ساعة أو 20 ساعة !! أرجو أن تكون الفكرة قد توضحت لك حتى تجد الحل المناسب لطلبك 😊

ألف سلامة عليك يا دكتور

تحياتي لك أخي العزيز 🥰 أسعدني مرورك العطر 🤗

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