Ahmed_J

السلام عليكم اساتذي الاعزاء لدي برنامج مخزني بسيط فيه جدولين الاول table1 لادخال الوارد المخزني و table2 لاخراج الوارد المخزني المطلوب : استعلام لغرض اظهار الرصيد الباقي من المواد في حالة صرف اي مادة من المخزن من خلال الجدول table2 واظهار الحقول الخاصة بهم كما في النموذج form1 تحياتي test 10.accdb

السلام عليكم استاذ @زياد الحسناوي اساتذتي الاعزاء هل من الممكن اكمال الموضوع لطفا حتى لو كان عام 2019 تحياتي للجميع

استاذ @ناقل كل الشكر والتقدير بارك الله فيك كل شيء تمام

up

السلام عليكم استاذب العزيز @ناقل الكود لايعمل بصورة صحيحة تحياتي Test-12.accdb

up

up

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

السلام عليكم لدي كود في ملف وهو للاستاذ @ابوخليل الله يحفظه لمطابقة العنوان الوظبفي في جدول من خلال النموذج وهو يعمل بصورة جيده اريد التعديل عليه لاظهار اسماء كل الموظفين غير المتطابقة عناوينهم الوظيفية مع درجاتهم في النموذج في حقل نصي اسمه TEXT1 بدلا من البحث في كل سجل على حده لان لو كان عندي 1000 سجل يكون صعب التدقيق عنهم او بالامكان عمل جدول مؤقت لتخزين ذلك تحياتي الموظوع السابق https://www.officena.net/ib/topic/122797-التعديل-على-ملف/page/2/ Test-11.accdb

السلام عليكم دقة الشاشة عندي 1366*768 ونظام وندوز7 واكسس 2010 موقع الصورة مضبوطة جدا وتقع بالضبط اسفل اليمين

السلام عليكم استاذ @Eng.Qassim شلونك ان شاء الله تكون بالف خير جربت الكود وهو شغال لازم تعمل كود لكل شهادة على حده (دكتوراه و ماجستير و دبلوم عالي) الخ تسلم شيء روعة والله انا عم اعمل برنامج لاضافة الخدمة (العقد والاجر اليومي) الخ انت عارف ان اغلب الموظفين القدماء لايتناسب الراتب مع الخدمة (تسكين) الخ ربي يحفظك من كل مكروه تحياتي

استاذ @Barna كل شيء تمام الله يبارك فيك ويجعلها في ميزان حسناتك يارب تحياتي

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

تعم صحيحة النتائج بس اتمنى التجربة في الدرجة الخامسة صعودا يعني الخامسة او الرابعة

استاذ @Barna النتائج صحيحة بالصور بالنسبة للدرجة 8-2 لكن الجدول سوف يتغير من الدرجة الخامسة فيه حقل مختلف شكرا لك

السلام عليكم استاذي العزيز @Barna الله يبارك فيك تحياتي

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

UP

UP

السلام عليكم لدي ملف فيه الدرجة الوظيفية والمرحلة الوظيفية وجدول الراتب (Salary) عند اختيار الدرجة الوظيفية والمرحلة الوظيفية يقوم البرنامج بجلب الراتب من الجدول في حقل (الراتب القديم) .وهو يعمل جيدا لدي طلبين الطلب الاول: جلب الراتب الجديد من الجدول في حقل (الراتب الجديد) بشرط اضافة عدد العلاوات مثلا (3) علاوات اي احتساب ثلاث حقول بعد الراتب القديم في الجدول salary من اليمين الى البسار وفي حالة انتهاء الحقول ينتقل الى الحقول الاعلى وهكذا كما في الصورة بحيث يكون الراتب الصحيح هو (296000) الطلب الثاني: تعديل الدرجة الوظيفية الجديدة والمرحلة الوظيفية الجديدة بناءً على الراتب الجديد من الجدول (salary) علما بان (Gradeno) هي الدرجة الوظيفية و الارقام من (1-5) هي المرحلة الوظيفية تحياتي Ahmed.mdb

السلام عليكم تفضل الكود كامل مع البرنامج الله يبارك فيك تحياتي Dim db As DAO.Database Dim rs As DAO.Recordset Dim i, TT As Integer Dim numCopies As Integer Set db = CurrentDb Set rs = db.OpenRecordset("SELECT tp2.GradeNO, tp2.سنوات_المكوث FROM tp2 WHERE (((tp2.GradeNO)<=" & Me.الدرجة_الوظيفية & ")) ORDER BY tp2.GradeNO DESC;", dbOpenDynaset) TT = iYear Do Until rs.EOF TT = TT - rs!سنوات_المكوث numCopies = rs!سنوات_المكوث If TT < rs!سنوات_المكوث Then Me.مربع_تحرير_وسرد47 = rs!GradeNO - 1 Me.مربع_تحرير_وسرد49 = Me.المرحلة_الوظيفية + TT rs.MoveNext GoTo RR 'Exit Sub End If For i = 1 To numCopies Next i rs.MoveNext Loop RR: If Me.مربع_تحرير_وسرد49 > rs!سنوات_المكوث Then Me.مربع_تحرير_وسرد47 = rs!GradeNO - 1 Me.مربع_تحرير_وسرد49 = Me.المرحلة_الوظيفية - 1 Exit Sub End If rs.Close Set rs = Nothing Set db = Nothing final.mdb

السلام عليكم استاذي العزيز @Barna شكرا لك بارك الله فيك اصبح البرنامج شغال 100% بعد تعديل كود واحد فقط الى: Me.مربع_تحرير_وسرد49 = Me.المرحلة_الوظيفية - 1 تحياتي

السلام عليكم هذه احدى الاخطاء استاذي العزيز

السلام عليكم استاذ @Barna لسه فيه اخطاء اعتقد ان المشكلة في سنوات المكوث في الجدول لانها تكون 4 سنوات واحيانا 5 سنوات

استاذ @Barna والله تعبتك كثير معي الله يحفظك من كل مكروه النتائج اكثرها اصبحت غير صحيحة