check 4 text boxes, if any empty change label to red for it

[trevor40]

I'm having a metal block,

I need to check if any of 4 text boxes haven't been completed and for the ones that have no data change the label to red.
I have this...

If IsNull(Me.From_Company) Then
t = MsgBox("A required field has not been completed !" & vbCrLf & vbCrLf & "Fields
shown in red require an entry", vbOKOnly, "Required feilds are empty !")
Me.From_Label.ForeColor = 255
exit sub
end if



how can I do this to any of the 4 fields? and continue if all are ok, if not return to the form

I'm think I have to make an array of the field names and loop through it, any ideas?

[trevor40]

Posted too soon, this works ok. unless sombody can offer a better way to do this?


[code]
If Not IsNull(Me.Consignment_Note_Number) Then Me.Consignment_Note_Number_Label.ForeColor = 16777215
If Not IsNull(Me.From_Company) Then Me.From_Label.ForeColor = 16777215
If Not IsNull(Me.To_Company) Then Me.Label47.ForeColor = 16777215
If Not IsNull(Me.Courier) Then Me.Label22.ForeColor = 16777215
If Not IsNull(Me.addressed_to) Then Me.Label45.ForeColor = 16777215
If IsNull(Me.Consignment_Note_Number) Or IsNull(Me.From_Company) Or IsNull(Me.To_Company) Or IsNull(Me.Courier) Or IsNull(Me.addressed_to) Then
t = MsgBox("A required field has not been completed !" & vbCrLf & vbCrLf & " Fields shown in red require an entry", vbOKOnly, "Required feilds are empty !")
If IsNull(Me.Consignment_Note_Number) Then Me.Consignment_Note_Number_Label.ForeColor = 255
If IsNull(Me.From_Company) Then Me.From_Label.ForeColor = 255
If IsNull(Me.To_Company) Then Me.Label47.ForeColor = 255
If IsNull(Me.Courier) Then Me.Label22.ForeColor = 255
If IsNull(Me.addressed_to) Then Me.Label45.ForeColor = 255
Exit Sub
Else
Me.Consignment_Note_Number_Label.ForeColor = 16777215
Me.From_Label.ForeColor = 16777215
Me.Label47.ForeColor = 16777215
Me.Label22.ForeColor = 16777215
Me.Label45.ForeColor = 16777215
End If

[June7]

Is this in a Continuous or Datasheet view form? Won't work for either because changing a control's property changes it for every record.

If labels and textboxes have similar names, like lblText1, lblText2, lblText3, lblText4 and tbxData1, tbxData2, tbxData3, tbxData4 - then a looping structure could be used.

For i = 1 to 4
If IsNull(Me("tbxData" & i)) Then Me("lblText" & i).ForeColor = 255
Next

An alternative is to use Conditional Formatting for the textbox and change colors of textbox.

[trevor40]

this fixed it...

If IsNull(Me.Consignment_Note_Number) Or IsNull(Me.From_Company) Or IsNull(Me.To_Company) Or IsNull(Me.Courier) Or IsNull(Me.addressed_to) Then

t = MsgBox("A required field has not been completed !" & vbCrLf & vbCrLf & " Fields shown in red require an entry", vbOKOnly, "Required feilds are empty !")

If IsNull(Me.Consignment_Note_Number) Then Me.Consignment_Note_Number_Label.ForeColor = 255
If IsNull(Me.From_Company) Then Me.From_Label.ForeColor = 255
If IsNull(Me.To_Company) Then Me.Label47.ForeColor = 255
If IsNull(Me.Courier) Then Me.Label22.ForeColor = 255
If IsNull(Me.addressed_to) Then Me.Label45.ForeColor = 255
Exit Sub
Else

[data808]

Does this go into the "Before Update" property?