D
DanJ
Does anyone know if it is possible to read the 'tag' property of all forms
using the AllForms collection? I am tryng to add forms to a picklist that
have a 'custom' tag. There are hundreds of forms to check and I would prefer
not to open each one to use the Forms collection to read those that have the
custom tag. The following code produces error 438 Object doesn't support
this property or method:
Dim strObjectList As String
Dim dbs As Object
Dim obj As AccessObject
Set dbs = Application.CurrentProject
For Each obj In dbs.AllForms
If InStr(dbs.AllForms(obj.Name).Tag, "Custom") > 0 Then
strObjectList = strObjectList & obj.Name & ";Form;"
End If
Next obj
.....
using the AllForms collection? I am tryng to add forms to a picklist that
have a 'custom' tag. There are hundreds of forms to check and I would prefer
not to open each one to use the Forms collection to read those that have the
custom tag. The following code produces error 438 Object doesn't support
this property or method:
Dim strObjectList As String
Dim dbs As Object
Dim obj As AccessObject
Set dbs = Application.CurrentProject
For Each obj In dbs.AllForms
If InStr(dbs.AllForms(obj.Name).Tag, "Custom") > 0 Then
strObjectList = strObjectList & obj.Name & ";Form;"
End If
Next obj
.....