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

[diaaa 0]

السلام عليكم :
عندي قاعدة البيانات المرفقة وهي مشروع برنامج لمدرسة
فيها عدة جداول ومنها جدول باسم TabNotesStudent
في هذا الجدول عدة حقول مختلفة TypeID / WriterID / Subject / GeneralID / NoDate
سؤالي هو :
- كيف يمكنني إدخال عدة سجلات في هذا الجدول دفعة واحدة إن كانت TypeID / WriterID / Subject / NoDate ذات قيمة واحدة والمختلف هو GeneralID

ملاحظة :
أرجو شرح الطريقة إن أمكن حتى أستفيد منها في المستقبل كوني سأصنع جدول خاص بعلامات الطلاب وسأحتاج لنفس الفكرة .
تحياتي للجميع وشكراً لكم

 

Database.rar

[zahrah 4,313]

أختي الكريمة إجابة مميزة واستفدت منها كثيراً وخصوصاً بالشرح المميز

بقي نقطة صغيرة لعلي أغفلتها في طرح المشكلة وهي:

كيف يمكنني اختيار عدد معين من ((الرقم العام)) فالنموذج الذي قمت بصناعته يضيف لجميع الأرقام العامة السجلات

ولكن أريد اختيار الأرقام

شكراً جزيلاً لك

وللجميع

 

 

اخي الفاضل

 

اتمنى في المرات القادمة من المشاركات عندما تضع سؤالا ان تتأكد انك وضعت الشرح الكامل حتى لا نعيد ونزيد ونعدل لأكثر من مره

 

عموما تفضل الملف بعد التعديل

 

ادخل البيانات في الحقول التي في النموذج من خلال مربعات التحرير والسرد ومربع النص  NoDate  المراد اضافتها الى الجدول ثم ضع

 

علامة صح امام السجلات المطلوبة ثم اضغط زر الأمر تحديث الجدول بهذه الطريقة

 

 

 

 

 

 

za-Database-UP.rar

 

 

 

بالتوفيق

[zahrah 4,313]

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

 

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

 

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

 

اولا : الجدول 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   NextMsgBox " تم اضافة السجلات الى الجدول بنجاح ", vbInformation, "مبروك"rst.CloseSet rst = NothingEnd Sub

 

نلاحظ في الكود اننا وضعنا عدد السجلات في الحلقة التكرارية هو 6 سجلات فقط لأنه لا يوجد لديك سوى ست ارقام وهي من  853 الى 858 في حقل GeneralID

 

 

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

 

 

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

 

 

 

 

 

za-Database.rar

 

 

 

بالتوفيق

تم تعديل 12 Nov 2013 بواسطه zahrah

[diaaa 0]

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

تم تعديل 13 Nov 2013 بواسطه diaaa

[diaaa 0]

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

[احمد المبرمج 1]

السلام عليكم

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

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

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

 

 

 

()Private Sub CmdUpdate_Click

DoCmd.SetWarnings False

"(Me.RecordSource = "SELECT TabPrimaryStudents.GeneralID,TabPrimaryStudents.chk FROM TabPrimaryStudents WHERE (TabPrimaryStudents.chk=-1

DoCmd.OpenQuery "Q1

DoCmd.SetWarnings True

MsgBox " Êã ÇÖÇÝÉ ÇáÓÌáÇÊ Çáì ÇáÌÏæá ÈäÌÇÍ ", vbInformation, "ãÈÑæß

DoCmd.OpenTable "TabNotesStudent", acViewNormal

End Sub

تم تعديل 18 Nov 2013 بواسطه احمد المبرمج