Tab out of field throws code in Exit event in loop--Need Help

HCL Domino Domino Forum
1

Hi,

I have a problem with the code below when I tab out of a field. The msgbox prompts me 3 times. If I click using the mouse into another field then I get the prompt only once. Has anyone else come across this situation.

Sub Exiting(Source As Field)

Dim WS As New NotesUIWorkspace

WS.CurrentDocument.Refresh

Dim theString As String

Dim continue As Variant

Set guidoc = WS.CurrentDocument

theString$ = guidoc.fieldgettext("GLAc6")

'Print Len(theString$) 

If Len(theString$)<>5  Then

	Msgbox"Please enter 5 digits for the sixth GL account # field",16, "GL Account Number"

	guidoc.gotofield("GLAc6")

	continue = False

	Exit Sub

End If

End Sub

Please help–Sai

2

Subject: Tab out of field throws code in Exit event in loop

I am having the same problem with 8.5.1.