作成者	カテゴリ	返答の対象		公開
test 02/15/2002 01:15 PM		Querycloseで@Command([FileSave])が実行できない

式が苦手なのでスクリプトで、
aフィールドが空でなければbフィールドの値をセットして終了します。

aフィールドのデフォルトに何か文字を入れて
bフィールドは表示用の計算結果で@Now等をセット
文書を閉じるとaフィールドにbフィールドの値がセットされます。

Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Dim workspace As New NotesUIWorkspace
Set source = workspace.EditDocument( True )

If source.fieldgettext("a") <> "" Then
Call source.fieldsettext("a",source.fieldgettext("b"))
Call source.save
End If
End Sub