Aquí lles mando un código que yo considero muy útil, sirve para dar
propiedades a TODOS los formularios de la aplicación, por ejemplo que sean
modales o con autocentro.
Solo se debe quitar la comilla inicial en las líneas intermedias y establer
las propiedades que se deseen.
Espero que les sirva.
También les deseo a todos un MUY FELIZ AÑO 2003 !!! y aprovecho de agradecer
todas las respuestas que he recibido cuando he necesitado ayuda.
Gracias a todos (No es despedida mía, sólo del año 2002 )
:-)

Sub TodosLosFormularios()
    Dim obj As AccessObject
    Dim Proj As CurrentProject
    Dim frm As Form
    Set Proj = Application.CurrentProject
    For Each obj In Proj.AllForms
      'Debug.Print "  " & objAcObj.Name
      DoCmd.OpenForm obj.Name, acDesign
                    For Each frm In Forms
                      'Debug.Print frm.Name               ' Muestra el nombre del formulario en la ventana inmediato
                      'frm.HelpFile = "CONTROL.hlp"       ' Estas líneas pueden controlar TODAS las propiedades de los formularios
                      frm.Modal = False                   ' Basta con quitar el apóstrofe
                      'frm.AutoCenter = True
                      'frm.HelpContextId = 1000
                      frm.Toolbar = "Botones1"
                    Next frm
      DoCmd.Close acForm, obj.Name, acSaveYes
    Next obj
End Sub

TatanMax

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)