Bom dia!
tem como criar algo para alterar cor de fundo dos formulários todos de uma vez só?
tem como criar algo para alterar cor de fundo dos formulários todos de uma vez só?
Sub MudaFundo()
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' código criado por Alexandre Neves, do Fórum MaximoAccess '
' utilize o código livremente mas mantenha os créditos '
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
For Each frm In Application.CurrentProject.AllForms
DoCmd.OpenForm frm.Name, acDesign
frm.BackColor = CorPretendida
DoCmd.Close acForm, frm.Name, acSaveYes
Next
End Sub