ahmedspcc قام بنشر نوفمبر 10, 2003 قام بنشر نوفمبر 10, 2003 الاخوة المحترمين السلام عليكم ورحمة الله عندي برنامج بسيط لاحتساب الاجازة الاظطرارية وهذه الاجازة متدتها عشرة ايام يستطيع الموظف اخذها كاملة او كيف يشا على اي حال يفترض بالبرنامج عند نفاذ الاجازة ان يعطي البرنامج رسالة عند طلب الاجازة لموظف استنفذ رصيدة، انا الاجازة انتهات او انا عدد الايام المطلوبة اكثر من الرصدي ولكن البرنامج عندي يعطي بعد انتها العشرة ايام بالسالب مثل -4 ايام . ارجو من لديه الفكرة مد يد المساعدة والله يحفظ الجميع اخوك فرحان منطنط المسروري 1
محمد طاهر عرفه قام بنشر نوفمبر 10, 2003 قام بنشر نوفمبر 10, 2003 تقوم بحسب كل من الرصيد و المستهلك باستخدام دالتي Dsum ثم تقارن بينهما فاذا لم يسمح الرصيد ترفض تسجيل الاجازة و تصدر الرسالة
ahmedspcc قام بنشر نوفمبر 10, 2003 الكاتب قام بنشر نوفمبر 10, 2003 سعادة المهندس / محمد طاهر المحترم السلام عليكم ورحمة الله وبركاته اشكرك على ردك الكريم وعسك بخير انشاء كيفك مع رمضان انشاء الله بخير كل عام وانت بخير يارب اخوك فرحان منطنط المسروري
ahmedspcc قام بنشر نوفمبر 11, 2003 الكاتب قام بنشر نوفمبر 11, 2003 الاخ محمد طاهر السلام عليكم ورحمة الله اخي محمد حولت ولكن مافي فايدة ارجوك ممكن مثلا اوفي مثل مشابه تدلاني عليه اخوك بطي الفهم ارجوك وتحياتي اخوك فرحان منطنط الزهراني
سحـــاب قام بنشر نوفمبر 12, 2003 قام بنشر نوفمبر 12, 2003 حط المثال يا أخي انت وسوف نعدله لك وإما إذا كان البرنامج اللي معاك البرنامج اللي انا ساويته عن الاجازات وسبق انني انزلته في منتدى الفريق فقد عدلته انا لاني قد وضعت هذا السؤال بعد ما نزلت البرنامج في نفس الموضوع واعتقد أنني ارسلته الى أشخاص كثير قبل ما تتدعم أنزال البرامج في الفريق العربي alalmai880@hotmail.com
محمد طاهر عرفه قام بنشر نوفمبر 12, 2003 قام بنشر نوفمبر 12, 2003 شكرا للأخ سحاب علي مداخلته ، و سأحاول أيضا شرح الفكرة فيما يلي : و طبعا الموضوع عرضة لافكار كثيرة و لكن ساشرح فكرة لتوضيح الطريقة ( طريقة التعامل مع الدوال و التأكد من الرصيد ) . مع ملاحظة أني كتبت الكود التالي سريعا و لم أجربه فعليا ( لتوضيح الفكرة فقط ) لنفرض أن الرصيد المتاح يسجل فى جدول الموظفين كاجمالي المسموح به لكل موظف. و المستهلكات تسجل فى جدول الاجازات كتاريخ بداية و نهاية و منها علي النموذج تحسب عدد الايام المطلوب تسجيلها كأجازة ( مدة الاجازة ) ومدة الاجازة هي التي سنقوم باختبار هل الرصيد يسمح بها أم لا txtnewRquest هو مربع النص الذي يتم منه تسجيل مدة الاجازة فى جدول الاجازات سواء مباشرة بالكتابة فيه أو بالكود بعد تحديث تواريخ بداية و نهاية الاجازة علي النموذج txtempId هو كود الموظف علي النموذج txtremaining مربع نص غير منضم يتم حساب المتبقي فيه بالكود ( قبل تسجيل الاجازة التي يتم اختبارها حاليا ) txtRassed مربع نص غير منضم يتم حساب الرصيد الاصلي فيه بالكود و لدينا جدولان الاول الموظفين و اسمه tblemp و به حقل الرصيد الكلي Total و حقل كود الموظف empId و جدول حركة الاجازات tblVications و به حقل المستهلك used و كود الموظف empId بالاضافة الي توايخ الاجازة و لكن هي ليست موضوعنا هنا و الكود ينفذ من زر أمر فى نموذج الاضافة الي جدول الاجازات فاما يقوم باظهار رسالة برفض التسجيل لعدم وجود الرصيد ، أو يحسب لنا القيم و يضعها علي النموذج و طبعا هذا لا يكفي لاتمام العمل و التسجيل ، و لكن فقط أردت توضيح النقطة المطلوبة وان لم يكن الشرح التالي واضحا ، فأرجو أن يفي مثال الاخ سحاب بما تريد Dim Rassed, used As Integer Rassed = DLookup("[Total]", "tblemp", "[empId]=" & Me.txtempId) used = DSum("[used]", "tblVications", "[empId]=" & Me.txtempId) If (Rassed - used) < Me.txtnewRquest Then MsgBox "No Rassed available" Exit Sub Else Me.txtRassed = Rassed Me.txtremaining = (Rassed - used) MsgBox " Vications Can be Taken !! " End If 1
سحـــاب قام بنشر نوفمبر 13, 2003 قام بنشر نوفمبر 13, 2003 اخي الفاضل والكريم محمد طاهر العين لا تعلى على الحاجب وانت ماشاء الله تبارك الله علم في رأسه نار اللهم لا حسد وأسأل الله ان يكفيك شر العين قد يكون البرنامج الذي انا عملته يفي ببعض الاغراض ولكن ماشاء الله عليك انت في أطروحاتك فلا نستغني من وضع مثال على فكرتك التي ان كتبتها لتتم الفائده أكثر تحياتي الطيبه
ahmedspcc قام بنشر نوفمبر 13, 2003 الكاتب قام بنشر نوفمبر 13, 2003 الاستاذ الكريم / محمد طاهر المحترم السلام عليكم ورحمة الله وبركاته وبعد انا كمان ايد طرح الاخ / سحاب ، الرجاء التكرم بعمل مثل والله يحفظكم اخوك فرحان منطنط المسروري
ahmedspcc قام بنشر نوفمبر 15, 2003 الكاتب قام بنشر نوفمبر 15, 2003 مثل لله ياهل الخير انا مازل انتظر وانشاء الله مايطول الانتظار رمضان كريم اخوك فرحان منطنط المسروري
ahmedspcc قام بنشر نوفمبر 17, 2003 الكاتب قام بنشر نوفمبر 17, 2003 ياخواني انا مازلت انتظر يا استاذ/ محمد طاهر نحن مازلنا ننتظر عطفك علينا اخوك فرحان منطنط المسروري
محمد طاهر عرفه قام بنشر نوفمبر 18, 2003 قام بنشر نوفمبر 18, 2003 بإذن الله سأحاول اعداد المثال لكن الوقت المتاح هذه الايام قليل ، فاعذرونا و مؤقتا أرجو أن تحاول تطبيق ما ذكرت من شرح
ahmedspcc قام بنشر نوفمبر 18, 2003 الكاتب قام بنشر نوفمبر 18, 2003 سعادة المهندس / محمد طاهر المحترم السلام عليكم ورحمة الله وبركاته وبعد اعطك الله الصبر علينا وزادك الله من فضله وشكراً اخوك فرحان منطنط المسروري
محمد طاهر عرفه قام بنشر نوفمبر 19, 2003 قام بنشر نوفمبر 19, 2003 مرفق مثال علي السريع ، أرجو أن يوفي بالغرض مع تحياتي Vications.rar
ahmedspcc قام بنشر نوفمبر 19, 2003 الكاتب قام بنشر نوفمبر 19, 2003 الله الله الله عليك ياهندسه شكراً شكراً شكراً شكراً شكراً و الله العظيم لساني عاجز عن الشكر يا اطيب واحسن محمد طاهر في الدنيا اخوك فرحان منطنط المسروري
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.