Sub Initialize
Dim ses As New NotesSession
Dim doc As NotesDocument
Dim doc2 As NotesDocument
Set doc2 = ses.DocumentContext
Dim collection As NotesDocumentCollection
Dim db As notesdatabase
Set db = ses.currentdatabase
searchFormula$ = "Form = ""Nombre del form que queremos actualizar"""
Set collection = db.Search(searchFormula$,Nothing,0)
Set doc = collection.getfirstdocument
While Not (doc Is Nothing)
If (doc.campo de busqueda(0) = doc2.campo de pantalla(0)) Then
doc.campo a actualizar = doc2.campo de pantalla que queremos grabar(0)
Call doc.save(False,False)
End If
Set doc = collection.getnextdocument(doc)
Wend
End Sub
|
Otros documentos de LotusScript
|