developerWorks  >  Lotus  >  Forums & community  >  Notes/Domino 6 and 7 Forum

Notes/Domino 6 and 7 Forum

developerWorks




GotoField in field Exiting event
Robert Brindza 07/11/2013 12:12 PM
Applications Development All Releases All Platforms


I am using some script in a Exiting event of a field that check if a GetDocumentByKey returns a value. If it does not I display a MsgBox and returns the cursor to the field using the GotoField method.

However after the user click OK in the MsgBox it returns the cursor to the field and displays the MsgBox 2 more times after that.

It is appear it is executing the Exiting event when the cursor returns to the field with the GotoField method.
(script below)

Any thoughts?

'********************
Sub Exiting(Source As Field)
Dim db As NotesDatabase
Dim session As NotesSession

Dim workspace As New NotesUIWorkspace

Dim uidoc As NotesUIDocument
Dim doc As NotesDocument

Set Session = New NotesSession
Set db = session.CurrentDatabase
Set uidoc = workspace.CurrentDocument
Set doc=uidoc.Document

Dim lookupDB As NotesDatabase
Dim lookupView As NotesView
Dim lookupDoc As NotesDocument

Dim empName As Variant

empName = doc.ReportTo

Set lookupDB = New NotesDatabase( db.Server, "names.nsf" )

Set lookupView = lookupDB.GetView("PeopleLookupCN")

'Look up Manger 1's manager
Set lookupDoc = lookupView.GetDocumentByKey(empName,True)

If lookupDoc Is Nothing Then
answer = Msgbox (Cstr(doc.ReportTo(0)) + " not found in the Domino Directory." ,0 + 48, "Name Not Found" )
If answer = 1 Then Goto leave
End If

leave:
Call uidoc.GotoField("ReportTo")

End Sub

Go back