ابو جودي

طيب اتفضل جرب رسالة خطاء عند فتح سجل جديد.accdb

ههههههه غريبة احنا حتى فى رمضان ان امكن رفع القاعدتان للتحربة

ولا عبقرية ولا شئ .. هذا فضل الله اهلا بك

ممكن مرفق القاعدة

ارفق قاعدة بياناتك

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

السلام عليكم ورحمة الله تعالى وبركاته إصلاح مشاكل قواعد البيانات أداة لاستعادة البيانات الناجمة عن تلف قواعد البيانات تستخدم تقنيات متقدمة لفحص قواعد بيانات Microsoft Access التالفة وتدعم النسيقات (.mdb . accdb) وتقوم باستعادة أكبر قدر ممكن من البيانات مما يقلل الخسارة الناجمة عن تلف قواعد البيانات. الاداة مجانية للاستخدام الغير تجارى من يريد الكراك يراسلنى على الخاص حتى لا ننتهك قوانين المنتدى بنشرها 159905355_DataNumenAccessRepair.rar

انا عارف انك شغال على شئ سوف يرى النور قريبا وانا منتظر بلهفة مشتاق ديما شغالين لا تقلق ابشر بالخير ان شاء الله

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

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

وبعد قليل تجدوا اخونا الغالى استاذى القدير ومعلمى الجليل الباش مهندس @Moosak يضع تلك المشاركة الله يخلى لنا اياه ولا يحرمنا منه ولا من مكتبته فننتظر منه بعد ان تمتلئ مكتبته مشاركتنا اياها مملؤه بدلا من المكتبة الخاوية التى ضحك علينا بها قبل فترة وهذا المرفق الأخير Database1011 v5.accdb

انظر الى الموضوع هذا ان شاء الله تجد فيه مرادك وهذا التطبيق على قاعدتك .. اتفضل Database11 v2.accdb

ماشاء الله... الله اكبر يا دكتور @د.كاف يار جزاكم الله خيـرا

اتفضل اسف كنت مستعجل ولم انتبه لتلك النقطة جدول البرامج-v3.accdb

اتفضل تجربة سريعة لانى مستعجل الان وقت صلاة العشاء والتروايح السلام عليكم جدول البرامج-v2.zip

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

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

بس تعلالى بقه يا سى الباش مهندس @Moosak عاوز اسألك سؤال فى سؤال تقدر تعمل اللى انت عملته ده من غير نموذج فرعى ومن غير استعلام يعنى لو عاوزين نوفر فى استخدام الكائنات شوية ونوصل لنفس النتيجة نركب ايه ونروح من فين ؟

انا اتخضيت مش تخبط الاول وترمى السلام 🤭 يا هلا باش مهندس @Moosak اتفضل يا سيدى اسمح لك طبعا افعل ما تشاء كلنا ملك يمينك وتحت امرك انا كنت ناوى اربط له المرفق بالمرفق السابق لموضوعه الاخر تباعا والنهوض تدريجيا بمستوى الحلول مع التغييرات اللازمة لا احاول تقديم الحل فقط وانما احاول تقديم النصح والارشاد للبناء الصحيح

وهل تاريخ يوم الأحد ثابت واللا سوف يتغير ويكون هناك الكثير من ايام الاحد بتواريخ مختلفة ؟ وهل تريد ذلك ليوم الاحد فقط ام على جميع الايام حسب اختيارك ؟ حاول تشرح شرح بسيط لما تريده اجمالا حتى تتضح الرؤية أكثر من ذلك فهى بالنسبة لى الان ضبابية ولا استطيع التفكير ولاحظ ان الاستعلام المبنى عليه العمل فى النموذج الفرعى هو كلي0 وهذا الاستعلام يتكون من ثلاث جداول 1- التنسيق_جدول_كلي 2- التنسيق_بيانات_المادة 3- ايام_الاسبوع لذلك أن اردنا نسخ الخقول المختارة وتغيير اليوم الى الاحد لابد من التغيير فى الجدول 3- ايام_الاسبوع فان اردت الحاق البيانات الى الاحد الموجود فقط فى هذا الجدول لها طريق وان اردت يوم احد اخر بتاريخ اخر سوف يكون طريق أخر فى الية العمل والتفكير ولان الجدول مرتبطة بعلاقات لابد من الحاق البيانات تبعا للجداول والعلاقات لذلك لابد من التوضيح أكثر كما أشرت إليك بعاليه

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

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

اتفضل يا سيدى حاول كتابة الجدول باللغة الانجليزية وكذلك الحقول ان اضطررت لكتابة كلمة مكونة من أكثر من مقطع اكتب كل الحروف صغيرة ماعدا اول حرف من كل مقطع يكون أحرف كبيرة ولا تترك مسافات بين المقاطع ولا تستخدم هذه العلامة - بين المقطاع وان اردت استخدام علامات استخدم هذه العلامة _ بدلا من السابقة كل ذلك يسهل عليك كتابة الاكواد داخل محررد الاكواد او منشئ التعبير داخل الاستعلامات مستقبلا ويجنبك اخطاء ومشاكل انت فى غنى عنها وحاول ان لا تستخدم حقل الـ ID الذى ينشئه الأكسس تبقائئيا فى تصميمك اتركه للاندكس أفضل وانظر الى الرتب الافضل عمل جدول خاص بها ونستخدم المعرف الخاص بها فى جدول الموظفين ليكون خثلا رقميا بدلا من الحقل النصى وذلك لتقليل حجم البيانات مما ينعكس عليه حجم قاعدة بيانات ذلك افضل تقبل مودتى واعتذر للاطالة وأخير القاعدة من وجهة نظرى المتواضعة كما ينبغى ان تكون Database1011 v2.accdb

جزاكم الله خيــــرا استاذ @nabilalibibo لا شكر على واجب واعتذر لم انتبه لوجود نموذج يعتمد على الاستعلام ابشر جارى العمل على تعديل النموذج

وإثراء للموضوع فكرتى المتواضعة على طريقة المعقدين نقسيا امثالى من بعد إذن استاذى الجليل ومعلمى القدير الاستاذ @Barna عدد 2 وظيفة ليمكن تطبيق المطلوب فى زوايا قاعدة البيانات الوظيقة الأولى حساب مدة التقاعد ولان المطلوب زيادة سنه فلقد تم التعامل مع الاكواد على ان يكون الوضع المفضل سنة واحدة بطريقة الية وفى حالة إن اراد المستخدم الزيادة عن السنة من خلال عدد الأيام من واقع ( مدة اضافية ) يتم ذلك بسهولة عند استدعاء الوظيفة بكل سهولة Public Function RetirementDate( _ ByVal dtContractDate As Date, _ Optional nDay As Integer = 0, _ Optional nYear As Integer = 1 _ ) If nDay = 0 Then RetirementDate = DateAdd("yyyy", nYear, dtContractDate) Else RetirementDate = DateAdd("yyyy", nYear, dtContractDate) RetirementDate = DateAdd("d", nDay, RetirementDate) End If RetirementDate = Format(RetirementDate, "dd/mm/yyyy") End Function طريقة استدعاء الوظيفة الاتية لحساب مدة التقاعد كالاتى RetirementDate([ContractDate],nz([addDayCont],0) ContractDate = تاريخ بدأ التعاقد ( تاريخ التعيين ) addDayCont = عدد الايام المضافة ( مدة اضافية ) ---------------------------- حساب الايام المتبقية للاحالة للتقاعد Public Function MyDayRem(GetRetirementDate) Dim EndContract As String EndContract = ChrW("1578") & ChrW("1593") & ChrW("1575") & ChrW("1602") & ChrW("1583") & ChrW("32") & ChrW("1605") & ChrW("1606") & ChrW("1578") & ChrW("1607") & ChrW("1609") MyDayRem = IIf(DateDiff("d", Now(), GetRetirementDate) <= 0, EndContract, DateDiff("d", Now(), GetRetirementDate)) End Function طريقة استدعاء الوظيفة الاتية لحساب عدد الإيام المتبقية للإحالة إلى التقاعد كالاتى MyDayRem([RetirementDateValue]) وهذا ملف التطبيق تم التطبيق فى الاستعلام qryRetirDate من خلال الاكواد فى الوحدة النمطية Database1011.accdb