اضافة حقول لجدول بدون التأثير على البيانات

أخي الغالي

هذه مشاركة بها مشكلة مثل مشكلتك راجعها وان شاء الله تفيدك

/index.ph...=151029&hl=

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

ودمتم،،

اخي الفاضل

يمكن عمل التحديث للجداول المطلوبه بهذه الطريقة دون تأثر البيانات

1. انشاء نموذج فارغ لا يعتمد على اي مصدر بيانات ( جداول - استعلامات )

2. انشاء زر أمر وليكن مثلا بإسم CmdUpdate

3. نضع تحت زر الأمر الكود التالي :

Private Sub CmdUpdate_Click()
DoCmd.RunSQL "ALTER TABLE [جدول 1] add COLUMN [d] CHAR(50); "
DoCmd.RunSQL "ALTER TABLE [جدول 1] add COLUMN [f] CHAR(50); "
End Sub

لاحظ معي اسم الجدول ( جدول 1 ) المطلوب اضافة حقل جديد به مثل d و f وحجم كل حقل 50 حرف بإمكانك التقليل من حجم الحروف حسب المطلوب لكل حقل

4. يجب ان تكون جميع الجداول المطلوب عمل التحديث لها مغلقة تماما سواء كانت هي بنفسها ام اي نموذج او استعلام يعتمد على هذا الجداول .

5. عمل زر أمر CmdTransferForm يقوم بتصدير النموذج من قاعدة التحديث الى القاعدة data.mdb والتي ستكون حتما في المجلد الذي به قاعدة البيانات data.mdb ( بمعنى ضع القاعدتين في نفس المجلد )

6. الآن عند فتح قاعدة التحديث والضغط على زر الأمر CmdTransferForm الموجود في النموذج frmUpdate فسيتم تصدير النموذج الى القاعدة data.mdb.

7. عند الضغط على زر الأمر CmdUpdate الموجود في النموذج frmUpdate سوف يقوم الكود بإنشاء حقلين نصيين هما d و f وحجم كل منهما 50 حرف بدون التأثير على حقل او بيانات في الجدول المطلوب تحديثه .

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

za_Update.rar

دائماً ماتتحفيننا بدروسك الرائعة كروعتك أختي زهرة بارك الله فيك ونفع بك مثال أكثر من رائع ..

كل الشكر مشرفتنا القديرة زهرة