د.كاف يار

طلبك غير واضح انت بالفعل قسمت البيانات الى فئات عمرية كما تريد

اخي الكريم علامة X هي التاريخ الذي يتم حسابه الى تاريخ اليوم او لحظة الاستعلام بالإمكان إضافة عدد اشهر للتاريخ المراد حسابه من خلال الدالة DateAdd مع مراعاة اختيار الأشهر للفاصل الزمني M

تفضل اخي الكريم wesam.rar

تفضل العديل اخي الكريم test.accdb

اخي الكريم الاجازة السنوية : 30 يوم في الشهر : (30/12) يوم في اليوم : (30/(30/12)) يوم تاريخ اخر اجازة : 01/01/2019 المعادلة كالتالي X = "تاريخ اخر اجازة" مدة العمل الأيام DateDiff("D"; [x] ;now()) الشهور DateDiff("M"; [x] ;now()) السنوات DateDiff("YYYY"; [x] ;now()) ===================================== المعادلة الاجازة المستحقة حسب اشهر العمل الفعلية هي DateDiff("M";[X];Now()) * (30/12) الاجازة المستحقة حسب أيام العمل الفعلية هي DateDiff("D";[X];Now()) * ((30/12)/30) الاجازة المستحقة حسب سنوات العمل الفعلية هي DateDiff("YYYY";[X];Now()) * 30

تفضل اخي الكريم تم التعديل على نموذج Seles Compressed.rar

تفضل هذا الكود Dim sFile As String sFile = Me.Url ' رابط الموقع Me.WebBrowser1.ControlSource = "=""" & sFile & """"

تفضل هذا التعديل stu_Table.accdb

اتفضل هذي التعديلات الجديدة تقريبا مختلفة بشكل كلي عن الي قبلها stu_Table.accdb

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

التعديل تم على الاستعلام (( المواد )) تم تعديل كود الخوارزم في الاستعلام الى التالي شعبة الحصة الأولى: "الشعبة" & " " & Mid(Right([ImportSheet]![f1-1];3);1;3)

فعلا صحيح في خطأ في رقم الشعبة اتفضل التعديل stu_Table.accdb

تفضل التعديل اخي فايز الظهور فقط للطلاب الذي لديهم حصص خالية و تم تمييزها باللون الأحمر stu_Table.accdb

طبيعي راح تجد اكثر من شعبة للطالب السبب مصدر الشعب من المواد قسمنا العمود الي فيه المادة و الشعبة مثلا ( كيمياء 2 الشعبة 8 ) بعد التقسيم ( كيمياء 2 | الشعبة 8 ) لكل طالب بالتالي لما نعمل الاستعلام طبيعي راح يكون فيه اكثر من شعبة لأنه فيه اكثر من مادة الشعبة ( الشعبة 8 ) اصلها كذا ( كيمياء 2 | الشعبة 8 )

طيب سويت لك استعلاج جدولي يظهر تكرار تسجيل الطالب لكل شعبة Database3.accdb

تفضل تم عمل استعلام توحيد للمواد و كذلك للشعب Database3.accdb

تفضل هذه المشاركة FILES.accdb

لا اخي الكريم هذا لإفراغ البيانات جرب و اعطيني النتايج أو ارفق البرنامج لكي يتم التعديل عليه

اخي الكريم في الاستعلام ضع التالي Mid(Left([الرقم];1);1) & " " & Mid(Left([الرقم];2);2) & " " & Mid(Left([الرقم];3);3)

تفضل اخي الكريم اضف ازرار افراغ الحقول اضف هذا الكود في الأزرار Dim ctlNull As Control, I As String, X As Integer For Each ctlNull In Me.Controls If ctlNull.ControlType = acTextBox Or ctlNull.ControlType = acComboBox Then ctlNull = Nul End If Next ctlNull

تفضل التعديل Database3.accdb

هل تحتاج اضيف عمود للشعبة ؟؟؟

اسف اتسرعت في الرد لكن عرفت مقصدك بعد الاطلاع على البيانات تم فصل المادة عن الشعبة عن طريق الاستعلام اطلع على الاستعلام بالاسم "المواد" تم فصل المادة و رقمها ان وجد عن الشعبة ورقمها Database3.accdb

تفضل هذا التعديل Database3.accdb

ياليت توضح كيف تفصلها ؟؟