توزيع بيانات حقل محدد في حقول أخرى

UP

وعليكم السلام ورحمة الله وبركاته

طلبك به جزئيتين :

الجزئية الأولى هو جداول وعلاقات جديدة

والجزئية الثانية هي نقل البيانات للجداول الجديدة

إن شاء الله أنا أقترح من خلال الملف المرفق شكل الجداول والعلاقات الجديدة

واذا كان عندك أو عند الزملاء تعديل فلا مانع

أما الجزئية الثانية فأتركها لك أو للزملاء

test_database.rar

ألف شكر لك أخي أمير

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

بالنسبة لما قدمته سبق وأن تم عمله وكذلك تم نقل البيانات للجدول الرئيسي

الباقي فرز البيانات على السجلات بدلا من وجودها في سجل واحد .

up

تفضل أخى

ضع هذا الكود فى زر او عند فتح النموذج

On Error Resume Next
DoCmd.DeleteObject acTable, "Emp_tbl"
DoCmd.DeleteObject acTable, "Tests_tbl"

Dim strsql As String
strsql = "SELECT DISTINCT  الاختبار.الرقم AS empid, الاختبار.الاسم AS empname, الاختبار.الرتبة AS empdegree, الاختبار.الوظيفة AS empjob INTO Emp_tbl FROM الاختبار;"
CurrentDb.Execute strsql
  CurrentDb.Execute ("CREATE INDEX Index1 ON Emp_tbl(empid) With PRIMARY")

strsql = "SELECT الاختبار.الرقم AS emp, الاختبار.التاريخ AS testdate, الاختبار.الاختبار AS testname, الاختبار.[نوع الاختبار] AS testype, الاختبار.النتيجة AS testresault, الاختبار.[مرات النجاح] AS passtimes INTO Tests_tbl FROM الاختبار;"
CurrentDb.Execute strsql
  CurrentDb.Execute "ALTER TABLE Tests_tbl ADD COLUMN [SN] AUTOINCREMENT"
  CurrentDb.Execute ("CREATE INDEX Index1 ON Tests_tbl(SN) With PRIMARY")
  CurrentDb.TableDefs("Tests_tbl").Fields("SN").OrdinalPosition = 0
  CurrentDb.TableDefs("Tests_tbl").Fields("emp").OrdinalPosition = 1

'هذا السطر لحذف الجدول القديم
'DoCmd.DeleteObject acTable, "الاختبار"

سيقوم الكود بانشاء جدولين جديدين من الجدول القديم

و يمكن أيضا اضافة العلاقه بينهما من خلال الكود لو اردت

لكن أنا لى ملاحظات على بناء الجدول من الاساس

فى تسميات الاعمده و نوع البيانات بها

حول تقرأ أكثر فى طريقة انشاء قواعد البيانات بشكل صحيح

السلام عليكم

أشكرك كل الشكر والعرفان أخي أبو يوسف وهذا شرف لي أن تمر على سؤالي وموضوعي

أخي الكريم أبو يوسف

أرفق لك صورة توضح المطلوب بشكل أكبر أتمنى أن تكون واضحة في نقل المطلوب من الموضوع ولك جزيل الشكر

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

وكذلك ملاحظتك في بناء الجدول ونوع البيانات ( المشكلة أنها بيانات قديمة من عام 2000 تقريبا أي قبل 14 سنة ومهمة أيضا حيث أنها مصيرية من ناحية الترقيات والعلاوات الفنية للموظفين والعسكريين وكذلك المتعاقدين وهم أكثر الفئات ضراراً من فقد هذه البيانات ) مجرد توضح لأهمية الموضوع

السجلات في الجدول تحتاج إلى تقسيم

كل سجل يقسم إلى أكثر من سجل بنفس الارتباط في السجل السابق

 كلي آمل في وجود الحل لديكم ..

اولا أخى الكريم

نفل البيانات الى جداول جديدة لن يضيع البيانات و لن تخسر منها شىء

فقط سيتم تمظيمها

ثانيا لم أفهم أن السجل عباره عن أسطر و ليس سجلات

ارجو ان تضع مرفق واضح