blink

  • Thread starter Thread starter mer
  • Start date Start date
is there anyway to make a backcolor or forecolor or
border blink on and off?
Click to expand...

You're sure you want to do this?

Set the Form's Timer Interval property to 1000

Code the Form's Timer event:
If [ControlName].BackColor = vbWhite Then
[ControlName].BackColor = vbRed
[ControlName].ForeColor = vbYellow
Else
[ControlName].BackColor = vbWhite
[ControlName].ForeColor = vbBlack
End If

Use very sparingly as it becomes annoying very quickly.
 
Thanks for your most complete answer..........and good
advice about the "annoying aspect".


-----Original Message-----
is there anyway to make a backcolor or forecolor or
border blink on and off?
Click to expand...

You're sure you want to do this?

Set the Form's Timer Interval property to 1000

Code the Form's Timer event:
If [ControlName].BackColor = vbWhite Then
[ControlName].BackColor = vbRed
[ControlName].ForeColor = vbYellow
Else
[ControlName].BackColor = vbWhite
[ControlName].ForeColor = vbBlack
End If

Use very sparingly as it becomes annoying very quickly.
--
Fred
Please only reply to this newsgroup.
I do not reply to personal email.
.
Click to expand...
 
Would this work? I don't see anything flashing on form view
Code the Form's Timer event:
Click to expand...

For each ctl in me.controls
if ctl.Tag = "checkred" then
if isnull(ctl.value) then
If Ctl.BackColor = vbblack Then
Ctl.BackColor = vbRed
Ctl.backColor = vbblack
Else if ctl.backcolor = vbred then
Ctl.BackColor = vbblack
Ctl.backColor = vbred
Click to expand...
else
ctl.backcolor = vbwhite
End If
end if
end if
end if

Nextctl

end sub
 
forget it, i just figured it out
-----Original Message-----
is there anyway to make a backcolor or forecolor or
border blink on and off?
Click to expand...

You're sure you want to do this?

Set the Form's Timer Interval property to 1000

Code the Form's Timer event:
If [ControlName].BackColor = vbWhite Then
[ControlName].BackColor = vbRed
[ControlName].ForeColor = vbYellow
Else
[ControlName].BackColor = vbWhite
[ControlName].ForeColor = vbBlack
End If

Use very sparingly as it becomes annoying very quickly.
--
Fred
Please only reply to this newsgroup.
I do not reply to personal email.
.
Click to expand...
 
Fred,

Thanks, it works well and I am using it limitedly.

If you 'll permit me a follow-up.

Question 1:

Can I set it up to blink only if the form is on a new
record? I tried without success:
Sub Form_timer()

as a subroutine rather than a Private Sub and called
Sub Form_timer() from my COMMANDbutton_newrecord.

COMMANDbutton_newrecord
Sub Form_timer()

but fields blinked when I moved on to existing records.


Question 2:

Likewise, could I set up a commandbutton that if clicked
would get the fields blinking and another commandbutton to
stop them....I think the answer to this one is the same as
the previous Question 1 above.


-----Original Message-----
is there anyway to make a backcolor or forecolor or
border blink on and off?
Click to expand...

You're sure you want to do this?

Set the Form's Timer Interval property to 1000

Code the Form's Timer event:
If [ControlName].BackColor = vbWhite Then
[ControlName].BackColor = vbRed
[ControlName].ForeColor = vbYellow
Else
[ControlName].BackColor = vbWhite
[ControlName].ForeColor = vbBlack
End If

Use very sparingly as it becomes annoying very quickly.
--
Fred
Please only reply to this newsgroup.
I do not reply to personal email.
.
Click to expand...
 
Fred,

Thanks, it works well and I am using it limitedly.

If you 'll permit me a follow-up.

Question 1:

Can I set it up to blink only if the form is on a new
record? I tried without success:
Sub Form_timer()

as a subroutine rather than a Private Sub and called
Sub Form_timer() from my COMMANDbutton_newrecord.

COMMANDbutton_newrecord
Sub Form_timer()

but fields blinked when I moved on to existing records.

Question 2:

Likewise, could I set up a commandbutton that if clicked
would get the fields blinking and another commandbutton to
stop them....I think the answer to this one is the same as
the previous Question 1 above.
-----Original Message-----
is there anyway to make a backcolor or forecolor or
border blink on and off?
Click to expand...

You're sure you want to do this?

Set the Form's Timer Interval property to 1000

Code the Form's Timer event:
If [ControlName].BackColor = vbWhite Then
[ControlName].BackColor = vbRed
[ControlName].ForeColor = vbYellow
Else
[ControlName].BackColor = vbWhite
[ControlName].ForeColor = vbBlack
End If

Use very sparingly as it becomes annoying very quickly.
--
Fred
Please only reply to this newsgroup.
I do not reply to personal email.
.
Click to expand...
Click to expand...

Use the timer event.
Add the 2 lines indicated with *** below:

If Me.NewRecord = True then ' ***
If [ControlName].BackColor = vbWhite Then
[ControlName].BackColor = vbRed
[ControlName].ForeColor = vbYellow
Else
[ControlName].BackColor = vbWhite
[ControlName].ForeColor = vbBlack
End If
End If ' ***
 
That's easy!!!!
Awesome, you're the man........thanks

-----Original Message-----
Fred,

Thanks, it works well and I am using it limitedly.

If you 'll permit me a follow-up.

Question 1:

Can I set it up to blink only if the form is on a new
record? I tried without success:
Sub Form_timer()

as a subroutine rather than a Private Sub and called
Sub Form_timer() from my COMMANDbutton_newrecord.

COMMANDbutton_newrecord
Sub Form_timer()

but fields blinked when I moved on to existing records.

Question 2:

Likewise, could I set up a commandbutton that if clicked
would get the fields blinking and another commandbutton to
stop them....I think the answer to this one is the same as
the previous Question 1 above.
-----Original Message-----
On Tue, 1 Jun 2004 12:23:22 -0700, mer wrote:

is there anyway to make a backcolor or forecolor or
border blink on and off?

You're sure you want to do this?

Set the Form's Timer Interval property to 1000

Code the Form's Timer event:
If [ControlName].BackColor = vbWhite Then
[ControlName].BackColor = vbRed
[ControlName].ForeColor = vbYellow
Else
[ControlName].BackColor = vbWhite
[ControlName].ForeColor = vbBlack
End If

Use very sparingly as it becomes annoying very quickly.
--
Fred
Please only reply to this newsgroup.
I do not reply to personal email.
.
Click to expand...
Click to expand...

Use the timer event.
Add the 2 lines indicated with *** below:

If Me.NewRecord = True then ' ***
If [ControlName].BackColor = vbWhite Then
[ControlName].BackColor = vbRed
[ControlName].ForeColor = vbYellow
Else
[ControlName].BackColor = vbWhite
[ControlName].ForeColor = vbBlack
End If
End If ' ***

--
Fred
Please only reply to this newsgroup.
I do not reply to personal email.
.
Click to expand...
 
Back
Top