كيفية إدخال عدة سجلات دفعة واحدة في جدول أكسس

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

ملفك بعد التعديل

واتمنى ان تنتبه للشرح لأنه سهل وبسيط ولا يوجد به اي تعقيد

اولا : الجدول TabNotesStudent

كما تلاحظ حتى هذه اللحظة ان الجدول فارغ من البيانات تماما 

ثانيا : انشاء نموذج ليس له اي مصدر سجلات به زر أمر وتحته كود اضافة السجلات بالبيانات المطلوبه

كما تلاحظ من النموذج ان الرقم العام ( رقم الطالب ) تم استدعاؤه من الجدول الرئيسي للطلاب TabPrimaryStudents وهو اول رقم في السجلات

ولا يمكننا تغييره لأن خاصية مؤمن تم وضعها على نعم  وخاصية تمكين على لا حتى لا يتم العبث برقم الطلاب وحتى تكون النتائج صجيجة ومطابقة لمافي الجدول

وسيكون الكود البرمجي الموجود تحت زر الأمر هو كالتالي

Private Sub CmdUpdate_Click()
   Dim dbs As DAO.Database
   Dim rst As DAO.Recordset
   Dim i
   Set dbs = CurrentDb
   Set rst = dbs.OpenRecordset("TabNotesStudent")
   For i = 0 To 5
   rst.AddNew
   rst("TypeID").Value = Me![TypeID]
   rst("WriterID").Value = Me![WriterID]
   rst("Subject").Value = Me![Subject]
   rst("NoDate").Value = Me![NoDate]
   rst("GeneralID").Value = Me![xGeneralID] + i
   rst.Update
   Next
MsgBox " تم اضافة السجلات الى الجدول بنجاح ", vbInformation, "مبروك"
rst.Close
Set rst = Nothing
End Sub

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

دعنا نتأكد من الجدول هل تمت اضافة السجلات المطلوبة ام لا

za-Database.rar

بالتوفيق

أختي الكريمة إجابة مميزة واستفدت منها كثيراً وخصوصاً بالشرح المميز
بقي نقطة صغيرة لعلي أغفلتها في طرح المشكلة وهي:
كيف يمكنني اختيار عدد معين من ((الرقم العام)) فالنموذج الذي قمت بصناعته يضيف لجميع الأرقام العامة السجلات
ولكن أريد اختيار الأرقام
شكراً جزيلاً لك
وللجميع

جزاك الله خيراً وجعله في ميزان حسناتك
هذا هو المطلوب بالضبط
===================================
لا زلت جديداً على الأكسس وعلى المنتدى
شكراً لك
وللجميع

السلام عليكم

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

اختنا العزيزة ، في المشاركة رقم 4 عند اختيار سجلات معينة لاضافتها في الجدول TabPrimaryStudents لايضيف اخر سجل مختار والحالة الاخرى هي عند اختيار سجل واحد فقط لايضيفه اضافة الى حالات اخرى لعدم الاضافة

ولكن عند اضافة هذا السطر (اللون الازرق)  يكون كل شي تمام. ولك مني كل الشكر  والعذر اذا كنت على خطأ ومنكم نتعلم ونستفاد