How to loop through all controls in a form, including controls in a subform – Access 2007

by

You can use recursion

Public Sub colCtrlReq(frm As Form)
''  Sets background color for required field -> Tag = *
Dim setColour As String
setColour = RGB(255, 244, 164)
Dim ctl As Control
For Each ctl In frm
        If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox _
            Or ctl.ControlType = acListBox Then
            If InStr(1, ctl.Tag, "*") <> 0 Then
                ctl.BackColor = setColour
            End If
        ElseIf ctl.ControlType = acSubform Then
            colCtrlReq frm(ctl.Name).Form

        End If
Next ctl
Set ctl = Nothing
End Sub

More Related Contents:

  1. ms access vba code for update records through form
  2. Is it better to use ADO or DAO in Access 2007?
  3. SendKeys is messing with my NumLock key via VBA code in Access form
  4. How to add default signature in Outlook
  5. Combine rows / concatenate rows
  6. Is it possible to pass parameters programmatically in a Microsoft Access update query?
  7. Getting Error 3340 Query ‘ ‘ is corrupt while executing queries DoCmd.RunSQL
  8. Too few parameters Expected 1, recordset issue
  9. Show “Open File” Dialog
  10. How do I display a messagebox with unicode characters in VBA?
  11. Determining whether an object is a member of a collection in VBA
  12. Distinction between using .text and .value in VBA Access
  13. MS Access VBA Error: Run time error ’70’ Permission Denied
  14. Automatically generating handling of issues
  15. VBA – Folder Picker – set where to start [duplicate]
  16. MS Access: how to compact current database in VBA
  17. FileDialog doesn’t work
  18. Working with Unicode file names in VBA (using Dir, FileSystemObject, etc.)
  19. Determine real cause of ODBC failure (error 3146) with ms-access?
  20. Is there an equivalent to Thread.Sleep() in VBA
  21. How to refer to Excel objects in Access VBA?
  22. Exporting MS Access Forms and Class / Modules Recursively to text files?
  23. How to get logged-in user’s name in Access vba? [duplicate]
  24. Pass a parameter into an access report programmatically
  25. finding latest file in a folder and opening it (vba access)
  26. Insert multiple records with a date range in MS Access
  27. MS Access VBA: Sending an email through Outlook [closed]
  28. Runtime error 287. Sending Emails through Outlook using VBA in Access
  29. Trouble with InputBoxes
  30. What does the $ symbol do in VBA?

Leave a Comment