Controls and Errors : Form Control « Forms « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Forms
  3. Form Control

Controls and Errors

 
    Sub FormFonts(strFont As String)
       On Error GoTo FormFonts_Err
       Dim frmCurrent As Form
       Dim ctlControl As Control
    
       For Each frmCurrent In Forms
          For Each ctlControl In frmCurrent.Controls
             ctlControl.FontName = strFont
           Next
        Next
     
FormFonts_Exit:
        Exit Sub
     
FormFonts_Err:
        If Err.Number = 438 Then
           Resume Next
        Else
           MsgBox Err.Description
           Resume FormFonts_Exit
        End If
End Sub








Related examples in the same category

1.Intrinsic Constant Type of Control
2.Determining the Type of a Control
3.Manipulating a Single Control
4.With...End With construct is often used along with the For Each...Next construct
5.The With...End With statement executes a series of statements on a single object or user-defined type
6.The For Each...Next statement executes a group of statements on each member of an array or collection
7.Change fonts of controls on a form
8.change control back ground color
9.Control Types