LOTUSSCRIPT/COM/OLE CLASSES
Sub Exiting(Source As Field) Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Dim testdate As String Set uidoc = workspace.CurrentDocument testdate = uidoc.FieldGetText ( "dtField") Dim dt As New NotesDateTime(testdate) If Not dt.IsValidDate Then Messagebox "Please enter a new date." , , "Invalid date" Call uidoc.GotoField ( "dtField") End If End Sub
See Also