ابو جودي

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

ايه يا استاذ @Moosak 🤔 واضح مش عاجبك الشغل واللا ايه لم ارى اى تعليق والله حرااااااام انا كان هايجيلى جنان خلاص يا اخى انا طلع عيونى فى التفكير والتكتيك والـ .... ماشى انا مش راح اعمل شئ تانى خليك ويا البرق والرعد وبانتظار استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr لأعرف رأيه فى تلك الافكار المعقدة

السلام عليكم ورحمة الله تعالى وبركاته تعديل فاخر من الاخر ولا اى html يحتوى المرفق على عدد 3 نماذج 1- FormUIBoht هذا النموذج معد لتعمل القائمة من كلا الجانبين للواجهتين العربية او الانجليزية فقط بتغيير شئ بسيط هذا الكود فى هذا السطر من الكود تغير الحروف من ML الى MR يناسب الواجهات العربية وان كانت الواجهة انجليزة يظل كما هو Const strOrientationChk = ML 2- النموذج الثانى FormUILT يتناسب فقط للواجهات الانجليزية 3- النموذج الثالث FormUIRT يتناسب فقط مع الواجهات العربية والمرونة فى التصميم لا يتم تعديل اى شئ حسب الازرار فقط لابد من ان تكون اسماء ازرار القائمة تبدأ بـ cmdMnu وبعد ذلك اضف ما تريد المرفق سريع وخفيف جدا ShowHideSideBareRight.accdb

حد حل المشكلة دى ؟!

اتفضل يا سيدى Combo Box.accdb

اتفضل يا استاذ @Moosak اوامر ياباشا طلب تم بفضل الله New Microsoft Access Database (4).accdb

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

ممكن مرفق بالكثير من البيانات

طيب بعد اذنك استاذ @Moosak انظر الى هذا التعديل New Microsoft Access Database (3).accdb

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

الشكر لله ... اهلا بك اتفضل اتمنى كون قدرت افهم طلبك بس انت باقى لك الحفول اللى بالتقرير rpt2 تضبط مصدر بياناتها ومصدر بيانات التقرير هو الاستعلام qryRpt2 تقدر كذلك تقوم بالتعديلات المناسبة لاختيار الحقول التى تريدها reglemen1 (4).accdb

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

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

https://top4top.io/ ولكن لو عملت ضغط واصلاح لقاعدة البيانات يصغر حجمها. وهذا ملفك reglemen1 (4).zip

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

المرفق الاول لم يكن به سوا ايواء , يومى لذا اعتقدت انه غير ذلك سوف تكون قيمة خالية ولذلك اعتذر لضيق افقى فى التصور الصحيح اليكم الاجابة Me.[السعر] = Switch(IsNull(Me.[الخدمة]), 0, Me.[الخدمة] = "ايواء", Me.[مبلغ الشراء], Me.[الخدمة] = "يومي", Me.[الايجار] * Me.[عدد الايام], Me.[الخدمة] <> "ايواء" And Me.[الخدمة] <> "يومي", 0) اذا الكود كبير على سطر واحد وحابب تقسمه على اكثر من سطر Me.[السعر] = Switch( _ IsNull(Me.[الخدمة]), 0, _ Me.[الخدمة] = "ايواء", Me.[مبلغ الشراء], _ Me.[الخدمة] = "يومي", Me.[الايجار] * Me.[عدد الايام], _ Me.[الخدمة] <> "ايواء" And Me.[الخدمة] <> "يومي", 0 _ ) واذا اسم الحقل كبير وراح يتكرر كثرا ممكن استخدام الكود الاتى Dim Fld As String: Fld = Nz(Me.[الخدمة]) Me.[السعر] = Switch(IsNull(Fld), 0, Fld = "ايواء", Me.[مبلغ الشراء], Fld = "يومي", Me.[الايجار] * Me.[عدد الايام], Fld <> "ايواء" And Fld <> "يومي", 0)

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

استدراك وتعديل بالبحث عن كود لاحد الخطاء فى المنتدى تذكرت هذا الموضوع وتبادر الى ذهنى جعل جدول الاخطاء مدمج مع تطبيقى هذا فقمت بالتحديث الاتى اضافة استعلام باسم qrylErrorLog وهو مرتبط بالجدول الذى سوف يتم تسجيل اخطاء تشغيل التطبيق به وبذلك فور حدوث خطأ يتم تسجيل وقت الخطا ورقمه ووصفة من الاكسس ومن خلال الاستعلام يتم الربط من خلال الرقم بجدول الاخطاء المصدر الاصلى لتوصيف الاخطاء بذلك لن يحتاج كصكك التطبيق الى البحق عن ترجمة او توصيف الخطا Write Error Log V 2 .mdb

السلام عليكم ورحمة الله وبركاته على الرغم من قدم تاريخ الموضوع الا ان له اهميته والتى لا غنى لنا عنها لانه احيانا تحدث مشكلات عند تنفيذ احد الاجراءات تبعا للكود المستخدم واثراء للموضوع اقدم هذه الفكرة فكرتى المتواضعة تتلخص فى الاتى 1- تسجيل الاخطاء ليقف المصمم , المطور , المبرمج على مكان الخطأ تحديدا ورقمه لسهولة حل المشكلة 2- تجاوز الاخطاء كما يترائى لـ المصمم , المطور , المبرمج من خلال الأخطاء التى تم تصيدها وتسجيلها بالجدول بالرقم الدال عليها وفى الاجراء الذى حدثت به رابط الموضوع من هنا

وعليكم السلام الحمد لله الذى تتم بنعمته الصالحات هذا فضل الله تعالى اسال الله ان يهيئ لكم من امركم رشدا اتفضل تم التعديل وللتوضيح هذا السطر من الكود لطباعة التقرير DoCmd.OpenReport "rpt", acNormal وهذا السطر لاستعراض التقرير ان اردت الطباعة فقط دون فتح التقرير قم بازالة هذا السطر وان اردتهما معا فالكود فى المرفق يقوم بذلك الامر DoCmd.OpenReport "rpt", acViewPreview, , , acDialog reglemen1 (2) .accdb

متابع فى صمت تام

افضل عمل استعلام ليكون مصدر بيانات النموذج ويستخدم نفس الاستعلام للتقرير وبالنسبة للتصدير اهديكم هذا المرفق تصدير ( تقرير /عدة تقارير ) الى PDF والذى يتميز بالاتى 1- مرونة فى اختيار مسار تصدير الـ ( تقرير / عدة تقارير ) فى كل مرة حسب الحاجة ويمكنك تثبيت المسار اذا اردت 2- اختيار تقرير واحد من القائمة أو أكثر ( عدة تقارير ) لتصديرهم الى مسار محدد 3-اختيار الاجراء بعد التصدير استعراض او عدم استعراض وفتح ملف الـ PDF 4-الاكواد فى روتين عام يمكن استدعائها من اى مكان 5-امكانية اضافة طباعة التقارير مع او بدل كود التصدير الى PDF وهذه ميزة كتابة الكود فى روتين عام داخل موديول يعنى شغل فاخر من الاخر Export Multi Reports.mdb

وطبعا لا ننسى الاعلان عن المتغير تبعا للنوع المطلوب مع الحاق القيم التى تريدها اليها رقم' Dim myWhere As Integer myWhere = 1 DLookup = DLookup("My_Filde", "My_Table", "My_Filde1 =" & myWhere) '-------------- نص' Dim myWhere As String myWhere = "محمد أبوعبدالله" DLookup = DLookup("My_Filde", "My_Table", "My_Filde1 ='" & myWhere & "'") '-------------- تاريخ' Dim myWhere As Date myWhere = #1/1/2021# DLookup = DLookup("My_Filde", "My_Table", "My_Filde1 = #" & myWhere & "#")

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

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