Manage Learn to apply best practices and optimize your operations.

Provide Automatic Timed Save Of The Open Document

Automatic Save Routine. Build this into a Notes form to provide automatic
timed save of the open document.
Automatic Save

'Global Declarations

Dim elapsedTime As Integer
Dim elapsedTimer As notestimer
%INCLUDE "lsconst.lss"


'Postopen

Sub Postopen(Source As Notesuidocument)
Set elapsedtimer = New NotesTimer(60, "Elapsed time since opening document")
elapsedtime = 0
On Event alarm From elapsedtimer Call elapsedTimerHandler
End Sub




'Timer Handler

Sub elapsedtimerhandler(source As notestimer)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
elapsedtime = elapsedtime + 60
If elapsedtime >299 Then
If uidoc.EditMode = True Then
Call uidoc.Save
elapsedtime = 0
End If
End If
End Sub

Dig Deeper on Domino Resources - Part 7

Start the conversation

Send me notifications when other members comment.

Please create a username to comment.

-ADS BY GOOGLE

SearchWindowsServer

Search400

  • iSeries tutorials

    Search400.com's tutorials provide in-depth information on the iSeries. Our iSeries tutorials address areas you need to know about...

  • V6R1 upgrade planning checklist

    When upgrading to V6R1, make sure your software will be supported, your programs will function and the correct PTFs have been ...

  • Connecting multiple iSeries systems through DDM

    Working with databases over multiple iSeries systems can be simple when remotely connecting logical partitions with distributed ...

SearchDataCenter

SearchContentManagement

Close