بدست آوردن Description يك جدول

[abas1388]

باسلام
باچه كدي ميتوانيم Description يك جدول را را در يك تكست باكس درج نمائيم؟
با كد زير به نتيجه نرسيدم



Dim db As Database
Set db = CurrentDb
Text6 = db.TableDefs("NameTable").Properties("Description")


با تشكر

[Abbas Amiri]

آیا قبلا به این خصوصیت مقداری داده اید که حالا میخواهید آنرا بازیابی کنید؟

[abas1388]

سلام جناب اميري!


قبلاً بايد عرض كنم كه در عنوان تاپيك به يك مورد اشاره نكرده ام و آن اينكه بجاي بدست آوردن Descriptionيك جدول بايد Description فيلد يك جدول را مي نوشتم.




همانطور كه استحضارداريد در قسمت Description فيلدهاي جداول لينك شده مسير بانك اطلاعاتي كه برنامه به جدول آن لينك است درج ميشود


هدف بنده از اين كار اين است كه آدرس جدول لينك شده را از اين قسمت استخراج ودر يك تكست باكس ثبت نمايم.


با تشكر

[Mahyar.FF]

شاید این کمکی کنه..

Sub get_table_desc()

Dim o As Object
Dim p As Property
Dim db As DAO.Database

Set db = Application.CurrentDb

Set o = db.Containers("tables").Documents("myTable")

On Error Resume Next

For Each p In o.Properties
' Do your job with p.Name and p.Value
Debug.Print p.Name & vbTab & vbTab & p.Value
Next p

Set o = Nothing
Set db = Nothing
End Sub

[Abbas Amiri]

جهت آدرس جداول لینک شده به تاپیک زیر سری بزنید
http://barnamenevis.org/showthread.php?343142-%D9%86%D9%85%D8%A7%D9%8A%D8%B4-%D9%86%D8%A7%D9%85-%D8%AC%D8%AF%D8%A7%D9%88%D9%84-%D9%84%D9%8A%D9%86%D9%83-%D8%B4%D8%AF%D9%87-%D8%AF%D8%B1-%D9%84%D9%8A%D8%B3%D8%AA-%D8%A8%D8%A7%D9%83%D8%B3

[abas1388]

سلام
جناب اميري !
آيا راهي نداره كه با كد نويسي به آدرس جدول لينك شده(از طريق description جدول ) دست پيدا كنيم ؟
تاپيك لينك فوق توسط خودم ايجاد شده و نميخواهم آدرس را از طريق انتخاب كاربر بدست آورم.
نميدانم كد نوشته شده در پست شماره1 چه ايرادي داره كه جواب نميده
با تشكر

[mahdi_107]

سلام


Dim tdf As TableDef
For Each tdf In CurrentDb.TableDefs
If tdf.Connect <> "" Then
MsgBox (tdf.Name & " => " & tdf.Connect)
End If
Next
Next

يا



Dim tdf As TableDef
For Each tdf In CurrentDb.TableDefs
If tdf.Connect <> "" Then
MsgBox (tdf.Name & " => " & right(tdf.Connect, Len(tdf.Connect) - 10))
End If
Next

[abas1388]

آفرين جناب mahdi_107 !
عالي بود
با تشكر