Shivan Kurdi

اليوم خلاص دوامي لكن غدا ان شاء الله راح احاول تحياتي

اتفضل اخي ملفك بعد تعديل مع شرح بالصور اولا فتحنا تقريرك في وضع التصميم وشوفنا ما هو المصدر التقريرك كان مصدر تقريرك هو استعلام صرف كما مبينة في الصور وفتحنا استعلام الصرف في وضع تصميم وكتبنا شرط اكبر من صفر ( 0 ) لكل حقول الصرف كما مبينة في الصور وبعدين خرجنا فيه وحفظنا عمليتنا وفتحنا التقرير شوف بعد ما يظهر السجل اللي فارغة -مكتب حوالات - نسخة.rar

اخي تعرف اذا تعمل ما اقول راح يكون لجدول الموظفين ترقيم تلقائي والجدول الاجازات بيكون ارقام مكررة مثلا اذا بيكون اسمي بيأخذ ترقيم تلقائي رقم 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 وليس ماكس انا اخطأت لان ماكس هو لاختيار الرقم الكبيرة تحياتي