Change background colour of field on form

[Robin Chapple]

I have a membership database where the Partner name is recorded if
there is a partner. We also record partner birthday so that we can
send birthday greetings.

Some of our members record partner name but forget to enter the
birthday.

On the form I need to change the background colour of the [pname]
field if the [pbornday] field is blank probably using the form
OnCurrent event.

Is this possible?

Thanks,

Robin Chapple

 

[Ed Warren]

Try:

OnCurrentEvent

if me.pbonday.text = null then
me.pname.background = vbRed
end if

Or you can make the pbornday field a required field in the table and they
can't save a record without a date.

Hope this helps

Ed Warren

 

[fredg]

I have a membership database where the Partner name is recorded if
there is a partner. We also record partner birthday so that we can
send birthday greetings.

Some of our members record partner name but forget to enter the
birthday.

On the form I need to change the background colour of the [pname]
field if the [pbornday] field is blank probably using the form
OnCurrent event.

Is this possible?

Thanks,

Robin Chapple

Robbin,

You can do this in the [pname] control's Conditional Formatting property
if you are using Access 2000 or later:
Select the [pname] control.
click Format + Conditonal formatting.
Set the Condition1 drop-down to
Expression Is
In the text box along side this drop-down, write:
IsNull([pbornday])

Select the colors.
Save the change.

The below code will work for all versions.
In the Form's Current event, as well as in the [pbornday] AfterUpdate
event (change the colors as desired):

If IsNull([pbornday] Then
[pname].backcolor = vbRed
[pname].forecolor = vbYellow
Else
[pname].backcolor = vbWhite
[pname].forecolor = vbBlack
End If

 

[Robin Chapple]

Fred,

The below code will work for all versions.
In the Form's Current event, as well as in the [pbornday] AfterUpdate
event (change the colors as desired):

If IsNull([pbornday] Then
[pname].backcolor = vbRed
[pname].forecolor = vbYellow
Else
[pname].backcolor = vbWhite
[pname].forecolor = vbBlack
End If

As predicted I tried this and had this error message:

"" Run time error 438
Object does not support this property or method ""

Robin

 

[Robin Chapple]

Fred,

Thanks. I was unaware of the conditional formatting option. That will
get used in the future.

The scheme works well but I need to ignore the colour change if there
is not a partner name mentioned.

I have tried this and other variations without success:

IsNull([spbornday]) And ([spname]) Is Not Null

The field names are different from my original question.

Thanks,

Robin

Robbin,

You can do this in the [pname] control's Conditional Formatting property
if you are using Access 2000 or later:
Select the [pname] control.
click Format + Conditonal formatting.
Set the Condition1 drop-down to
Expression Is
In the text box along side this drop-down, write:
IsNull([pbornday])

Select the colors.
Save the change.

The below code will work for all versions.
In the Form's Current event, as well as in the [pbornday] AfterUpdate
event (change the colors as desired):

If IsNull([pbornday] Then
[pname].backcolor = vbRed
[pname].forecolor = vbYellow
Else
[pname].backcolor = vbWhite
[pname].forecolor = vbBlack
End If

I have a membership database where the Partner name is recorded if
there is a partner. We also record partner birthday so that we can
send birthday greetings.

Some of our members record partner name but forget to enter the
birthday.

On the form I need to change the background colour of the [pname]
field if the [pbornday] field is blank probably using the form
OnCurrent event.

Is this possible?

Thanks,

Robin Chapple

 

[Robin Chapple]

Ed,

I'm trying all suggestions.

Error message:

"" You can't reference a property or method for a control unless the
control has the focus ""

Robin

Try:

OnCurrentEvent

if me.pbonday.text = null then
me.pname.background = vbRed
end if

Or you can make the pbornday field a required field in the table and they
can't save a record without a date.

Hope this helps

Ed Warren

I have a membership database where the Partner name is recorded if
there is a partner. We also record partner birthday so that we can
send birthday greetings.

Some of our members record partner name but forget to enter the
birthday.

On the form I need to change the background colour of the [pname]
field if the [pbornday] field is blank probably using the form
OnCurrent event.

Is this possible?

Thanks,

Robin Chapple

 

[Ed Warren]

I think Fred's answer is much better, I would us it.

Ed Warren.

 

[Fredg]

Robbin,
Sorry, I left off a parenthesis,
(though that gives me a different error description).
Try:

If IsNull([pbornday]) Then
[pname].backcolor = vbRed
[pname].forecolor = vbYellow
Else
[pname].backcolor = vbWhite
[pname].forecolor = vbBlack
End If


--
Fred

Please reply only to this newsgroup.
I do not reply to personal e-mail.

Fred,

The below code will work for all versions.
In the Form's Current event, as well as in the [pbornday] AfterUpdate
event (change the colors as desired):

If IsNull([pbornday] Then
[pname].backcolor = vbRed
[pname].forecolor = vbYellow
Else
[pname].backcolor = vbWhite
[pname].forecolor = vbBlack
End If

As predicted I tried this and had this error message:

"" Run time error 438
Object does not support this property or method ""

Robin

 

[Fredg]

Robbin,
The Conditional Formatting only changes formatting
when the condition is met.
Did you set the Default Formatting for when the condition is NOT met?

I just ran a test of your expression...
IsNull([spbornday]) And ([spname]) Is Not Null
If a name is entered in the [spname] field AND the [spbornday] is null,
the spname field changes color.
Enter a [spbornday] and the color changes back to the default.
or...
Remove the [spname], and the color changes to the default.

--
Fred

Please reply only to this newsgroup.
I do not reply to personal e-mail.

Fred,

Thanks. I was unaware of the conditional formatting option. That will
get used in the future.

The scheme works well but I need to ignore the colour change if there
is not a partner name mentioned.

I have tried this and other variations without success:

IsNull([spbornday]) And ([spname]) Is Not Null

The field names are different from my original question.

Thanks,

Robin

Robbin,

You can do this in the [pname] control's Conditional Formatting property
if you are using Access 2000 or later:
Select the [pname] control.
click Format + Conditonal formatting.
Set the Condition1 drop-down to
Expression Is
In the text box along side this drop-down, write:
IsNull([pbornday])

Select the colors.
Save the change.

The below code will work for all versions.
In the Form's Current event, as well as in the [pbornday] AfterUpdate
event (change the colors as desired):

If IsNull([pbornday] Then
[pname].backcolor = vbRed
[pname].forecolor = vbYellow
Else
[pname].backcolor = vbWhite
[pname].forecolor = vbBlack
End If

I have a membership database where the Partner name is recorded if
there is a partner. We also record partner birthday so that we can
send birthday greetings.

Some of our members record partner name but forget to enter the
birthday.

On the form I need to change the background colour of the [pname]
field if the [pbornday] field is blank probably using the form
OnCurrent event.

Is this possible?

Thanks,

Robin Chapple

 

[Robin Chapple]

Thanks Fred,

That is working just as you described.

Robin