إنشاء جدول حقوله من نموذج

لا مفيش جاجة اسمها كدة

الجدول هو اساس القاعدة وهو الذى يستمد من البيانات للنموذج

Ksmn 64 كتب:

الأعضاء الكرام

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

هل يمكن إنشاء جدول من خلال تحديد الحقول من نموذج .

مرفق مثال .

اخي الفاضل

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

وكل عام وانتم بخير

ما هو الغرض من هذه الفكره المقلوبه والمجنونه في نفس الوقت

المفروض ان تكون العكس ( إنشاء نموذج من جدول )

عموما يمكن تطبيق مثل هذه الأفكار الخارجة عن المألوف ولكن قبل الإجابة هناك بعض التساؤلات عن بعض الحقول الموجوده في النموذج

ماهو المقصود بحقل ( عدد الأعمده ) هل هو عائد للعماره او عائد للجدول

وايضا المقصود بحقل ( تكرار كل صف ) -- هذا الحقل غير مفهوم

اتمنى ان توضح الفكره التي تريد الوصول لها بشرح اكثر حتى نستطيع مساعدتك

بالتوفيق

الأخ الكريم very

كل عام وأنت بخير

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

الأخت الكريمة أم عهود

كل عام وأنت بخير

نعم هي فكرة مجنونة والهدف منها تحقيق رغبة في وضع جدول كما في الإكسيل أمام المستخدم بحيث يتم توزيع اسماء أشخاص في كل مربع .

لقد توصلت إلى الحل وباقي تكرار الأعمدة بحيث يتم إنشاء أعمدة إضافية في الجدول بحسب العدد المطولب .

شاكراً لكي مقدماً مساعدتك .

بالتوفيق،،،

اقتباس

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

تكرار اعمدة كمان :rolleyes:

طيب انا منتظر وادى احنا بنتعلم :hmm:

اخي الفاضل

قم بتجربة هذا الكود تحت زر الأمر

Private Sub Create_Table_Click()
Dim strSQL1, strSQL2 As String

strSQL1 = "CREATE TABLE Table_Name ([Building] integer, [storey] integer);"
strSQL2 = "ALTER Table [Table_Name]  ADD COLUMN [Building1] integer,[storey1] integer,[Building2] integer,[storey2] integer,[Building3] integer,[storey3] integer;"
DoCmd.RunSQL strSQL1
DoCmd.RunSQL strSQL2
MsgBox "تم انشاء الجدول وإضافة الحقول بنجاح"
End Sub

هذا الكود سوف يقوم بإنشاء الجدول Table_Name ثم يقوم بإضافة الحقلين الأساسيين Building و storey ثم يقوم بعد ذلك بإضافة الحقول مكرره 3 مرات بواسطة عبارة ALTER

za-Test1-UP.rar

بالتوفيق

الأخ الكريم very

يجب ان تعرف أن الإصرار هو من يأتي بالأفكار .

على العموم الطريقة التي توصلت لها هي عن طريق أكواد يمكن أن تكون SQL أو VBA .

ويكفيك مثال الأخت زهرة . وإن شاء الله سوف نصل للمطلوب .

الأخت الكريمة زهرة

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

ويمكن ان تأخذ الأعمدة أسماء بالأرقام .

مثال لو عملنا شرط ودائرة . هل تنجح .

بحيث يكون اسم العمود حقل وهمي ويبداء بـ(1) حتى يكون الحقل الوهمي يساوي حقل عدد الأعمدة في النموذج عندها يتوقف الشرط .

اشكرك كثيراً على المساعدة .

بالتوفيق،،،

الأخت الكريمة زهرة أم عهود

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

الفكرة المجنونة تحققت ولله الحمد .

أتمنى اني تتطلعي عليه وهل يحتاج إلى تعديل . خاصة وأن لكي نظرة مميزة .

الأخ الكريم very

يهمني رأيك فقد كنت من الغير مقتنعين بالفكرة .

بالتوفيق،،،

Test1.rar

اخي الفاضل : Ksmn 64

ما شاء الله تبارك الله

عمل جميل ورائع واكواد ولا اروع منها

اهنئك على تنفيذ الفكره شكلا ومضمونا

ولا اجد من الكلمات إلا ان اقول لك جزاك الله كل خير

+ مليون

بالتوفيق

الأخت الكريمة زهرة أم عهود

أشكرك هذه شهادة أعتز بها .

وفقك الله .

بالتوفيق،،،

عمل رائع جدا طبعا

استذتنا زهرة معندهاش مستحيل

والاشياء غير المنطقية عندنا تصبح منطقية عندها :)

ربنا يسعدها ويفرحها ديما ويكافئها على عملها وما تقدمة لنا من معلومات لا تبخل بها علينا

zahrah كتب:

اخي الفاضل : Ksmn 64

ما شاء الله تبارك الله

عمل جميل ورائع واكواد ولا اروع منها

اهنئك على تنفيذ الفكره شكلا ومضمونا

ولا اجد من الكلمات إلا ان اقول لك جزاك الله كل خير

+ مليون

بالتوفيق

أخي الفاضل very

لا أحد ينكر فضل الاستاذة زهرة ولكن هذه المرة يبدو انك لم تقراء ردها جيداً .

بالتوفيق،،،