Domino Code Fragment

Code Name*
Building a Searchformula$ using several fields amd @IsMember		Date*
04/28/2024		Source (or email address if you prefer)*
Rlatulippe@romac.com
IP address:.3.141.8.247
Description*
Builds a search where Form = "ServerAdmin" and either of the DefaultClass field or OtherClassNames list field = the variable sClass		Type*
LotusScript		Categories*
(Misc)
Implementation:
Required Client:
Server:
Limitations:
Comments:
Files/Graphics attachments (if applicable): Code:
Sub Querysave(Source As Notesuidocument, Continue As Variant)
If source.isnewdoc = False Then
Dim session As New NotesSession
Dim db As NotesDatabase
Dim dateTime As NotesDateTime
Dim collection As NotesDocumentCollection
Dim doc As Notesdocument
Set doc = source.document
Dim sClass As String
sClass = doc.class(0)
Set db = session.CurrentDatabase

'Set search where Form = "ServerAdmin" and either of the DefaultClass field or OtherClassNames list field = the variable sClass

SearchFormula$ = "Form = ""ServerAdmin"" & (DefaultClass = """+ sClass +""" | @IsMember("""+ sClass +"""; OtherClassNames))"

Set collection = db.Search( SearchFormula$, Nothing, 0 )
sNewvalue = doc.ServersIncl(0)+"-"+doc.NumVersions(0)+"-"+doc.VersionsKept(0)+"-"+doc.BackupsKept(0)+"-"+doc.DeletesKept(0)

For j = 1 To collection.Count
Set doc = collection.GetNthDocument( j )
doc.DefaultValues = sNewvalue
Call doc.Save( True, True )
Next j

End If
End Sub