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

関連項目