Foksh

لقد استخدمت علامة التنصيص الغير صحيحة > ' . والصحيح استخدام علامة التنصيص هذه " 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 ساعة !! أرجو أن تكون الفكرة قد توضحت لك حتى تجد الحل المناسب لطلبك 😊

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

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

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

يعني يا أستاذي الكريم ، لو فرضاً صادف أن التاريخ 12/03/2023 وأردنا طرح 13 يوم منه . فأي النتائج ستكون صحيحة بالنسبة لك :- 30/02/2023 28/02/2023 لا أرى المنطق في طلبك

بداية المشروع عندك أعتقد أنها غير سليمة لنقاط عديدة :- في جدول الموظف لديه 3 علاقات مع جداول مختلفة للحقول التالية :- karz = رقم الموظف person = اسم الموظف gehat = القسم التابع له الموظف والصحيح هو ان تقوم بربط رقم الموظف فقط كمفتاح أساسي مع جميع الجداول التي تريد ربط السجلات فيها برقم الموظف .

أخي @Ahmed_J ، هذه تجربتي بالنقطة الأولى . أعلمني إن كانت النتيجة توافق طلبك . والثانية للنظر فيها بعد اتمام المطلب الأول * ملاحظة :- اضطررت لتغيير المسميات من العربية الى مسميات انجليزية ( متأملاً منك الإهتمام بهذه النقطة في مشاريعك مستقبلاً للوصول إلى نتيجة أفضل وأدق ) Test-2.accdb

أخي الكريم @العبيدي رعد ، انت تريد انشاء مشروع من البداية ؟؟؟؟ وقد اختصرته بسطرين !!!!!!!!

العفو استاذي الكبير @Moosak ، هذا التحمس بداية شهر رمضان والحمد لله . أشكرك مرورك الجميل وملاحظتك اذا انت تعينت اليوم تبي تحفظ الرقم من أول يوم وظيفة , وتقول عني نشيط ههههههههه كرت الموظف سيكون كفيل بهذه المهمة ، ولا تريد أحد يختم عنك حضور خخخخخخخخ تم إصلاح الخطأ بإذن الله

هل جربت استخدام الكود التالي لإيقاف الرسائل التحذيرية:- DoCmd.SetWarnings False

هل الجداول المرتبطة هي نفسها الجداول الموجودة في قاعدة بيانات الجداول ولا تختلف عنها بجدول زائد أو ناقص 🤔 ؟؟ لأنه في حال عدم التطابق فلن يتم إتمام عملية الربط بشكل سليم 🙄 . وجهة نظر قابلة لعدم الصواب