moho58

2 ساعات مضت, Foksh said:

مشاركة مع أستاذي الكبير @ابوخليل ، تفضل أخي الكريم @moho58 ، مشاركتي المتواضعة

 

baseF.accdb 1.41 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 7 downloads

مشكور أخي على الرد والمتابعة

جاري التجريب

2 ساعات مضت, ابوخليل said:

حسب طلبك بالضبط .. وحتى يكون الجواب طبق الأصل من السؤال

نظفت المثال من جميع الاكواد والازرار الزائدة

يمكنك نقل الحل الى برنامجك

 

baseF.rar 27.15 kB · 4 downloads

مشكور أستاذنا الكبير على الرد والمتابعة

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

السلام عليكم

الإخوة الأفاضل في هذا المنتدى الجميل

في هذا الموضوع أريد التعديل على كود الفلترة (البحث)

مثال فقط:

أريد البحث (الفلترة) على الرقم: 231

عند الضغط على زر الفلترة : يعرض بيانات الكتاب الخاصة بالرقم 231

أريد كود: بحيث عند الضغط على زر التالي:يقوم بعرض بيانات الرقم 232 ثم عند الضعط مرة أخرى  على زر التالي يعرض 233 وهكذا ... 234   في كل مرة أضغط على زر  التالي يعرض لي الرقم الموالي

نفس الشئ بالنسبة لزر السابق : عند الضغط عليه يعرض الرقم السابق وهكذا........

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

baseF.accdb

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

3 ساعات مضت, ابوخليل said:

هذا الحل نموذجي ويحقق المطلوب 100%

 

يجب ان تتأكد

انا جربت الكود يعمل على احسن وجه

اذا الايام 30 يجعلها صفر ويزيد 1 للشهور  واذا كانت اقل يبقيها كما هي

واليك التطبيق

db1.accdb 456 kB · 3 downloads

نعم أستاذنا @ابوخليل شغال بامتياز  - ربما أن لم أنتبه رغم أنني جربته الكود كثيرا

الحل كان فقط  في إضافة  إلى الدالة التي وضعته للتعديل عليها فقط  الكود المبين أسفله

ولهذا كان النتيجة تأتي خطأ

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

@ابوخليل    @Foksh    @kkhalifa1960

 ربي يجازيكم خير الجزاء  وجعلها الله في ميزان حسناتكم

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

و كذا في جميع أعضاءه إن شاء الله

  ' تحويل 30 يومًا إلى 01 شهر
    If days = 30 Then
        months = months + 1
        days = 0
    End If

3 ساعات مضت, Foksh said:

تأييداً لكلام الأستاذ @kkhalifa1960 ،

أرجو تجربة التعديل بهذا الكود ،

 

Private Sub Calc_Click()
نص3 = DateAdd("d", DateDiff("d", [بداية العمل], [نهاية العمل]) / 2, [بداية العمل])
    Dim startDate As Date
    Dim endDate As Date
    Dim years As Integer
    Dim months As Integer
    Dim days As Integer

    startDate = [بداية العمل]
    endDate = [نهاية العمل]

years = DateDiff("yyyy", startDate, endDate)
months = DateDiff("m", DateAdd("yyyy", years, startDate), endDate)
days = DateDiff("d", DateAdd("m", months, DateAdd("yyyy", years, startDate)), endDate)

If Day(endDate) < Day(startDate) Then
    months = months - 1
    days = DateDiff("d", DateAdd("m", months, DateAdd("yyyy", years, startDate)), endDate)
End If

If Month(endDate) < Month(startDate) Then
    months = 12 + Month(endDate) - Month(startDate)
End If

If Day(startDate) = Day(endDate) + 1 Then
    days = 0
End If
Dim result As String
result = years & " سنة " & months & " شهر " & days & " يوم"
    نص5 = result
    نص10 = days
    نص12 = months
    نص14 = years
End Sub

 

مشكور أخي الكريم على الصبر والمتابعة

لقد قمت بالتجربة كمثال:

تاريخ1 : 01/06/2024

تاريخ 2: 31/12/2024

المدة: 0 سنة 6 شهر 30 يوم

ومن المفروض تكون هكذا: 0 سنة 7 شهر 00يوم

أخي بحكم اني مبتدأ جدا في الأكسيس

هل يمكن وضع هذا الكود في الدالة التي وضعتها أنا  للتعديل عليها 

أو وضع هذا الكود في دالة

2 ساعات مضت, kkhalifa1960 said:

ممكن مشاركة بعد اذنكم . تفضلوا حاولتي .

DDAge.rar 67.56 kB · 2 downloads

 مشكور أخي الكريم على الرد والمتابعة

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

وبار الله فيك أخي الكريم

3 ساعات مضت, Foksh said:

أرجو المعذرة أخي الكريم ،، تفضل هذا المرفق

 

Diff.accdb 1.72 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 2 downloads

السلام عليكم

مشكور أخي وبارك الله فيك

بعد التجربة هناك اشكالية إذا كان عدد الأيام 30 يوم وعند تحويله إلى 01 شهر

مثال فقط:

التاريخ 1 : 29/05/1973

التاريخ الثاني: 28/01/2024

الفرق : هنا يعطي النتيجة: 50 سنة - 7 شهر - 18657 يوم كما في الصورة

ومن المفروض النتيجة الصحيحة: 50 سنة و 7 شهر و 30 يوم 

هنا 30 يوم أريد أن تصبح 01 شهر  لتكون النتيجة النهائية:   50 سنة و 7 شهر و 00 يوم

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

وبار الله فيك أخي الكريم

16 ساعات مضت, Foksh said:

تفضل التعديل

Function CalcAge(StartDate As Date, EndDate As Date) As String
    Dim years As Integer
    Dim months As Integer
    Dim days As Integer
    Dim totalMonths As Integer
    
    totalMonths = Int(DateDiff("m", StartDate, EndDate)) + _
                  (EndDate < DateSerial(Year(EndDate), Month(EndDate), Day(StartDate)))
    
    years = Int(totalMonths / 12)
    months = totalMonths Mod 12
    
    ' تحويل 30 يومًا إلى 01 شهر
    If days = 30 Then
        months = months + 1
        days = 0
    End If
    
    CalcAge = years & " سنة و " & months & " شهر و " & days & " يوم"
End Function

 

مشكور أخي الكريم على الرد والمتابعة ومعذرة على التأخر في الرد

عند التجريب أخي  لا يقوم بحساب عدد الأيام دائما يكون عدد الأيام يساوي  صفر  (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

2 ساعات مضت, Foksh said:

تفضل يا صديقي ، هذا طلبك ؟

 

basept.accdb 1.81 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 1 download

بعد التجربة شغال بامتياز

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

السلام عليكم الأخوة الأفاضل في هذا المنتدى الجميل

بالاعتماد على التاريخ الموجود في الحقل الموجود في التقرير  المسمى After30M

أريد في التقرير عرض قائمة الموظفين الحاصلين على التأهيل خلال السنة الحالية (2024)

وعندما تصل سنة 2025 يعرض لي فقط قائمة الموظفين الحاصلين على التأهيل لسنة 2025

وعندما تصل سنة 2026 يعرض لي قائمة الموظفين الحاصلين على التأهيل لسنة 2026

وهكذا..... يعني عرض قائمة الموظفين الحاصلين على التأهيل وفق السنة الحالية الجارية.

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

basept.accdb

الأخوة الأفاضل الكرام:

@محمد احمد لطفى          @Barna    @kanory

أشكركم جميعا على التفاعل  والمشاركة والمساعدة  مع الموضوع جعل الله في ميزان حسناتكم

و ربي يجازيكم خير  الجزاء

**وربي يبارك في هذا المنتدى الجميل الرائع**

2 ساعات مضت, kanory said:

مشاركة مع اساتذتي الكرام ........ استبدلها بهذا فقط

=Int(DateDiff("d";[date_naissance];Date())/365.25)

 

الأخ @kanory  الكود شغال بامتياز ورائع

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

فقط بدل نقطة (.) وضعت فاصلة(,) 

365,25

السلام عليكم الإخوة الأفاضل في هذا المنتدى الجميل

عندى مشكلة في حساب الفرق بين تاريخين بالسنوات فقط إلى غاية تاريخ اليوم :

مثال تايخ الميلاد: 19/04/1994

العمر  بالسنوات والشهور والايام إلى غاية تاريخ اليوم هو: 59 سنة و 09 أشهر  و 01 يوم

العمر بالسنوات فقط إلى غاية تاريخ اليوم هو:  60 سنة

ومن المفروض يكون العمر هو  : 59

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

مع العلم أني جربت الحل الموجود في في هذا الموضوع الذي يشبه موضوعي ولم تنججح معي:

المثال المرفق:

base1.accdb

في 27‏/12‏/2023 at 09:33, شايب said:

جرب فكرة من افكار

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

ولكن مالي مزاج حاليا

 

basep(4).accdb 736 kB · 6 downloads

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

kitab

لان نموذج " رمز الكتب" فيه تتم عملية اسناد رمز الكتب وأحتاجه كحوصلة لعملية الإسناد  و إذا كان تغيير تماما أو تحديث  في اسم حقل "الرمز" تكون هنا في هذا النموذج

وسامحني كثيرا ربما أثقلت عليه ربي يجازيك خير الجزاء

16 ساعات مضت, شايب said:

جرب فكرة من افكار

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

ولكن مالي مزاج حاليا

 

basep(4).accdb 736 kB · 6 downloads

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

جاري التجريب

4 دقائق مضت, Foksh said:

أخي الكريم @moho58

تمت تجربة الملف المرفق ، وقام بإنشاء نسخة احتياطية بشكل طبيعي عند الإغلاق بدون أي مشاكل .

مع العلم أنه لا يوجد جداول مرتبطة بقاعدة أخرى 🙄

نعم أخي- لقد قمت بارسال ملف بدون جداول مرتبطة

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

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

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

كما أشكر الأخ @محمد السيسي

بارك الله فيكم جميعا وربي يبارك في هذا المنتدى الرائع

الان, Foksh said:

لا تحتار وإنت في منتدانا 😊

اذا استطعت انسخ قاعدة البيانات واخذف الأمور الخاصة واترك فقط الفورم المسؤول عن كود النسخ الاحتياطي ، وأرسله.

تقصد أخي الكريم @Foksh النموذج فقط

تفضل: و ربي يجازيك

والله شئ محير عندي في المنزل يشتغل عادي

وفي العمل لا يشتغل وينشأ ملف backup  وملف التاريخ  لكنه فارغ

FORMATION.accdb

7 ساعات مضت, Foksh said:

مشاركة مع الأستاذ @محمد السيسي 

 

تفضل أخي @moho58 ، كان السبب أعتقد أن الكود لم يقوم بإنشاء المجلد Backup من تلقاء نفسه ، تم التعديل وحل المشكلة . هذا المرفق تم تعديله .

Backup 2024.zip 296.17 kB · 2 downloads

الأخ الكريم @Foksh

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

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

الكود يقوم بعمل نسخة احتياطية:  ينشأ مجلد backup  ومجلد التاريخ لكن من الداخل فارغ كما في الصورة

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

وشكرا كثيرا اخي وبارك الله فيك

22 دقائق مضت, محمد السيسي said:

تفضل اخي الكريم هذا الكود 

New Text Document.rar 577 \u0628\u0627\u064a\u062a · 1 download

ممكن تعديل

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

وبارك الله فيك

الرجاء المساعدة

وبارك الله فيكم

السلام عليكم

الاخوة الأفاضل في هذا المنتدى الجميل

لدي استفسار في هذا الكود(كود -1) المرفق و المتعلق بعمل نسخة احتياطية للجداول المرتبطة فقط عند خروج من البرنامج

لقد وضعت هذا الكود في حدث عند الإعلاق فيقوم بعمل نسخة احتياطية من الجداول المرتبطة فقط عند الخروج

الكود شغال بامتياز مند مدة اكثر من شهرين وهو  يعمل بامتياز وحصلت عليه من الأخ الفاضل Foksh

لكن عندما قمت بتنصيب القاعدة هذا الأسبوع  في جهاز آخر  لم يعمل

رغم أني عملت اعادة ارتباط للجداول المرتبط وكل شئ تمام

و نفس نسخة الأوفيس ونفس نسخة الويندوز

هل ممكن التعديل على هذا الكود لكي يعمل في هذا الجهاز الثاني

***

ومنذ ايام فقط جربت كود ثاني (كود-2) يشتغل عادي على كمبيوتر المنزل

لكن عندما أنقل القاعدة إلى كمبيوتر العمل يصبح الكود  لا يعمل و لا يقوم بعمل نسخة احتياطية من الجداول المرتبطة
 

الكود1 والكود2 يعملان بامتياز على جهاز الكمبيوتر في المنزل

لكن في جهاز كمبيوتر  العمل لا يعملان ولايقومان بعمل نسخة احتياطية

وهذا الأمر حيرني كثيرا

غم أني عملت اعادة ارتباط للجداول المرتبط وكل شئ تمام

و نفس نسخة الأوفيس ونفس نسخة الويندوز

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

كود1+2.rar

في 18‏/12‏/2023 at 21:20, Barna said:

 

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

وشكرا كثيرا

السلام عليكم شكرا كثيرا وجزاء الله كل الخير يا  أبو خليل

أنا كذلك قمت بتجريب البرنامج

الطريقة الأولى عند فتح البرنامج لا يقوم بتخفيض الأمان

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