LOTUSSCRIPT/COM/OLE CLASSES
Examples: OnSubmit event
1. This OnSubmit event discontinues the save operation and moves the insertion point to the Title field if the Title field is empty.
Sub Onsubmit(Source As Notesuidocument, _
Continue As Variant)
If Source.FieldGetText("Title") = "" Then
Messagebox "You must enter a title",, "No title"
Call Source.GotoField("Title")
Continue = False
End If
End Sub
2. This OnSubmit event updates the ProjectStatus field depending on the difference between the current date and the date in the DueDate field.
Sub Onsubmit(Source As Notesuidocument, _
Continue As Variant)
Dim todayDT As NotesDateTime
Dim dueDT As NotesDateTime
Dim daysLeft As Long
Dim status As String
Call Source.Refresh
Set todayDT = New NotesDateTime("Today")
Set dueDT = New NotesDateTime _
(Source.FieldGetText("DueDate"))
daysLeft = dueDT.TimeDifference(todayDT) / 86400
Select Case daysLeft
Case 1, 2, 3
status = "Urgent"
Case 4, 5, 6
status = "Hurry up"
Case Else
status = "No worries"
End Select
Call Source.FieldSetText("ProjectStatus", status)
End Sub
Glossary
Feedback on
Help
or
Product Usability
?
Help on Help
All Help Contents
Glossary