フォーム画面からビューに戻らずに新規入力用のフォームを開く。


内容）
同じフォームを使って大量にデータ入力するときとかに。
入力し終わったぶんを閉じないで新しいのを開くと8つ目ぐらいで
ウィンドウが多すぎとかいうメッセージが出るので、閉じてから
次のフォームを開きます。

新規フォームを開く用のアクションボタンか何かを作って、以下の
スクリプトでＯＫでした。式だと@FileCloseWindowは常に最後に
評価されるとかで、どうしても閉じた後で何かって出来ないみたい
だったので。


スクリプト）
-------
Sub Click(Source As Button)
     Dim workspace As New NotesUIWorkspace
     Dim uidoc As NotesUIDocument
     Set uidoc = workspace.CurrentDocument
     Call uidoc.Save
     Call uidoc.Close
     Call workspace.ComposeDocument( "", "", "testform" )
     
End Sub
-------