LOTUSSCRIPT /COM/OLE のクラス

例:GotoField メソッド
次のスクリプトは、[Conclusion] フィールドに何かを入力していないと文書を保存できないようにします。[Conclusion] フィールドが空のときはメッセージを表示し、GotoField メソッドを使用してカーソルを [Conclusion] フィールドに置きます。

Sub Querysave(Source As Notesuidocument, Continue As Variant)
 If ( source.FieldGetText( "Conclusion" ) = "" ) Then
   Messagebox( "Please enter a Conclusion" )
   Call source.GotoField( "Conclusion" )
   Continue = False
 End If
End Sub

関連項目