Text Box font color 1

[tman72]

I have inherited an app that has different colored text boxes. I discovered this when one of the users of the app changed their desktop theme and some text in the text boxes remain black (which is what I want) while others are not. I checked in design view and some text boxes are set to different fore colors in the properties. Can this be done in code and if so how?.....or do I need to resort to picking them and changing them manually? Any help is appreciated.

 

[TheAceMan1]

How are ya tman72 . . .

Are you saying you want to parse thru all forms and change any non-black texboxes to black?

See Ya! . . . . . .

 

[TheAceMan1]

Try this (loops thru all forms/textboxes):

[blue]   Dim cpFrm As AccessObject, frm As Form, ctl As Control
   
   For Each cpFrm In CurrentProject.AllForms
      DoCmd.OpenForm cpFrm.Name, acDesign, , , , acHidden
      DoEvents
      Set frm = Forms(cpFrm.Name)
      
      For Each ctl In frm.Controls
         If ctl.ControlType = acTextBox Then
            ctl.ForeColor = 0
         End If
      Next
      
      DoCmd.Close acForm, cpFrm.Name, acSaveYes
      Set frm = Nothing
   Next[/blue]

See Ya! . . . . . .

 

[tman72]

Thanks Aceman. Exactly what I needed and what a time saver!