الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ربط الاكسس بالويب ونقل البيانات

مغلقمُجاب
بدأه bar في 29 مايو 2014 · 10 رد · 1,160 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

اخواني في المنتدى ........ السلام عليكم ورحمة الله وبركاته ..... اسئل الله لنا ولكم ان يبلغنا رمضان

 

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

لقد حاولت ذلك وتمكنت من رفع درجة طالب واحد فقط وعند محاولة رفع اكثر من درجة طالب يقوم البرنامج بتكرار درجة أول طالب كدرجة للطالب الثاني ....... ارجو أن أن اجد لديكم الحل المناسب لذلك

barna1.rar

#2

تفضل اخي الكريم

 

افتح النموذج ثم اختر عرض البيانات لتظهر لك صفحة بيانات نور

 

الآن اضغط على زر الأمر وسيتم تحديث جميع الحقول دفعة واحده

 

 

Barna.rar

 

بالتوفيق

1
#3

بارك الله فيك يا دكتورة على الرد ...... بس لا لو لا حظتي في أول اسمين درجاتهم ليست الدرجات الظاهرة في البيانات ... بل هي درجات آخر طالب في القائمة وهي مكرر لأول اسمين بنفس الدرجات دون تغيير ....... ارجو المعذره على ازعاجك يا أم عهود ..... بارك الله في وقتك وعلمك .

#4

السلام عليكم رواد منتداي الغالي :

 

وفاءا لكم وللمنتدي ادرج هذا الحل الذي وصلني لموضوعي من الأخ ناصر عن طريق الكود التالي

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

والشكر موصول لك من حاول مساعدتي وأخص بالشكر الأخت د. زهرة ( أم عهود )

#5

مشكور أخي الفاضل

ولكن ممكن ترفق الملف بعد الحل

حيث أن الكود يعمل فقط على الصفين الأول والثاني

ويبدو أن الخطأ عندي في باقي الملف

 

لذلك برجاء ارفاق الملف كاملا

لحاجتى اليه في رفع درجات الطلاب على موقع الادارة

ومشكور على جهدك الجميل

#6

الشفرة التي تظنها حلا هي في نظري تستحق (-10)

لقد أتلفت أنت وناصر ما كان يمكن إصلاحه في شفرة الاستاذة زهرة!

#7

الاستاذة زهرة رتبت للحل بشكل سليم لكن مع كثرة المشاركات لم تنتبه أنها لم تنقل قيمة متغير دوارة  (FOR... NEXT) إلى حقول البيانات... 

 

إليك ملف الاستاذة زهرة بعد الاصلاح

 

za_Barna.rar

1
#8 أفضل إجابة

الاستاذة زهرة رتبت للحل بشكل سليم لكن مع كثرة المشاركات لم تنتبه أنها لم تنقل قيمة متغير دوارة  (FOR... NEXT) إلى حقول البيانات... 

 

إليك ملف الاستاذة زهرة بعد الاصلاح

 

za_Barna.rar

#9

ما شاء الله أساتذتنا / القحم  و الأستاذة/ zahrah

دائما نتعلم منكم

#10

السلام عليكم ورحمة الله وبركاته ..... اخي القحم واختي زهرة

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

#11

على الرحب والسعة

هذا الموضوع مغلق.

مواضيع مشابهة