اذهب الي المحتوي
أوفيسنا

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


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.

رابط هذا التعليق
شارك

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

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

تم تعديل بواسطه osama457
رابط هذا التعليق
شارك

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

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

أختك جنّة.

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

رابط هذا التعليق
شارك

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

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 ؟

رابط هذا التعليق
شارك

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

أولا : جدول 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

رابط هذا التعليق
شارك

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

محمد

رابط هذا التعليق
شارك

يا أخي محمد،

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

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information