moho58

نعم أستاذنا @ابوخليل شغال بامتياز - ربما أن لم أنتبه رغم أنني جربته الكود كثيرا الحل كان فقط في إضافة إلى الدالة التي وضعته للتعديل عليها فقط الكود المبين أسفله ولهذا كان النتيجة تأتي خطأ أشركم جميعا أستاذنا الكرام من صميم القلب على التفاعل والاهتمام بموضوعي ولما تقدمونه من مساعدة و إعانة للآخرين @ابوخليل @Foksh @kkhalifa1960 ربي يجازيكم خير الجزاء وجعلها الله في ميزان حسناتكم و ربي يبارك في هذا المنتدى الرائع و في القائمين و المشرفين عليه و كذا في جميع أعضاءه إن شاء الله ' تحويل 30 يومًا إلى 01 شهر If days = 30 Then months = months + 1 days = 0 End If

مشكور أخي الكريم على الصبر والمتابعة لقد قمت بالتجربة كمثال: تاريخ1 : 01/06/2024 تاريخ 2: 31/12/2024 المدة: 0 سنة 6 شهر 30 يوم ومن المفروض تكون هكذا: 0 سنة 7 شهر 00يوم أخي بحكم اني مبتدأ جدا في الأكسيس هل يمكن وضع هذا الكود في الدالة التي وضعتها أنا للتعديل عليها أو وضع هذا الكود في دالة

مشكور أخي الكريم على الرد والمتابعة ممكن أخي الكريم تعدل على الدالة التي وضعتها لأن هذه الدالة وبهذا الاسم عامل به استعلامات كثيرة و أريد أن أتركها هي .في هذه الاستعلامات وبار الله فيك أخي الكريم

السلام عليكم مشكور أخي وبارك الله فيك بعد التجربة هناك اشكالية إذا كان عدد الأيام 30 يوم وعند تحويله إلى 01 شهر مثال فقط: التاريخ 1 : 29/05/1973 التاريخ الثاني: 28/01/2024 الفرق : هنا يعطي النتيجة: 50 سنة - 7 شهر - 18657 يوم كما في الصورة ومن المفروض النتيجة الصحيحة: 50 سنة و 7 شهر و 30 يوم هنا 30 يوم أريد أن تصبح 01 شهر لتكون النتيجة النهائية: 50 سنة و 7 شهر و 00 يوم أخي من فضلك ممكن تعدل على الدالة التي وضعتها لأن هذه الدالة وبهذا الاسم عامل به استعلامات كثيرة و أريد أن أتركها هي .في هذه الاستعلامات وبار الله فيك أخي الكريم

مشكور أخي الكريم على الرد والمتابعة ومعذرة على التأخر في الرد عند التجريب أخي لا يقوم بحساب عدد الأيام دائما يكون عدد الأيام يساوي صفر (0) وحتى لوكانت مثلا: 48 سنة و 11 شهر و 0 يوم و هنا من المفروض 48 سنة 11 شهرو 5 يوم 52سنة و 10شهر و 0 يوم 60 سنة و 8 شهر و 0 يوم 60 سنة و 8 شهر و 3 يوم اي إذا كان عدد الايام 30 يوم تصبح شهر واحد أما إذا كان عدد الايام أقل من 30 يوم تترك كما هي وبارك الله فيك أخي وسامحني

السلام عليكم الأخوة الأفاضل في هذا المنتدى الجميل أريد في هذا الموضوع التعديل على دالة لحساب الفرق بين تاريخين مثلا : عند حساب الفرق بين تاريخين تحصلت على النتيجة التالية: 60 سنة و 2شهر و 30 يوم أريد عندما تكون عدد الأيام 30يوم تحسب 01 شهر اي من المفروض النتيجة تكون هكذا 60 سنة و 3 شهر و 0يوم الرجاء التعديل على الدالة لتصبح تحسب بهذه الطريقة (يعني 30 يوم تحول الى 01 شهر و تضاف مع الشهور) وبارك الله فيكم Function CalcAge(StartDate As Date, EndDate As Date) As String Dim years As Integer Dim months As Integer Dim days As Integer Dim intH As Integer intH = Int(DateDiff("m", StartDate, EndDate)) + _ (EndDate < DateSerial(Year(EndDate), Month(EndDate), Day(StartDate))) years = Int(intH / 12) months = intH Mod 12 days = DateDiff("d", DateAdd("m", intH, StartDate), EndDate) CalcAge = years & " سنة و " & months & " شهر و " & days & " يوم" End Function code.rar

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

السلام عليكم الأخوة الأفاضل في هذا المنتدى الجميل بالاعتماد على التاريخ الموجود في الحقل الموجود في التقرير المسمى After30M أريد في التقرير عرض قائمة الموظفين الحاصلين على التأهيل خلال السنة الحالية (2024) وعندما تصل سنة 2025 يعرض لي فقط قائمة الموظفين الحاصلين على التأهيل لسنة 2025 وعندما تصل سنة 2026 يعرض لي قائمة الموظفين الحاصلين على التأهيل لسنة 2026 وهكذا..... يعني عرض قائمة الموظفين الحاصلين على التأهيل وفق السنة الحالية الجارية. الرجاء المساعدة والتوجيه وبارك الله فيكم basept.accdb

الأخوة الأفاضل الكرام: @محمد احمد لطفى @Barna @kanory أشكركم جميعا على التفاعل والمشاركة والمساعدة مع الموضوع جعل الله في ميزان حسناتكم و ربي يجازيكم خير الجزاء **وربي يبارك في هذا المنتدى الجميل الرائع**

الأخ @kanory الكود شغال بامتياز ورائع شكرا كثيرا وربي يجازيك خير الجزاء - جعله الله في ميزان حسسناتك وصدقة جارية ان شاء الله فقط بدل نقطة (.) وضعت فاصلة(,) 365,25

السلام عليكم الإخوة الأفاضل في هذا المنتدى الجميل عندى مشكلة في حساب الفرق بين تاريخين بالسنوات فقط إلى غاية تاريخ اليوم : مثال تايخ الميلاد: 19/04/1994 العمر بالسنوات والشهور والايام إلى غاية تاريخ اليوم هو: 59 سنة و 09 أشهر و 01 يوم العمر بالسنوات فقط إلى غاية تاريخ اليوم هو: 60 سنة ومن المفروض يكون العمر هو : 59 الرجاء المساعدة والتوجيه وبارك الله فيكم مع العلم أني جربت الحل الموجود في في هذا الموضوع الذي يشبه موضوعي ولم تنججح معي: المثال المرفق: base1.accdb

الأخ @شايب سامحني - ممكن إذا كان عندك الوقت الكافي تطبق نفس الفكرة على نموذج " رمز الكتب" وعلى حقل "الرمز" يعني عند نغيير التسمية تماما أو تحديث التسمية تتغير كذلك في نموذج kitab لان نموذج " رمز الكتب" فيه تتم عملية اسناد رمز الكتب وأحتاجه كحوصلة لعملية الإسناد و إذا كان تغيير تماما أو تحديث في اسم حقل "الرمز" تكون هنا في هذا النموذج وسامحني كثيرا ربما أثقلت عليه ربي يجازيك خير الجزاء

الأخ الكريم شايب جاري التجريب

نعم أخي- لقد قمت بارسال ملف بدون جداول مرتبطة أخي الكريم @Foksh بعد ملاحظات : المشكلة كانت عندي وهي في إخفاء (caché) قاعدة بيانات الجداول المرتبطة : اي كانت مخفية وغير ظاهرة وأنا قمت بإخفاءها مع مجلد البرنامج ومنه لا حظت أنه إذا كانت الجداول المرتبطة مخفية يتم إنشاء ملف backup وملف التاريخ لكن بداخلهما لا يوجد شئ : وهذا في جهاز الحاسوب في مكان عملي أما في جهاز الحاسوب في البيت فكانت قاعدة بيانات الجداول المرتبطة ظاهرة وعير مخفية مما جعل الكود يشتغل عادي وبدون مشاكل أخي @Fokshبارك الله فيك على الكود وجعله في ميزان حساناتك وصدقة جارية أن شاء الله لك كما أشكر الأخ @محمد السيسي بارك الله فيكم جميعا وربي يبارك في هذا المنتدى الرائع

تقصد أخي الكريم @Foksh النموذج فقط تفضل: و ربي يجازيك والله شئ محير عندي في المنزل يشتغل عادي وفي العمل لا يشتغل وينشأ ملف backup وملف التاريخ لكنه فارغ FORMATION.accdb

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

ممكن تعديل لكي يتم حفظ الجداول المرتبطة في ملف أسمه Backup وبارك الله فيك

الرجاء المساعدة وبارك الله فيكم

السلام عليكم الاخوة الأفاضل في هذا المنتدى الجميل لدي استفسار في هذا الكود(كود -1) المرفق و المتعلق بعمل نسخة احتياطية للجداول المرتبطة فقط عند خروج من البرنامج لقد وضعت هذا الكود في حدث عند الإعلاق فيقوم بعمل نسخة احتياطية من الجداول المرتبطة فقط عند الخروج الكود شغال بامتياز مند مدة اكثر من شهرين وهو يعمل بامتياز وحصلت عليه من الأخ الفاضل Foksh لكن عندما قمت بتنصيب القاعدة هذا الأسبوع في جهاز آخر لم يعمل رغم أني عملت اعادة ارتباط للجداول المرتبط وكل شئ تمام و نفس نسخة الأوفيس ونفس نسخة الويندوز هل ممكن التعديل على هذا الكود لكي يعمل في هذا الجهاز الثاني *** ومنذ ايام فقط جربت كود ثاني (كود-2) يشتغل عادي على كمبيوتر المنزل لكن عندما أنقل القاعدة إلى كمبيوتر العمل يصبح الكود لا يعمل و لا يقوم بعمل نسخة احتياطية من الجداول المرتبطة الكود1 والكود2 يعملان بامتياز على جهاز الكمبيوتر في المنزل لكن في جهاز كمبيوتر العمل لا يعملان ولايقومان بعمل نسخة احتياطية وهذا الأمر حيرني كثيرا غم أني عملت اعادة ارتباط للجداول المرتبط وكل شئ تمام و نفس نسخة الأوفيس ونفس نسخة الويندوز الرجاء المساعدة والتوجيه وبارك الله فيكم كود1+2.rar

ممكن أخي تطبق الفكرة على برنامجي وشكرا كثيرا

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

أخونا @شايب ربما لمستواي المحدود في الأكسيس لم افهم ما ذكرته من قبل أنا أريد في نموذج رمز الكتب : عند تغيير حقل "الرمز " يتغير حقل " رمز الكتاب" في جميع السجلات الموجودة في الموذج kitab وبما أنه حقل محسوب لا يمكن تعديله فهل يمكن تغيير حقل"الرمز" في النموذج kitab للوصول لنفس النتيجة - أما فيما يخص حقل "الرقم " فتعمت جعله عبارة عن رقم وليس ترقيم تلقائي بناء على حاجتي اليه هكذا وإن أمكن تضع لنا المرفق الذي وضعته في الشرح وبارك الله فيك

مشكور الأخ @شايب على التوضيح بم أن الحقل محسوب ولا يمكن التعديل ممكن التعديل على حقل " الرمز" وهو غير محسوب في جدول كتاب وبارك الله فيك

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

أستاذ @شايب جربت لكن لم أفهم اريد تغيير رمز الكتاب في النموذج : رمز الكتاب فتــــتــــغير في جميع سجلات النموذج kitab هل الكود الذي وضعته لي خاص بتغيير حرف واحد فقط؟؟ أم كيف يعمل - وإن أمكن تجربة طريقة الاستعلام على برنامجي الرجاء الافادة وربي يجازيك خير الجزاء