• 0
diaaa

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

سؤال

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

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

 

Database.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

5 إجابة على هذا السؤال .

  • 0

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

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

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

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

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

وللجميع

 

 

اخي الفاضل

 

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

 

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

 

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

 

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

 

post-15367-0-34455000-1384346879_thumb.g

 

post-15367-0-09825200-1384346917_thumb.g

 

 

 

 

za-Database-UP.rar

 

 

 

بالتوفيق

4

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

 

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

 

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

 

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

 

post-15367-0-71514500-1384270485_thumb.g

 

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

 

 

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

 

post-15367-0-85276600-1384270748_thumb.g

 

كما تلاحظ من النموذج ان الرقم العام ( رقم الطالب ) تم استدعاؤه من الجدول الرئيسي للطلاب 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

 

 

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

 

post-15367-0-93361400-1384271478_thumb.g

 

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

 

post-15367-0-45652300-1384271653_thumb.g

 

 

 

 

za-Database.rar

 

 

 

بالتوفيق

تم تعديل بواسطه zahrah
4

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

تم تعديل بواسطه diaaa
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم

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

اختنا العزيزة ، في المشاركة رقم 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
تم تعديل بواسطه احمد المبرمج
1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .