Shivan Rekany

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

رأيت هذه المشاركة منك اخي الكريم وكرم استاذنا ابو حسين بمشاركة عليه و عرض الاسباب بهذه المشاركة وايضا رأيت موضوعك هذا لذا فكرت ان اعمل لك وحدة نمطية لهذا الموضوع على الرغم ان هذه اول وحدة نمطية انا اعمله واحتمال بيكون فيه كثير من النقصان او بيكون طرق اقصر منه لكن عملت هذا وبينطي نتيجة المطلوبة واطلب من استاذنا اذا بيكون طرق مختصرة يوافيني به هذا هو وحدة نمطية Option Compare Database Function ShRebaz(Sp As Integer, En As Integer, Ar As Integer, Ge As Integer, Hi As Integer, Sc As Integer) Dim NAjmar As Integer NAjmar = 0 If Nz([Sp]) > 49 Then NAjmar = NAjmar + 1 ElseIf Nz([Sp]) < 40 Then NAjmar = NAjmar - 6 End If If Nz(En) > 49 Then NAjmar = NAjmar + 1 ElseIf Nz([En]) < 40 Then NAjmar = NAjmar - 6 End If If Nz([Ar]) > 49 Then NAjmar = NAjmar + 1 ElseIf Nz([Ar]) < 40 Then NAjmar = NAjmar - 6 End If If Nz([Ge]) > 49 Then NAjmar = NAjmar + 1 ElseIf Nz([Ge]) < 40 Then NAjmar = NAjmar - 6 End If If Nz([Hi]) > 49 Then NAjmar = NAjmar + 1 ElseIf Nz([Hi]) < 40 Then NAjmar = NAjmar - 6 End If If Nz(Sc) > 49 Then NAjmar = NAjmar + 1 ElseIf Nz([Sc]) < 40 Then NAjmar = NAjmar - 6 End If If NAjmar >= 6 Then ShRebaz = "ناجح" ElseIf NAjmar >= 5 Then ShRebaz = "عبور" ElseIf NAjmar < 5 Then ShRebaz = "راسب" End If End Function وفي استعلام كتبت هذا SSS: ShRebaz(Nz([sport]);Nz([english]);Nz([arabic]);Nz([geography]);Nz([history]);Nz([science])) وهذا هو الملف شوف الاستعلام Query2 crossed.rar

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

في الحقيقة انا لا استخدم ماكرو لكن اذا تريد ارفع قاعدة باينات اللي بها رسالة تحذير الماكرو لكي اشوفه

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

في بداية الكود اكتب DoCmd.SetWarnings (WARNINGSOFF) أو DoCmd.SetWarnings = False وفي اخره DoCmd.SetWarnings (WARNINGSOn) او DoCmd.SetWarnings = true تحياتي

اذا تريد ان يظهر فقط اللي بقى لانتهاء اجازته ثلاث ايام فقط وما يظهر اللي مضى انتهاء عقدة استعمل هذا Between Date() And Date()+3 واذا تريد ان يظهر اللي بقى لانتهاء اجازته 3 ايام و مع اللي انتهت اجازته استعمل هذا <=Date()+3 تحياتي

عفوا ما فهمت قصدك بالضبط هل تريد ان يظهر من اللي مضى على انتهاء اجازته ثلاثة ايام ام تريد يظهر من اللي بقى 3 ايام لانتهاء اجازته

عفوا منك اخي عمرو ما فهمت قصدك بالضبط

اتفضل ما طلبت الجدول كان مصدر نموذجك غيرنا الى استعلام وفي حقل تاريخ نهاية الاجازة كتبنا ()Date > اليك ملفك بعد تعديل conger.rar

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

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

كم يزداد عمود واحد راح يطول كودنا اكثر في هذه الحالة نستخدم هذا الكود S1S1: IIf(Nz([Sickness]![s1])>Nz([Sickness]![s1+0]) And Nz([Sickness]![s1])>Nz([Sickness]![s1+1]);Nz([Sickness]![s1]);IIf(Nz([Sickness]![s1+0])>Nz([Sickness]![s1]) And Nz([Sickness]![s1+0])>Nz([Sickness]![s1+1]);Nz([Sickness]![s1+0]);IIf(Nz([Sickness]![s1+1])>Nz([Sickness]![s1]) And Nz([Sickness]![s1+1])>Nz([Sickness]![s1+0]);Nz([Sickness]![s1+1]);Nz([Sickness]![s1])))) شوف اضفنا NZ لانه احتمال احد من الحقول بيكون فارغ او تكدر تستخدم هذا الكود شوية اقصر من الاول ولكن بنفسه بس حذفنا اسم الجدول S1S11: IIf(Nz([s1])>Nz([s1+0]) And Nz([s1])>Nz([s1+1]);Nz([s1]);IIf(Nz([s1+0])>Nz([s1]) And Nz([s1+0])>Nz([s1+1]);Nz([s1+0]);IIf(Nz([s1+1])>Nz([s1]) And Nz([s1+1])>Nz([s1+0]);Nz([s1+1]);Nz([s1])))) لكن كما قلت مسبقا اذا تعمل جدول خاص للموظفين وجدول اخر للاجازات وتربط بينهم علاقة راس باطراف ما راح تكون محتاج كل هذا تحياتي

اعمل استعلام بنفس اللي في الصور شوف الصور واستخدم هذا الكود S1S: IIf([Sickness]![s1]>[Sickness]![s1+0];[Sickness]![s1];[Sickness]![s1+0])

اخر تاريخ من بين كم عمود ؟ اكتب لي اسماء العمود اللي تريد ان توصل لاخر تاريخ من بينهم

شوف الصورة

اليك هدول الكودين Private Sub Form_KeyPress(KeyAscii As Integer) If Button = vbKeyRButton Then DoCmd.CancelEvent End If End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = vbKeyRButton Then DoCmd.CancelEvent End If End Sub مبينة في اي وضع تستخدمه

اتفضل ما تريد باي باي للخطأ واستخدمت كود ئييف مع ئيزنول Y: CalcAge(IIf(IsNull([Date_End]) Or IsNull([Date_Start]);0;[Date_End]);IIf(IsNull([Date_Start]) Or IsNull([Date_End]);0;[Date_Start])) EMP.rar

اتفضل ما تريد من كوردستاان الى عمان وادعي لي ولوالدي EMP.rar

اتفضل تقرير الإحصاء.rar

1- التقرير يظهر في أكثر من صفحة (يظهر في عدة صفحات ) مع العلم أن المطلوب أن يكون في صفحة واحدة لأنه ليس كبير لدرجة أنه يتم تكراره لهذا العدد من التقارير . ما السبب عرض التقريرك يوصل الى 19 و تقريبا ثلاث ربع قلصها الى 19 وربع

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

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

نعم اعمل مربع جديد في التقرير واكتب فيها = 1 وفي قائمه‌ خصائصه غير خاصية Running Sum من No الى Over Group اولا قاعدة بياناتك ما بها اي بيانات وثانيا اشوف بدل ذاك القاعدة ان تعمل جدولين جدول للمعلومات الموظف والاخر للاجازات كل شي راح يكون اسهل لك لكي تعمل المطلوب واذا عملت ذلك تكدر تستخدم استعلام وفي حقل التاريخ تختار ماكس هذا والله اعلم

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