Out of Stack Space message

[Leif]

I'm getting, occasionally, an out of stack space message. I'm not doing any
recursion. The error is occuring in the form current event of a subform.
The coding is as follows:

Private Sub Form_Current()
' Set security
If gAdmin Or AQA(Nz(Parent.ProjectID, 0)) Then
SetAllows Me.Form, True
Reason.Locked = False
Else
SetAllows Me.Form, False
Reason.Locked = True
End If

End Sub

AQA function returns a True of False if the individual is a QA. SetAllows
sets the allow permissions for the form (allowadditions, allowedits,
allowdeletions).

The error occurs when I click I'm using a filter on my main form, and I'm on
record #4, and I click the skip to record 1 button on the record navigator.
If I step one record at a time I don't have a problem.

However, even when I click on the first record button the problem only
happens occasionally. I'm using the same data, and following the exact same
steps. I'm thinking perhaps VB is stacking event calls on the subform, and
sometimes too many are being stacked.

Anyone have an idea on this one? Any work-around?

Thanks,
Leif