ابو جودي

انت الاجمل اتفضل يا استاذ @Moosak جزاكم الله خيرا لتلبية دعوتى اتمنى لا تتفزع من هذا المرفق 😄 Moosak.accdb

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

بانتظار النتيجة واتمنى ارفاق لقطة شاشة حية من التجربة مع رأيكم من واقع التجربة تجربة شيقة.zip

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

انشاء مجلد واحد او العديد من المجلدات دفعة واحدة CreateMultiFolders.mdb

اتفضل هنا ان شاء الله تجدون طلبكم

انشاء مجلد واحد او العديد من المجلدات دفعة واحدة CreateMultiFolders.mdb

من باب المشاركة اثراء للموضوع

غير ال ى Dim db As DAO.Database

احتساب تاريخ نهاية الصلاحــــــــ( Expiration Report ) ـــــية ExpirationDate.mdb

فكرة جديدة لاحتساب تاريخ نهاية الصلاحية بدون بدون حتى كتابة تاريخ الصلاحية داخل الجدول ExpirationDate.mdb

اتفضل يا سيدى 122 (2).accdb

العفو يا دكتور تحت امرك انا طويلب صغير اقوم بالتعلم من اساتذتى العظماء فى هذا الصرح الرائع

ان كنت تستخدم متغير بهذا الشكل Dim db As Database فم باستبداله فيكون Dim db As DAO.Database

مش فاهم بس ياريت لو سؤال تانى يكون فى موضوع منفصل افضل وحاول تشرح طلبك تفصيلا بالامثله.. معلش فهمى بطئ حبتين

بشركم الله بأعلى درجات الجنان جزاكم الله خيـرا

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

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

هذا فضل الله وكرمه سحبانه وتعالى الشرح كالاتى الكود الاول والذى كان فى حدث عند تحديث بيانات مربع النص الخاص بتحليل (الكولسترول الكلي) - Total Cholesterol Select Case Nz([Total Cholesterol].Value & vbNullString, vbNullString) Case "": ValTotalCholesterol = vbNullString Case 5.2 To 6.2: ValTotalCholesterol = "Borderline" Case Is < 5.2: ValTotalCholesterol = "Desirable" Case Is > 6.2: ValTotalCholesterol = "High risk of heart disease " End Select تم وضعه فى روتين عام ليسهل استخدمه باستدعاءه من أى مكان وتم استخدام الاسم ValTotalCholesterol لهذا الروتين ويتم استدعاءه من خلال هذا الاسم وكذلك الكود الثانى والذى كان فى حدث عند تحديث بيانات مربع النص الخاص بتحليل (الدهون الثلاثية) - Triglycerides Select Case Nz([Triglycerides].Value & vbNullString, vbNullString) Case "": ValTriglycerides = vbNullString Case Is <= 500: ValTriglycerides = vbNullString Case Is > 500: ValTriglycerides = "increase the risk of heart disease please check for ECG" End Select تم وضعه فى روتين عام ليسهل استخدمه باستدعاءه من أى مكان وتم استخدام الاسم ValTriglycerides لهذا الروتين ويتم استدعاءه من خلال هذا الاسم الجزء الثانى وهو دمج القيم تبعا لبيانات التحاليل فى كل مربع نص تم وضعه كذلك فى روتين عام ليسهل استخدمه باستدعاءه من أى مكان وتم استخدام الاسم StrResult لهذا الروتين ويتم استدعاءه من خلال هذا الاسم If Len(Nz([Total Cholesterol].Value & vbNullString)) = 0 Then _ Me.txtcomment = ValTriglycerides Else: Me.txtcomment = ValTotalCholesterol & vbNewLine & ValTriglycerides وشرح الكود كالاتى .. تم استخدام دالة If الشرطية لو مربع النص Total Cholesterol فارغ وطول السلسة النصيه بداخله يساوى 0 يكون مربع النص txtcomment يساوى قيمة الروتين ValTriglycerides وان كان مربع النص Total Cholesterol غير فارغ ويحتوى على قيم وطول السلسلة النصيه بداخله اكبر من 0 يكون مربع النص txtcomment يساوى قيمة الروتين ValTotalCholesterol + سطر جديد + قيمة الروتين ValTriglycerides بعد ذلك يتم استدعاء هذا الروتين StrResult فى حدث عند تحديث بيانات مربع النص الخاص بتحليل (الكولسترول الكلي) - Total Cholesterol وكذلك فى حدث عند تحديث بيانات مربع النص الخاص بتحليل (الدهون الثلاثية) - Triglycerides --------- -الدالة Len......... طول السلسلة النصية -الدالة Nz ..........مفيدة للتعبيرات التي قد تتضمن قيم Null. لإجبار تعبير على التقييم إلى قيمة غير خالية حتى عندما يحتوي على قيمة Null لذلك يتم استخدم الدالة Nz لإرجاع صفر أو سلسلة فارغة أو قيمة مرجع مخصصة If Len(Nz([Total Cholesterol].Value & vbNullString)) = 0 هذا الجزء يعنى التأكد من طول السلسة النصية داخل مربع النص وان كانت تساوى 0 ان كان مربع النص خالى Then ...... عند تحقق الشرط السابق نفذ الامر اللاحق مربع النص Me.txtcomment = قيمة المتغير العام ValTriglycerides الذى قام مسبقا باختزان بيانات داخله بناء على القيم المكتوبة داخل الروتين الخاص به Else: ...... تعنى --- إن لم يتحقق الشرط السابق وكان مربع النص طول السلسة به اكبر من صفر نفر الامر التالى بدلا من الامر السابق Me.txtcomment = قيمة المتغير العام ValTotalCholesterol الذى قام مسبقا باختزان بيانات داخله بناء على القيم المكتوبة داخل الروتين الخاص به - & vbNewLine & اضافة سطر جديد قيمة المتغير العام ValTriglycerides الذى قام مسبقا باختزان بيانات داخله بناء على القيم المكتوبة داخل الروتين الخاص به

اتفضل اضفت العديد من الفلاتر لاضفاء الكثير من المرونة وايضا الترتيب تصاعديا وتنازليا Customers.mdb

شفافيــــــــــــTransparent Formsــــــــــــة النماذج Transparent Forms.mdb

شفافيــــــــــــTransparent Formsــــــــــــة النماذج Transparent Forms.mdb

.

هههههههه ولا يهمك انا دائما ما بافهم نفسى المهم الحمد لله انك وجدت ضالتك 👍