Manage Learn to apply best practices and optimize your operations.

Doubleclick In Calendar View

Script example about how you create a document from doubleclicking in a
calendar view. Creates a new document and fills in the selected date from the
view.
'Create a Calendar-view and in its regiondoubleclick event enter this code:

Sub Regiondoubleclick(Source As Notesuiview)
Set ws = New NotesUIWorkspace
Set session = New NotesSession
If source.CalendarDateTime <> "" Then Call ws.ComposeDocument("", "", "NewDoc")
End Sub

'Create a Form (in ex. called NewDoc) and in its events enter this code:
'Global:
Dim SelectedDate As Variant

'Queryopen:
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant,
Continue As Variant)
If IsNewDoc Then
Set ws = New NotesUIWorkspace
Set session = New NotesSession
SelectedDate = ws.CurrentCalendarDateTime
End If
End Sub


'Postopen
Sub Postopen(Source As Notesuidocument)
If IsNewDoc Then
Set doc = source.document
doc.DateField = Cdat(SelectedDate)
Call source.reload
End If
End Sub

This was last published in November 2000

Dig Deeper on Domino Resources - Part 4

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