سوال: Description فرم ها در لیست باکس [بایگانی]

nazanin_90

سه شنبه 07 آبان 1392, 22:19 عصر

سلام
اگر در قسمت Description هر فرم نام فارسی آن نوشته شود چگونه میتوان Description همه فرم ها را در یک کمبوباکس یا لیست باکس نمایش داد؟
با تشکر

Abbas Amiri

سه شنبه 07 آبان 1392, 23:45 عصر

سلام
اگر در قسمت Description هر فرم نام فارسی آن نوشته شود چگونه میتوان Description همه فرم ها را در یک کمبوباکس یا لیست باکس نمایش داد؟
با تشکر

اگر نام لیست باکس شما List0 وخصوصیات RowSourceType=ValueList و ColumnCount=2 و ColumnHeads=Yes باشد از کدهای زیر برای این منظور استفاده کنید:
On Error Resume Next
Dim db As Database
Dim frm As AccessObject, doc As Document
Set db = CurrentDb
List0.AddItem "Forme Name;Description"
For Each frm In CurrentProject.AllForms
Set doc = db.Containers("Forms").Documents(frm.Name)
List0.AddItem doc.Name & ";" & doc.Properties("Description")
Next
Set db = Nothing
Set doc = Nothing