.

HCLSoftware Business Partner
Domino Consulting Services
CRUCIAL Notes Tools
+1 212-599-2048

Domino Consulting Services
CRUCIAL Notes Tools
Domino administration
Notes development

Facebook Twitter YouTube
Chat now       
.
ProductsDownloadsNewsAbout usContact


Need a Domino Consultant? Call NotesMail +1 212-599-2048 - HCLSoftware Business Partner

LOTUSSCRIPT/COM/OLE CLASSES

Examples: OnFocus event
This is the OnFocus event for the "Subject" field of a form. It supplies a default value.

Sub Onfocus(Source As Field)
 Dim ws As New NotesUIWorkspace
 Dim uidoc As NotesUIDocument
 Set uidoc = ws.CurrentDocument
 If uidoc.FieldGetText("Subject") = "" Then
   Call uidoc.FieldSetText("Subject", "New subject")
 End If
End Sub

See Also