%REM Sub aiv_checkPersonIsValid Description: Checks that the person(s) that have been entered into the location database are valid members of the CCL Address Book Function calls: N/A Sub calls: N/A Called in event: onChange (to populate fields) Called in action: Save and Close, Save, Save And Add Another Called by: co_countValuesAndPopulate() %END REM Public Function aiv_checkPersonIsValid (userName As NotesName) As Boolean Dim s As New NotesSession Dim w As New NotesUIWorkspace Dim peopleDb As NotesDatabase Dim peopleView As NotesView Dim peopleDoc As NotesDocument Dim thisDoc As NotesDocument Dim uidoc As NotesUIDocument Dim key(0) As Variant Dim noMatchFound As String Let noMatchFound = "No match found for this name. Please choose a name from the menu provided." Dim PersonNameField As NotesItem 'Dim userName As NotesDocument Set uidoc = w.CurrentDocument Set thisDoc = uidoc.Document 'get handle to People database and check we've found the database Set peopleDb=s.GetDatabase("****", "ccldevelopmentLocSysPeople.nsf") If Not peopleDb Is Nothing Then 'get handle to view in People database and check we've found the view Set peopleView = peopleDb.GetView("AllLocSysLookup") If Not peopleView Is Nothing Then 'Make the PersonNameField variable equal to the value of the first item in the Person Name Field Set PersonNameField = thisDoc.GetFirstItem("PersonName") ForAll pName In PersonNameField.Values 'Start to loop through the PersonNameField and check that the names chosen exist in the people database 'lookup record in People database which matches the name in the PersonName field on this document Set userName = New NotesName(pName) Set key(0) = userName 'Set peopleDoc = peopleView.GetDocumentByKey(uidoc.Document.GetItemValue("PersonName")(0), True) Set peopleDoc = peopleView.GetDocumentByKey(key, True) 'If there is no match found to the document in the peopleDb, show a MsgBox If peopleDoc Is Nothing Then MsgBox "No match found in the CCL People Database for '" + pName.Common + "'. Please choose a valid name.", 0, "Error: No match found" aiv_checkPersonIsValid=False Exit Function End If 'End Loop End ForAll End If End If End FunctionThanks!