اخواني في المنتدى ........ السلام عليكم ورحمة الله وبركاته ..... اسئل الله لنا ولكم ان يبلغنا رمضان
سؤالي بارك الله فيكم لدي درجات طلاب على الاكسس واريد ربطها بموقع نور ليتم نقل درجات الطلاب دفعة واحدة
لقد حاولت ذلك وتمكنت من رفع درجة طالب واحد فقط وعند محاولة رفع اكثر من درجة طالب يقوم البرنامج بتكرار درجة أول طالب كدرجة للطالب الثاني ....... ارجو أن أن اجد لديكم الحل المناسب لذلك
تفضل اخي الكريم
افتح النموذج ثم اختر عرض البيانات لتظهر لك صفحة بيانات نور
الآن اضغط على زر الأمر وسيتم تحديث جميع الحقول دفعة واحده
بالتوفيق
بارك الله فيك يا دكتورة على الرد ...... بس لا لو لا حظتي في أول اسمين درجاتهم ليست الدرجات الظاهرة في البيانات ... بل هي درجات آخر طالب في القائمة وهي مكرر لأول اسمين بنفس الدرجات دون تغيير ....... ارجو المعذره على ازعاجك يا أم عهود ..... بارك الله في وقتك وعلمك .
السلام عليكم رواد منتداي الغالي :
وفاءا لكم وللمنتدي ادرج هذا الحل الذي وصلني لموضوعي من الأخ ناصر عن طريق الكود التالي
Sub FILL_DATA()On Error GoTo FillDataErrorsDoCmd.GoToRecord , , acFirst With Me.WebBrowser4.Document.Forms(0) .ctl00_PlaceHolderMain_gvCourseSectionExamsGrades_ctl02_tb_6.Value = axm1 .ctl00_PlaceHolderMain_gvCourseSectionExamsGrades_ctl02_tb_11.Value = axm2 .ctl00_PlaceHolderMain_gvCourseSectionExamsGrades_ctl02_tb_14.Value = axm3 .ctl00_PlaceHolderMain_gvCourseSectionExamsGrades_ctl02_tb_22.Value = axm4 .ctl00_PlaceHolderMain_gvCourseSectionExamsGrades_ctl02_tb_24.Value = axm5 .ctl00_PlaceHolderMain_gvCourseSectionExamsGrades_ctl02_tb_29.Value = axm6 .ctl00_PlaceHolderMain_gvCourseSectionExamsGrades_ctl02_tb_3.Value = axm7 .ctl00_PlaceHolderMain_gvCourseSectionExamsGrades_ctl02_tb_4.Value = axm8 .ctl00_PlaceHolderMain_gvCourseSectionExamsGrades_ctl02_tbStudentAttendanceMark.Value = axm9 DoCmd.GoToRecord , , acNext .ctl00_PlaceHolderMain_gvCourseSectionExamsGrades_ctl03_tb_6.Value = axm1 .ctl00_PlaceHolderMain_gvCourseSectionExamsGrades_ctl03_tb_11.Value = axm2 .ctl00_PlaceHolderMain_gvCourseSectionExamsGrades_ctl03_tb_14.Value = axm3 .ctl00_PlaceHolderMain_gvCourseSectionExamsGrades_ctl03_tb_22.Value = axm4 .ctl00_PlaceHolderMain_gvCourseSectionExamsGrades_ctl03_tb_24.Value = axm5 .ctl00_PlaceHolderMain_gvCourseSectionExamsGrades_ctl03_tb_29.Value = axm6 .ctl00_PlaceHolderMain_gvCourseSectionExamsGrades_ctl03_tb_3.Value = axm7 .ctl00_PlaceHolderMain_gvCourseSectionExamsGrades_ctl03_tb_4.Value = axm8 .ctl00_PlaceHolderMain_gvCourseSectionExamsGrades_ctl03_tbStudentAttendanceMark.Value = axm9 End With Exit SubFillDataErrors:If Err.Number = 2105 Then Exit SubResume NextEnd Sub
والشكر موصول لك من حاول مساعدتي وأخص بالشكر الأخت د. زهرة ( أم عهود )
مشكور أخي الفاضل
ولكن ممكن ترفق الملف بعد الحل
حيث أن الكود يعمل فقط على الصفين الأول والثاني
ويبدو أن الخطأ عندي في باقي الملف
لذلك برجاء ارفاق الملف كاملا
لحاجتى اليه في رفع درجات الطلاب على موقع الادارة
ومشكور على جهدك الجميل
الشفرة التي تظنها حلا هي في نظري تستحق (-10)
لقد أتلفت أنت وناصر ما كان يمكن إصلاحه في شفرة الاستاذة زهرة!
الاستاذة زهرة رتبت للحل بشكل سليم لكن مع كثرة المشاركات لم تنتبه أنها لم تنقل قيمة متغير دوارة (FOR... NEXT) إلى حقول البيانات...
إليك ملف الاستاذة زهرة بعد الاصلاح
الاستاذة زهرة رتبت للحل بشكل سليم لكن مع كثرة المشاركات لم تنتبه أنها لم تنقل قيمة متغير دوارة (FOR... NEXT) إلى حقول البيانات...
إليك ملف الاستاذة زهرة بعد الاصلاح
السلام عليكم ورحمة الله وبركاته ..... اخي القحم واختي زهرة
لازلنا نتعلم منكم ...... بارك الله فيك ....... انا واعوذبالله من كلمة انا مجرد طالب في قاعة تدريسكم ..... فعلا انا من طلاب هذا المنتدي واتشرف ان أكون طالب .... ..... لا يسعني إلا أن أقف لكم جميعا إحتراما ....... واشكر لك تفاعلك مع الموضوع ..... والحل السليم منك ومن الأخت زهرة ......
على الرحب والسعة
هذا الموضوع مغلق.
