استفسار حول تنسيق حقول في نماذج مختلفة من خلال نموذج منفصل

[ازهر عبد العزيز]

السلام عليكم ..... كيف استطيع تنسيق الحقول a1.b1,c1.d1.e1 في النماذج A,B,C,D,E  بمعنى كيف يمكنني اضافة نموذج منفصل بحيث يمكنني من تغير تنسيق هذة الحقول  الى رقمي او علمي   

vi.accdb

تم تعديل مارس 23, 2020 بواسطه ازهر عبد العزيز

[kha9009lid]

مرحبا استاذ @ازهر عبد العزيز

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

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

لتغيير الحقل الى نوع رقم

   Dim x As Variant
   x = "ALTER TABLE [tbl1] ALTER COLUMN [tx8] LONG"
   DoCmd.RunSQL x

ويمكن كتابتة بالشكل التالي

DoCmd.RunSQL "ALTER TABLE [tbl1] ALTER COLUMN [tx8] Integer"
او
DoCmd.RunSQL "ALTER TABLE [tbl1] ALTER COLUMN [tx8] LONG"

حسب نوع الحقل الرقمي

تغيير الحقل الى نوع مزدوج يكون على النحو التالي

DoCmd.RunSQL "ALTER TABLE [tbl1] ALTER COLUMN [tx8] Double"

الى نوع نص

DoCmd.RunSQL "ALTER TABLE [tbl1] ALTER COLUMN [tx8] String"

واذا اردنا ان نحدد طول الحقل النص يمكن كتابتة

DoCmd.RunSQL ("ALTER TABLE [tbl1] ALTER COLUMN [tx8] TEXT(30);")

اما حقل التاريخ فيكون

DoCmd.RunSQL "ALTER TABLE [tbl1] ALTER COLUMN [tx8] date"

النوع العملة يكون على النحو التالي

DoCmd.RunSQL "ALTER TABLE [tbl1] ALTER COLUMN [tx8] Currency"

لتحويل تنسيق الحقل الى علمي

Set db = CurrentDb
db.TableDefs("tbl1").Fields("tx8").Properties.Append db.CreateProperty("Format", dbText, "scientific")

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

في جميع الاحوال لا انصح بالعبث في الحقول والمفروض ان التخطيط الجيد قبل واثناء انشاء قواعد البيانات يغني عن الحاجة للتعديلات

اضافة الى ان تغيير نوع الحقل قد يؤدي الى فقدان البيانات لهذا الحقل وخصوصا اذا كان الحقل مرتبط بجداول اخرى قد يعطل عمل القاعدة

[ازهر عبد العزيز]

الاستاذ المبدع @kha9009lid  شكرا جزيلا وهو المطلوب واكثر