ms-access - que - formulario modal access

¿Cómo se muestran las propiedades del formulario en un cuadro de mensaje?

Question

Tengo el siguiente código, que debe recorrer todos los formularios del proyecto, y dar un cuadro de mensaje con la configuración para cada formulario. Sé que el ciclo es correcto, porque utilizo el bucle en otro lugar y acabo de copiarlo. ¿Por qué está el mensaje en blanco?

 For Each frm In CurrentProject.AllForms
DoCmd.OpenForm frm.Name, acDesign
mess = "Form: " & frm.Name & vbCrLf & " Allow Addition: " & CStr(frm.AllowAdditions) & vbCrLf & "Allow Deletions: " & CStr(frm.AllowDeletions) & vbCrLf & " Allow Edit: " & CStr(frm.AllowEdits)
MsgBox (mess)
DoCmd.Close acForm, frm.Name, acSaveYes
Next frm
Set frm = Nothing

Con los consejos de Remou, obtuve lo siguiente para trabajar:

 For Each frm In CurrentProject.AllForms
DoCmd.OpenForm frm.Name, acDesign
Set frm = Forms(frm.Name)
mess = "Form: " & frm.Name & vbCrLf & " Allow Addition: " & CStr(frm.AllowAdditions) & vbCrLf & "Allow Deletions: " & CStr(frm.AllowDeletions) & vbCrLf & " Allow Edit: " & CStr(frm.AllowEdits)
MsgBox (mess)
DoCmd.Close acForm, frm.Name, acSaveNo
Next frm
Set frm = Nothing

Answer 1

No puede acceder a las propiedades del formulario sin abrir el formulario. Solo debe usar Establecer con objetos, no con cadenas.

Consulte Access 2010: ¿Qué control de formulario desencadena una macro?

For Each f In CurrentProject.AllForms
DoCmd.OpenForm f.Name, acDesign
Set frm = Forms(f.Name)
mess = "Form: " & frm.Name & vbCrLf
mess = mess & " Allow Addition: " & CStr(frm.AllowAdditions) & vbCrLf
mess = mess & "Allow Deletions: " & CStr(frm.AllowDeletions) & vbCrLf
mess = mess & " Allow Edit: " & CStr(frm.AllowEdits)
MsgBox mess
DoCmd.Close acForm, f.Name, acSaveNo
Next