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 propoerty like DB.Forms like DB.TableDfes
Any ideas?
Cheers!
ÙÇãá
It's important to learn the rules so that you know how to break them.
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 propoerty like DB.Forms like DB.TableDfes
Any ideas?
Cheers!
ÙÇãá
It's important to learn the rules so that you know how to break them.