ایجاد پراپرتی در جدول

TableDefs.CreatePropert Methods

CreateProperty(Name, Type, Value, DDL)

دوستان عزیز لطفا اگر مطلبی کمکتون میکنه یا براتون مفیده لطفا لایک و نظر بدهید در نظرسنجی هم شرکت کنید.

مثال زیر ماژولی است که می توانید در استاندارد ماژول برنامتون اضافه کنید البته اگر بار دوم اجرا بشود چون ساخته شده ارور ران می شود ( اجرا ). یک فیلد از نوع Yes/No ایجاد میکند و خاصیت نمایش کنترل را بصورت چک باکس تنظیم میکند.برای انجام و ایجاد باید دیتابیس را به دیتابیس جاری تنظیم نمایید با 

Set dbs=CurrentDb 

اگر دیتا بیس دیگری باشد باید از OpenDataBase استفاده بنمائید.سپس جدول دیتابیس جاری را به tdf تنظیم کرده و در آخر ایجاد فیلدبا نامی که پارامتر دوم  فانکشن یعنی StrFieldName مشخص کرده.بعد از ایجاد کردن فیلد مورد نظرتون پراپرتی فیلد را تنظیم نموده 

Public Sub CreateYesNoField(strTableName As String, _
	strFieldName As String)

    Dim dbs As DAO.Database
    Dim tdf As DAO.TableDef
    Dim fld As DAO.Field
    Dim prop As DAO.Property

  Set dbs = CurrentDb

(Set tdf= dbs.TableDefs(strTableName
   Set fld = tdf.CreateField(strFieldName,dbBoolean
    ساختن و اضافه کردن فیلد :
    tdf.Fields.Append fld

Set prop=dbs.CreateProperty("DisplayControl

	dbInteger, acCheckBox)

    

اضاف کردن پراپرتی به مجموعه پراپرتی های شی :

    fld.Properties.Append prop

   پاک کردن از حافظه موقت :
    Set prop = Nothing
    Set fld = Nothing
    Set tdf = Nothing
    Set dbs = Nothing
End Sub