راهی برای دسترسی به Extended Property های یک فیلد

[Sub Zero]

سلام.
سوالم رو انجوری شروع میکنم که من دیتا بیس اکسسم رو به SQl تبدیل کردم ( با استفاده از یه برنامه کانورتور ) اما بعد ازتبدیل متوجه شدم که Description های مربوط به هر فیلد در دیتابیس جدید وجود نداره با کلی جستجو تونستم یه سری دستورات رو برای کار با Extended Property ها در SQl پیدا کنم :

select objname as ColName, value as Description   _ &

From ::fn_listextendedproperty(NULL, 'user', 'dbo', 'table',' & 'TableName' & , 'column', default)

من دنبال کد معادل این دستورات در اکسس میگردم تا بتونم با استفاده از یه Query به Description های هر فیلد دسترسی پیدا کنم . ممنون می شم اگه دوستان در این ضمینه اطلاعاتی رو در اختیارم قرار بدن .
در ضمن من از اکسس پروچکت استفاده نمیکنم و دیتابیسم هم یک فایل اکسس عادیه . اینو گفتم چون توی سایتی که لینکش رو گذاشتم راهی براش پیدا کردم اما ظاهرا در اکسس پروچکت جواب میده .
Access 2002 Data Projects for Developers

[مهدی قربانی]

سلام
دوست گرامی این کد می تونه Properties کوئری رو تغییر بده .
برای اجرای این کد حتماً در VBA از طریق منوی Tools\References گزینه Microsoft DAO 3.6 Object Library رو فعال کنید .

 Dim qdef As QueryDef

 Set qdef = CurrentDb.querydefs("QueryName")

 qdef.Fields("FieldName").Properties("description") = "ABCDEFG..."

[Sub Zero]

با تشکر از جوابتون مشکلم رو با طراحی یه فرم و با کمک کدهای زیر حل کردم :

Private Sub Form_Load()

Set cat.ActiveConnection = CurrentProject.Connection

Dim tbl As Table

Dim fld As Field



For Each tbl In cat.Tables

tblname.AddItem (tbl.Name)

Next

End Sub



Private Sub tblname_Click()

    flname.RowSource = ""

    Dim tbl As New ADOX.Table, fld As ADOX.Column

    Set tbl = cat.Tables(tblname.Value)

    For Each fld In tbl.Columns

        flname.AddItem fld.Name & ";" & fld.Properties(2).Value

    Next

End Sub