T
ToniS
I have a function to change the forms labels backcolor.
The function works fine for all forms except for sub forms.
When the subform is ran by itself the label colors change correctly.
As soon as I run the main form with the subforms on it, the main form
colors change fine but the subform label colors do not change.
I call the function with in the open event of each form.
Any ideas on what I need to do to get it to work?
I call the ChangeLabelColor in the main and subform open event.
Below is my source code example for the subform
Private Sub Form_Open(Cancel As Integer)
ChangeLabelColor Me ' tmhx
strSQL = "SELECT ....."
Form_subfrm_DealerDealerPersons.RecordSource = strSQL
End Sub
Function ChangeLabelColor(formname As Form)
Dim ctrl As Control
On Error Resume Next
For Each ctrl In Forms(formname.Name).Controls
If (TypeOf ctrl Is Label) Then
ctrl.BackColor = pubLabelColor
End If
Next ctrl
End Function
Thanks
ToniS
The function works fine for all forms except for sub forms.
When the subform is ran by itself the label colors change correctly.
As soon as I run the main form with the subforms on it, the main form
colors change fine but the subform label colors do not change.
I call the function with in the open event of each form.
Any ideas on what I need to do to get it to work?
I call the ChangeLabelColor in the main and subform open event.
Below is my source code example for the subform
Private Sub Form_Open(Cancel As Integer)
ChangeLabelColor Me ' tmhx
strSQL = "SELECT ....."
Form_subfrm_DealerDealerPersons.RecordSource = strSQL
End Sub
Function ChangeLabelColor(formname As Form)
Dim ctrl As Control
On Error Resume Next
For Each ctrl In Forms(formname.Name).Controls
If (TypeOf ctrl Is Label) Then
ctrl.BackColor = pubLabelColor
End If
Next ctrl
End Function
Thanks
ToniS