On page 197 of Chapter 5, Try It Out, the first instruction is to create a new subroutine called FormFonts, like so:

Public Sub FormFonts(strFont As String)

Dim frmCurrent As Form
  Dim ctlControl As Control

  For Each frmCurrent In Forms
    For Each ctlControl In frmCurrent.Controls
      ctlControl.FontName = strFont
    Next
  Next
End Sub

Next, we are told to use the immediate window to run the code. The authors indicate that running the code should generate the following error message: "Run-time error '436' Object doesn't support this property or method" and then explain why this is so. Despite the error, however, text of the form's text boxes and labels should reflect change up to the control that caused the error.

When I ran this code, I received a compile error, "Sub or Function not defined." Can someone tell me what the problem may be?

Thanks.

What a coincidence, I too am having that very same problem. I think it has something to do with "ctlControl.Font = strFont" as Font does not appear in the drop down menu after after Control. I have looked in References and cannot see any reference to it in DAO (which I believe is what we are supposed to be using, or am i wrong?), but I am lost.

Actually, I have rewritten the code and hey presto....it works. Don't ask me how, but it does

tony