กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
200 1
URL.หัวข้อ /
URL
How do I programmatically check for the existence of an index?
ถามไว้ที่ http://www.utteraccess.com/forums/showflat.php?Cat=&Board=access_97&Number=207460&Forum=All_Forums&Words=TimK&Match=Username&Searchpage=0&Limit=25&Old=allposts&Main=207142&Search=true#Post207460
เขาต้องการที่แสดงชื่อฟีลด์ต่างๆ ของแต่ละตารางที่กำหนดให้เป็น Index
ผมลองให้โค้ดเขาไปดังนี้ครับ
code:
--------------------------------------------------------------------------------
Sub ShowIndex()
Dim dbs As Database
Dim tdf As TableDef
Dim idx As Index
Set dbs = CurrentDb
For Each tdf In dbs.TableDefs
If Left(tdf.Name, 4) <> "MSys" Then
Debug.Print tdf.Name
For Each idx In tdf.Indexes
Debug.Print " --> " & idx.Name & " --> " & idx.Fields
Next
Debug.Print "----------"
End If
Next
dbs.Close
Set dbs = Nothing
End Sub
--------------------------------------------------------------------------------
เขาต้องการที่แสดงชื่อฟีลด์ต่างๆ ของแต่ละตารางที่กำหนดให้เป็น Index
ผมลองให้โค้ดเขาไปดังนี้ครับ
code:
--------------------------------------------------------------------------------
Sub ShowIndex()
Dim dbs As Database
Dim tdf As TableDef
Dim idx As Index
Set dbs = CurrentDb
For Each tdf In dbs.TableDefs
If Left(tdf.Name, 4) <> "MSys" Then
Debug.Print tdf.Name
For Each idx In tdf.Indexes
Debug.Print " --> " & idx.Name & " --> " & idx.Fields
Next
Debug.Print "----------"
End If
Next
dbs.Close
Set dbs = Nothing
End Sub
--------------------------------------------------------------------------------
1 Reply in this Topic. Dispaly 1 pages and you are on page number 1
1 @R06708
Time: 0.0540s
