چطوری میشه فهمید که چه فیلدهایی کلید هستن(Extended Property)

[ali682344]

سلام دوستان
من می خوام با کد نویسی فیلدا رو چک کنم و بفهمم که کدوماش کلیدن:متفکر::متفکر:

من تا اینجا فهمیدم که هر فیلدی دارای یه سری خصوصیاته که بهش می گن Extended Property
ولی دقیقا نمی دونم چطور با کد بهشون دسترسی پیدا کنم

:افسرده::افسرده:

[Abbas Amiri]

از تابع زیر استفاده کنید:


Public Function IndexFieldType(tdf As DAO.TableDef, strField As String) As String
Dim ind As DAO.Index 'Each index of this table.
Dim fld As DAO.Field 'Each field of the index
Dim strReturn As String 'Return string
strReturn = "none"
For Each ind In tdf.Indexes
For Each fld In ind.Fields
If fld.Name = strField Then
If ind.Primary Then
strReturn = "Primary"
ElseIf ind.Unique Then
strReturn = "Unique"
Else
strReturn = "Index"
End If
End If
Next
Next

IndexFieldType = strReturn
End Function

مثال:
myVar = IndexFieldType(currentdb.TableDefs ("Table1"),"ID")