Having trouble getting the "On Error GoTo..." construct to take
effect. I've tried everything but it never seems to take effect and
I'm unable to trap the error. Below is the procedure I'm testing. When
running this procedure, it never enters the FormFonts_Err code. VBA error message appears with the error number I'm trying to trap.

Sub FormFonts(strFont As String)

    On Error GoTo FormFonts_Err

    Dim frmCurrent As Form
    Dim ctlControl As Control

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

FormFonts_Exit:
    Exit Sub

FormFonts_Err:
    If Err.Number = 438 Then
        Resume Next
    Else
        MsgBox Err.Description
        Resume FormFonts_Exit
    End If

End Sub

The following code gives an example of error trapping. In this case it relates to a simple command button that closes a form (DoCmd.Close).

Hope this helps.


Private Sub cmdExit_Click()
On Error GoTo Err_cmdExit_Click


    DoCmd.Close


Exit_cmdExit_Click:
    Exit Sub

Err_cmdExit_Click:
    MsgBox Err.Description
    Resume Exit_cmdExit_Click

End Sub

I have tried this(took example right from Wrox book) but
for some reason the On Error GoTo is not taking effect

Have you compiled the code?

Perhaps if you post the code you have written, might be able see why its not working for you.

Post your code. Are you trying to create an error to test it? or is your on error not doing something properly. Please be more clear.



Sal

This may be the cause of the problem.

Open up the Visual Basic editor. Choose Options from the Tools menu. Click on the General tab. The Error Trapping option should be Break on Unhandled Errors.

If it's not, change it and see if that sorts it out.


Brian Skelton
Braxis Computer Services Ltd.

Thanks Braxis........That did it