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

[Janna]

السلام عليكم،

بعد العودة مجدداً إلى المنتدى ..

عندي مشكلة مع الجداول :

فرضاً عندي جدول A و به عدد x من السجلات، كيف أستطيع أن أصنع جدول B جديد تكون:

حقوله هي هذه السجلات x ذات نوع text و طول 50، و أريد أن أضيف حقلين من عندي أيضاً .. فكيف أفعل هذا، كيف أستطيع أتمتة هذه العملية بدون أن أخلق هذه الجداول يدوياً؟؟

بالكود طبعاً..

سأترجم ما أريد للإنكليزي:

Who can help me to automatically create tables by using a table. I have a table where i store records, I want these records to be the fields of another table B..

How can i automate this process without manually create the tables.

[osama457]

هذان كودان باستخدام استعلامات إجرائية واستعلامات تعريف البيانات

Sub MySub1()
'   السطر التالي عند تفعيله يحذف الجدول إن كان موجودا
'   DoCmd.RunSQL "DROP TABLE NewTbl1"

' العبارة التالية تنشئ جدول جديد اسمه
' NewTbl1
' وفيه ثلاثة حقول من نوع نص أسماؤها واضحة من العبارة
DoCmd.RunSQL "CREATE TABLE NewTbl1 ([f2] text, [f3] text, [f4] text);"

' السطر التالي يوقف رسائل التنبيه
DoCmd.SetWarnings False
' السطر التالي يدرج سجلات الجدول القديم في الجدول الجديد
DoCmd.RunSQL "INSERT INTO NewTbl1 ( f2 ) SELECT Tbl1.f2 FROM Tbl1;"
' السطر التالي يعيد تشغيل رسائل التنبيه
DoCmd.SetWarnings True
End Sub

Sub MySub2()
' السطر التالي يوقف رسائل التنبيه
DoCmd.SetWarnings False
' السطر التالي يدرج سجلات الجدول القديم مع حقلين فارغين جديدين يقبلان الطول الصفري في جدول جديد اسمه
' NewTbl1
DoCmd.RunSQL "SELECT Tbl1.f2, '' AS f3, '' AS f4 INTO NewTbl1 FROM Tbl1;"
' السطر التالي يعيد تشغيل رسائل التنبيه
DoCmd.SetWarnings True
End Sub

ومرفق مثال

CreatTable22.zip

تم تعديل سبتمبر 2, 2004 بواسطه osama457

[Janna]

ألف ألف شكر لك يا أخي بس عندي طلب صغي ممكن يكون اسم الجدول الجديد هو عبارة عن 2 textbox name1 & name2 في النموذج form1 ؟؟ يعني المستخدم سيغير بالأسماء.

و ممكن تضيفها للبرنامج ؟ مع الدعاء و الشكر..

أختك جنّة.

http://www.geocities.com/jinan74/CreatTable13.zip

[Janna]

ألف شكر يا أخي و أخلص الدعاء، , ولكن

1- يا أخي ما أريده هو :

فرضاً كان عند جدول A :

Id Field1

1 T

2 U

3 V

4 X

أريد من هيكلية الجدول الثانيB أن يتكون من 4 حقول (لو كان عندي 5 سجلات في الA سيكون في الB 5) Field1,Field2 ,field3, field4 من نوع integer و حقلين إضافين أربد أن أضيفهما من نوع text .

فما هو الحل ؟

2- بالنسبة الى مثلك هو ممتاز و لكن كيف أستطيع أن أجعل اسم الجدول يتكون من 2 text boxes موجودين في النموذج A و هما name1 و name2 ؟

[osama457]

إذا لم يحقق المثال المرفق المطلوب أرجو توضيح ما يلي :

أولا : جدول A :

Id Field1 ليس مطلوبا أليس كذالك

1 T ما نوعه وكم حجمه

2 U ما نوعه وكم حجمه

3 V ما نوعه وكم حجمه

4 X ما نوعه وكم حجمه

ثانيا : جدول B :

Field1 ما نوعه وكم حجمه وما هي البيانات من جدول A التي ستخزن فيه ، هل هي الحقل T

Field2 ما نوعه وكم حجمه وما هي البيانات من جدول A التي ستخزن فيه ، هل هي الحقل U

Field3 ما نوعه وكم حجمه وما هي البيانات من جدول A التي ستخزن فيه ، هل هي الحقل V

Field4 ما نوعه وكم حجمه وما هي البيانات من جدول A التي ستخزن فيه ، هل هي الحقل X

ثالثا : حقلين إضافين من نوع text ، كم حجمهما ، وهل يقبلان الطول الصفري ؟

رابعا: 2 text boxes لماذا ؟ واحد منهما لاسم الجدول الجديد ، والثاني لماذا ؟

CreatTable111.zip

[Janna]

مشكور يا أخي أسامة على التفاعل، و إليك التكملة :

من الحقل A الحقل و مضمون ال id لا يهمني في شي بالنسبة للجدول B .

2- T,UV, X هم سجلات للحقل الثاني في الجدول A و ما يهمني حقيقة هو عددهم –لأنه سيكون عدد مواد كل اختصاص- و عندها سأفتح جدولB به حقول تضم عدد المواد (في حالتنا هنا 4) بالإضافة إلى حقل يضم رقم التلميذ – عندي هنا أريده Text- و Notes . يمكن للحفل notes أن يكون صفراً و لكن رقم التلميذ كلا , و هو المفتاح أيضاً.

أنا سأضع علامات كلّ تلميذ في كلّ مادة في هذا الجدول الجديد ..

الآن اسم الجدول B سيكون متعلق ب 2 textbox لأن اسم الجدول سيكون له علاقة بسنة التخصص و نوعه- بمعنى آخر سيكون اسم الجدول عبارة عن text1 &text2.

[osama457]

آسف لكني لم أستوعب المطلوب جيدا ، وأخشى أن لا أتمكن من الإجابة ، ربما يمكن بعض الإخوة هنا إفادتك

[bodalal]

السلام عليكم ...

بس ممكن استفسار ...

ليش كل هاللفة ... يعني نقدر نفتح الجدول اللي نبيه ، وبعدين نسوي حفظ باسم من قائمة ملف ، ونعطيه الاسم اللي نبيه ... ونغير فيه على كيفنا ، نضيف أو نحذف أو نعدل الحقول ... لماذا نحتاج إلى كود بيسك ؟!

محمد

[Janna]

يا أخي محمد،

لكي أحعل البرنامج ديناميكياً ، لا أستطيع أنا أن أثبت كل الجداول ، كل سنة ،

على المستخدم أن يفتح أوتوماتيكياً ججاول حسب المواد لكل اختصاص و فصل و مرحلة، يعني بس اللي فاضل هو حلّ لهذه المشكلة.