Open a form, format the fonts and close it : Form « Forms « VBA / Excel / Access / Word

Open a form, format the fonts and close it

Sub PermanentFormFonts (strFont As String)

    Dim objAO        As AccessObject  
    Dim objCP        As Object        
    Dim ctlControl    As Control      

    Set objCP = Application.CurrentProject

    For Each objAO In objCP.AllForms
        DoCmd.OpenForm objAO.Name, acDesign, , , , acHidden
        For Each ctlControl In objAO.Controls
            ctlControl.FontName = strFont
        DoCmd.Close acForm, objAO.Name

End Sub


Related examples in the same category

1.Change caption
2.Display form in Modal mode
3.Close a form
4.To remove the Userform from the computer's memory, you must use the Unload statement; otherwise, the Userform is only hidden.
5.Creating UserForms Programmatically
6.Adding Controls to a UserForm at Design Time
7.Output form to html file
8.Using the Show Method to Display a Form
9.Loading a Form into Memory Prior to Displaying It
10.Cancels a cancelable event (an event that has a Cancel parameter).
11.Format fonts
12.Form count