Changing Forecolor on form

[dvgef2]

Good Morning Everyone,



I am a beginners level at best and I am trying to make a loop where the font colors on a form will be certain colors when loading based on a condition of whether the field 'ContrName(X)' is empty or has text. Most of my fields are categorized by the same name with a different number to distinguish between them. I have evolved into a complicated mess and it still states it can't find the fields even though when you do a watch of the variables it states the field name perfectly. I know most of this in the programming is probably unnecessary but I was trying to help the computer find these fields which it will not find even when I put the horse in the water. This computer is more stubborn than me and that is saying something.....does anyone see why it cannot find these fields?

Thanks for this site and any help somebody could offer,
Dave



Private Sub Form_Load()
Dim X As Integer
Dim S As String
Dim T As String
Dim U As String
Dim V As String

For X = 1 To 10
S = "ContrName" & CStr(X)
T = "Qty" & CStr(X)
U = "UnitCost" & CStr(X)
V = "calLabor" & CStr(X)

If IsNull(S) Then
Me![T].ForeColor = RGB(230, 237, 215)
Me![U].ForeColor = RGB(230, 237, 215)
Me![V].ForeColor = RGB(230, 237, 215)
Else
Me![T].ForeColor = RGB(186, 20, 25)
Me![U].ForeColor = RGB(186, 20, 25)
Me![V].ForeColor = RGB(186, 20, 25)
End If
Next X
End Sub

[orange]

see this for alternative

[dvgef2]

Thank you for your response! I have been using the conditional formatting but there are too many fields and I was looking for a better way. It doesn't seem like it should be this hard but I have been working with this on and off for several weeks. I would eventually like to get rid of all the conditional formatting and replace it with code if I can at some point get this to work. Thanks again for your assistance. Dave

[orange]

Can you post a copy of your database? zip it

[dvgef2]

I wish I could post it but I think I have too much personal information from many customers, addresses, phone numbers etc to do that.

I have the code listed above in the form load-event property and maybe that isn't where it should be....or maybe it has something to do with the Private vs Public declaration at the beginning of the sub. I think I have a small understanding of that but I am not confident with it for sure. Anyway, if I can figure out where I am making a mistake with the above code, I would like to have it be a function to call on with all the applicable forms. It was just a thought but I do tend to get ahead of myself at times!

Thanks again!

[orange]

You could try:

-copy and paste the same code into the for CurrentEvent
OR
- make a copy of the database
- in the copy remove most of the Customers
- change some names to Porky Pig, Donald Duck, Joe Blow etc
- change some personal data;;
all we need is enough to show the issue with the form.

[Missinglinq]

It has to be in the Form_Current event, as orange suggested. In the OnOpen or OnLoad event the ForeColor for all Records will be formatted according to the state of ContrName in the first Record displayed on opening!

BTW, this isn't hard to do for multiple Controls, whether for two or thirty Controls!

In Form Design View

1. Press and hold down the <Shift> Key
2. Click on each Control you want to Format to select it
3. Go to Conditional on the Ribbon
4. Under Condition1 use the dropdown to select Expression Is
5. In the condition box enter IsNull([YourControlName])
6. Click on the ForeColor Icon and select the desired color
7. Click on OK

replacing YourControlName with the actual name all of this is based on!

Linq ;0)>

[dvgef2]

Ok, I put the code in the Current Event but it still can't find the field. It is so odd to me but I guess there is a reason. Anyway, I think this is more personal than anything else now because I have been trying to figure it out for so long. The code does not seem all that complicated but every time I try something that I think I should be able to do, Access has other plans. I guess it knows me better than I know myself.

By the way, I thought I tried to do multiple fields at a time with the Conditional Formatting but it would not list the 'Conditional Formatting' option when I right clicked after selecting all the text boxes. I must have to get to it under one of the sub titles, I did not check that.

Thank you so much for your assistance!
Dave






[QUOTE=Missinglinq;289577]It has to be in the Form_Current event, as orange suggested. In the OnOpen or OnLoad event the ForeColor for all Records will be formatted according to the state of ContrName in the first Record displayed on opening!

BTW, this isn't hard to do for multiple Controls, whether for two or thirty Controls!

In Form Design View

1. Press and hold down the <Shift> Key
2. Click on each Control you want to Format to select it
3. Go to Conditional on the Ribbon
4. Under Condition1 use the dropdown to select Expression Is
5. In the condition box enter IsNull([YourControlName])
6. Click on the ForeColor Icon and select the desired color
7. Click on OK

replacing YourControlName with the actual name all of this is based on!

Linq ;0)>