Accessing Form Properties Externally

[Paul]

I have a number of MS databases (MDBs). I have written a program that
will loop through each database and get information from it. I was
able to get the information I needed of all queries within each
database. However, I cannot get the information I need for the forms.
Specifically I need to know the values of the AllowAdditions,
AllowEdits and AllowDeletions properties for each form.

Below is what I started doing. But it doesn't give me what I want.

For i = 0 To (db.Containers("Forms").Documents.Count - 1)
If (Len(db.Containers("Forms").Documents(i).Propertie s("RecordSource"))

0) Then

l_Action = ""
If (db.Containers("Forms").Documents(i).Properties("A llowAdditions").Value
= True) Then
l_Action = "AllowAdditions = True"
End If
If (db.Containers("Forms").Documents(i).Properties("A llowDeletions").Value
= True) Then
l_Action = "AllowDeletions = True"
End If
If (db.Containers("Forms").Documents(i).Properties("A llowEdits").Value
= True) Then
l_Action = "AllowEdits = True"
End If
If (l_Action <> "") Then
rs.AddNew
rs![AppName] = AppName
rs![ObjectName] =
db.Containers("Forms").Documents(i).Name
rs![ObjectType] = "FORM"
rs![Action] = l_Action
rs![SQLStatement] = db.QueryDefs(i).SQL
rs.Update
End If
End If
Next

[Salad]

Paul wrote:

I have a number of MS databases (MDBs). I have written a program that
will loop through each database and get information from it. I was
able to get the information I needed of all queries within each
database. However, I cannot get the information I need for the forms.
Specifically I need to know the values of the AllowAdditions,
AllowEdits and AllowDeletions properties for each form.

Below is what I started doing. But it doesn't give me what I want.

For i = 0 To (db.Containers("Forms").Documents.Count - 1)
If (Len(db.Containers("Forms").Documents(i).Propertie s("RecordSource"))

0) Then

l_Action = ""
If (db.Containers("Forms").Documents(i).Properties("A llowAdditions").Value
= True) Then
l_Action = "AllowAdditions = True"
End If
If (db.Containers("Forms").Documents(i).Properties("A llowDeletions").Value
= True) Then
l_Action = "AllowDeletions = True"
End If
If (db.Containers("Forms").Documents(i).Properties("A llowEdits").Value
= True) Then
l_Action = "AllowEdits = True"
End If
If (l_Action <> "") Then
rs.AddNew
rs![AppName] = AppName
rs![ObjectName] =
db.Containers("Forms").Documents(i).Name
rs![ObjectType] = "FORM"
rs![Action] = l_Action
rs![SQLStatement] = db.QueryDefs(i).SQL
rs.Update
End If
End If
Next

Here's a sample you can modify
Public Sub FormsAllow()
Dim dbs As Database
Dim doc As Document
Dim frm As Form

Set dbs = CurrentDb

With dbs.Containers!Forms
For Each doc In .Documents
DoCmd.OpenForm doc.Name, acDesign, , , , acHidden
Set frm = Forms(doc.Name)
debug.print frm.Name,frm.AllowAdditions
Set frm = Nothing
DoCmd.Close acForm, doc.Name
Next doc
End With

MsgBox "Done. View immediate window for results"
End Sub