例: GotoField method

次のスクリプトは、[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