To change the default properties for controls in forms and reports using VBA you can use the code below. For example, if you decide to change the default font or font size in your application, rather than manually opening each form and changing the defaults you can loop throught the AllForms collection, open each form in design view, change the defaults and save the form.
Colin Riddington has instructions to do this manually at
Here is the procedure to iterate your All Forms Collection
Public Sub FormDefaultControl_Update() Dim obj As Object, frm As Form Dim strFormName As String For Each obj In Application.CurrentProject.AllForms strFormName = obj.Name DoCmd.OpenForm strFormName, acDesign, , , , acHidden Set frm = Forms(strFormName) DefaultControlProperties_Update frm DoCmd.Close acForm, strFormName, acSaveYes Next obj End Sub
Which Calls the procedure to change the control defaults
Public Sub DefaultControlProperties_Update(frm As Form) Dim ctl As control Set ctl = frm.DefaultControl(acTextBox) With ctl .Properties("FontName") = "Calibri (Detail)" .Properties("FontSize") = "11" End With Set ctl = frm.DefaultControl(acComboBox) ctl.Properties("FontName") = "Calibri (Detail)" ctl.Properties("FontSize") = "11" End Sub