Change Change FormHeader Color

[burrina]

Default for form is to NOT allow edits. Check213 is a CheckBox on my form
The code below is run when it is checked.


I want to change the FormHeader Color back when the checkbox is Unchecked.
Back to Cornflower


Me.AllowEdits = True 'Allows Edits
Me.FormHeader.BackColor = vbRed 'Changes color to red





booWhatever = Me.Check213 'This is run on the OnCurrentEvent of the main form.It is my Default.
If booWhatever Then
FormHeader.BackColor = colorBlue_Cornflower

End If

[June7]

So what is the issue? Is this code not working - error message, wrong results, nothing happens?

What is colorBlue_Cornflower - a user defined constant?

[burrina]

What is NOT working is that it does not upon unchecking the checkbox set the forms mode to NOT allow editing.

booWhatever = Me.Check213 On OnCurrentEvent of main form. Sets parameter for checkbox


booWhatever = Me.Check213
If booWhatever Then
FormHeader.BackColor = colorBlue_Cornflower 'Color set by code in mod.
Label217.Caption = "Edits NOT Allowed" 'Captions work correctly
Me.AllowEdits = True

Else
FormHeader.BackColor = colorTan_Encarnacion
Label217.Caption = "Edits Allowed"
Me.AllowEdits = True

End If

[June7]

Maybe the first AllowEdits should be

Me.AllowEdits = False

Once that code executes, won't be able to change the checkbox value.

[burrina]

Thanks, I knew it was something simple,just could not think. BTW, it took me over 2 1/2 days but I finished writing the complete help file for the db with the user being able to edit as they wish. Brain dead after all that.

Thanks, that worked.