كيف أضيف حقل جديد إلى جدول عنطريق ماكرو

مغلق

بدأه المفتاح في 24 أبريل 2002 · 1 رد · 412 مشاهدة · في مراجعة المواضيع

مشاركة: واتساب X فيسبوك تيليجرام

#124 أبريل 2002 في 08:27 صاحب الموضوع

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

فكيف أجعل ماكرو ينشأ حقل في جدول بمواصفات معينة مثل حقل نعم أو لا

ولك جزيل الشكر

#225 أبريل 2002 في 00:24

قد تستفيد من هذه الطريقة :

(انقر بالزر الأيمن واختر حفظ الهدف باسم)

والكود هو :

Dim MyDb As Database

Dim MyTbl As TableDef

Dim MyFld As Field

Set MyDb = CurrentDb

Set MyTbl = MyDb.TableDefs("TableName")

' استبدل TableName

'باسم الجدول المراد إضافة الحقل فيه

Set MyFld = MyTbl.CreateField("FieldName", dbText, 40)

' استبدل TableName

'بالاسم الذي تريده للحقل الجديد

' استبدل dbText

'بالنوع الذي تريده للحقل الجديد

' استبدل 40

'بالحجم الذي تريده للحقل الجديد

MyTbl.Fields.Append MyFld

هذا الموضوع مغلق.