Noname > 29-08-10, 06:13 PM
Private Sub Listofforms_enter()
Dim MyDb as Database
Dim MyContainer as Container
Dim I as integer
Dim list as string
Set MyDb = DBEngine.Workspace(0).Database(0)
Set My Container = MyDb.Containers("Forms")
List = " "
For I=0 to MyContainer.Documents.count - 1
List = List & MyContainer.Documents(I).name & ";"
Next I
me![List of Forms].Row Suorce = Left(List, Len(list)-1)
End sub
Private Sub ListofForms_AfterUpdate()
Docmd.OpenForm me![ListofForms)
End Sub
nhattiensinh > 21-01-11, 08:36 PM