here goes your code ->
You will need a form and
-> Combobox - cmbTables
-> ListView - lstField
-> Text Box - txtdesc
'==== First for getting Table Names
Public Sub FillTable()
'==== Fill the Combo with all the Tables ====
Dim TDef As Long
Do While dbEditor.TableDefs.Count <> TDef
If dbEditor.TableDefs(TDef).Attributes = 0 Then
'Attributes 0 are not system tables, so we only take those ones
cmbTables.AddItem dbEditor.TableDefs(TDef).Name
End If
TDef = TDef + 1
Loop
End Sub
'==== Secondly for getting the Filed Names
Private Sub cmbTables_Click()
Dim rsField As Recordset
Dim ctrFld As Long
Dim lt As ListItem
Dim Desc As String
If cmbTables.Text <> "" Then
lstField.GridLines = True
lstField.ListItems.Clear
lstField.ColumnHeaders.Add , , "FIELDS"
lstField.ColumnHeaders.Add , , "DESCRIPTION"
lstField.HotTracking = True
Set rsField = dbEditor.OpenRecordset(cmbTables, dbOpenTable)
Do While rsField.Fields.Count <> ctrFld
Set lt = lstField.ListItems.Add(, , rsField.Fields(ctrFld).Name)
Desc = rsField.Fields(ctrFld).Properties("Description"

lt.SubItems(1) = Desc
ctrFld = ctrFld + 1
Loop
txtDesc.Text = dbEditor.TableDefs(cmbTables).Properties("Description"

End If
=======================================================
If u have any doubts just write in ......
Regards
Niraj
![[noevil] [noevil] [noevil]](/data/assets/smilies/noevil.gif)