form description (1 Viewer)

[aqif]

Hi

I am trying to get a list of forms from an external database. I have already written a code to get list of tables which looks like this

Dim extDB As DAO.Database
Dim Tdf As DAO.TableDef
Dim frm As Form
Dim strMsg As String
Dim strTN As String

Set extDB = DBEngine.Workspaces(0).OpenDatabase("c:\MY_Data.mdb")

For Each Tdf In extDB.TableDefs

If Tdf.Name Like "MSys*" Then
Else
strTN = Tdf.Name
strMsg = strMsg & vbCrLf & Left(Tdf.Name & " ", 25) & " table - " & Nz(extDB.TableDefs(strTN).Properties("Description"), " ")
End If

Next


Me.Text1 = strMsg


I want same sort of code to give me list of form and its description. It appears that there is not property like DB.Forms like DB.TableDfes. Also Frm.Properties("Description") is not working either.

Any ideas?

Cheers!
ÙÇãá

It's important to learn the rules so that you know how to break them.