フォーム画面からビューに戻らずに新規入力用のフォームを開く。
内容) 同じフォームを使って大量にデータ入力するときとかに。 入力し終わったぶんを閉じないで新しいのを開くと8つ目ぐらいで ウィンドウが多すぎとかいうメッセージが出るので、閉じてから 次のフォームを開きます。 新規フォームを開く用のアクションボタンか何かを作って、以下の スクリプトでOKでした。式だと@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 -------