adding more fields to code

G

Guest

Private Sub Form_Current()
‘If diverted color red.
I would like to add to fields [field2] and [field3] to this code and have it
do the same as field1
How do i do this?

If [field1] >= 0 Then
[lblBoxMsg].Visible = True
[field1].ForeColor = 255

Else

[lblBoxMsg].Visible = False
[field1].ForeColor = 0

Octet
 
G

Guest

Put an End If at the end of the code you provided and then begin another If
statement ending with an End If for Field2. Continue for each of the fields.

Hope this helps
 
G

Guest

Works Great
Thanks Jackie

Jackie L said:
Put an End If at the end of the code you provided and then begin another If
statement ending with an End If for Field2. Continue for each of the fields.

Hope this helps

Octet32 said:
Private Sub Form_Current()
‘If diverted color red.
I would like to add to fields [field2] and [field3] to this code and have it
do the same as field1
How do i do this?

If [field1] >= 0 Then
[lblBoxMsg].Visible = True
[field1].ForeColor = 255

Else

[lblBoxMsg].Visible = False
[field1].ForeColor = 0

Octet
Click to expand...
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Help writing simpler macro? 1
Issue setting form field visible = false 1
Adding Expressions or Criteria or Lookup to a table 3
Adding monthly records to quarterly 2
Adding multiple fields in a single record in access 2k 1
DSum update query with multiple fields 0
Auto Fill Form Fields Type Mismatch Error 2
Possible to link fields in a form to narrow selections? 4

Top