New Response

Cancel

Copy to Archive

Move to Archive

Document Library Main Topic Kurt Tomicich 2005/02/15 Procedure Reference

Subject: Validate a field as unique On Save Category: Tips\ Notes\ Programming Version: Revision Date: 2005/02/15 Modified: 2005/03/07   Reviewers Originator Previous Current Future Kurt Tomicich Kurt Tomicich/KRT None None

Set the Form's QuerySave object to the following script (Change Red text to your appropriate entries) :

Sub Querysave(Source As Notesuidocument, Continue As Variant)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim keydoc As NotesDocument
Dim db As NotesDatabase
Dim view As NotesView
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
Set db = doc.ParentDatabase
Set view = db.GetView("The View")
thekey = uidoc.FieldGetText("The Field")
Set numdoc = view.GetDocumentByKey(thekey,True)
If Not numdoc Is Nothing Then
'First check to ensure that the document that you found is not this one
If Not (numdoc.universalid = doc.universalid) Then
'You have a duplicate
Msgbox("Your error message")
Continue = False
Exit Sub
End If
End If
End Sub

This one Doesn't Work!! This one Doesn't Work!! 1. Have a field called Doc_ID on your form, Computed when composed, set to @Unique 2. Make a view with the columns ... 3. Office_IP +"-" + MachineIP (Sorted) 4. Doc_ID 5. Put the following in the QuerySave method ' This tests a key field on a view. If they match, and it's not the same document, it's an error Dim session As New NotesSession Dim db As NotesDatabase Dim view As NotesView Dim vc As NotesViewEntryCollection Dim entry As NotesViewEntry Continue = True Set db = session.CurrentDatabase Set view = db.GetView(view-name) Set entry = view.GetEntryByKey( Office_IP +"-" + MachineIP, True ) If Not (entry Is Nothing) Then view_id = entry.ColumnValues(1) If view_id <> doc.Doc_ID(0) Then msgbox "This IP was used in another document for this office" Continue = False End If End If End If