04-03-2010, 16:37
bu kod
Microsoft Access 2003 Language Reference
yardım dosyasında bulduğum bir kod
ne işe yarıyor acaba
sanki tüm formlardaki nesneleri listeliyor
ama nasıl kullanılacak örnekle açıklayabilirmisiniz
Sub AllForms()
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentProject
' Search for open AccessObject objects in AllForms collection.
For Each obj In dbs.AllForms
If obj.IsLoaded = True Then
' Print name of obj.
Debug.Print obj.Name
End If
Next obj
End Sub
Microsoft Access 2003 Language Reference
yardım dosyasında bulduğum bir kod
ne işe yarıyor acaba
sanki tüm formlardaki nesneleri listeliyor
ama nasıl kullanılacak örnekle açıklayabilirmisiniz
Sub AllForms()
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentProject
' Search for open AccessObject objects in AllForms collection.
For Each obj In dbs.AllForms
If obj.IsLoaded = True Then
' Print name of obj.
Debug.Print obj.Name
End If
Next obj
End Sub


