> Also added a color pick dialog and saved the result so users can
> specify their own color preference.
So now, let them change all your forms. Build a dialog box to run this code
(changing the hardcoded backcolor to a variable)
Public Sub SetBackColor()
' Arvin Meyer 2/11/2007
On Error GoTo Error_Handler
Dim doc As DAO.Document
Dim db As DAO.Database
Dim frm As Form
Set db = CurrentDb
For Each doc In db.Containers("Forms").Documents
DoCmd.OpenForm doc.Name, acDesign
Set frm = Forms(doc.Name)
frm.Picture = "(none)"
On Error Resume Next
frm.Section(0).BackColor = 16777215
frm.Section(1).BackColor = 16777215
frm.Section(2).BackColor = 16777215
DoEvents
DoCmd.Close acForm, doc.Name, acSaveYes
Next
Exit_Here:
Set doc = Nothing
Set db = Nothing
Exit Sub
Error_Handler:
MsgBox Err.Number & ": " & Err.Description, vbOKOnly, "Error"
Resume Exit_Here
End Sub

Signature
Arvin Meyer, MCP, MVP
http://www.datastrat.com
http://www.mvps.org/access
http://www.accessmvp.com
(PeteCresswell) - 18 Feb 2008 01:37 GMT
Per Arvin Meyer [MVP]:
>So now, let them change all your forms. Build a dialog box to run this code
>(changing the hardcoded backcolor to a variable)
Defeats the purpose of the color. Client wanted two of the
subforms tb set off from the rest as a logical unit ("Trades" and
"Payments" - money going in/out, I guess....)
Only reason I put the picker in is that past experience suggests
to me that one person's favorite color nauseates another.
Normally I'm extremely sparing with color.... tending towards
varying shades of grey when/if needed.
But for this big splotch.... I just figure one person's gonna
demand, say, lavender... and their replacement or colleague is
going to say they can't stand looking at lavender.

Signature
PeteCresswell