こんにちは。 いろいろと考えてみたのですが残念ながら私のｽｷﾙが足りないためﾒｯｾｰｼﾞの原因は分かりませんでした。 問題解決の仕方としては、かなり原始的な方法ですが、動作確認のために新規に小さなﾃﾞｰﾀﾍﾞｰｽを作成してみるのはいかがでしょうか？ ﾃﾞｰﾀﾍﾞｰｽのｽｹﾙﾄﾝができたら、Form,name,date,khozonの４ﾌｨｰﾙﾄﾞを持つﾌｫｰﾑ「kinmu」と、Form,hname1,hdayの３ﾌｨｰﾙﾄﾞを持つﾌｫｰﾑ「hurikyuu」と、「kinmu&hurikyuu」という名前のﾋﾞｭｰを作成してみてください。（面倒かもしれませんがｺﾋﾟｰを使わないほうがいいかもしれません） ﾋﾞｭｰ「kinmu&hurikyuu」にはｱｸｼｮﾝﾎﾞﾀﾝを一つ追加して「@Command([Compose];"kinmu")」を記述してください。 ﾌｫｰﾑ「kinmu」にもｱｸｼｮﾝﾎﾞﾀﾝを一つ追加してScriptを記述ください。 （こちらはそのままｺﾋﾟｰしてみてください） Sub Click(Source As Button) Dim ws As New NotesUIWorkspace Dim view As NotesView Dim doc As NotesDocument Dim session As New NotesSession Dim db As NotesDatabase REM 現在の文書を取得します Set uidoc = ws.CurrentDocument REM 現在の文書のkhozonﾌｨｰﾙﾄﾞに1を入れます Call uidoc.FieldSetText("khozon","1") REM 現在のﾃﾞｰﾀﾍﾞｰｽを取得します Set db = session.CurrentDatabase REM ﾊﾞｯｸｴﾝﾄﾞで現在のﾃﾞｰﾀﾍﾞｰｽに新規文書を作成します Set doc = db.CreateDocument REM 新規文書にﾌｨｰﾙﾄﾞと値を入れていきます doc.Form = "hurikyuu" doc.hname1 = uidoc.FieldGetText("name") doc.hday = uidoc.FieldGetText("date") REM 新規文書を保存します Call doc.Save( True, True ) REM 現在の文書を保存します Call uidoc.save REM 現在の文書を閉じます Call uidoc.close REM 現在のﾃﾞｰﾀﾍﾞｰｽの中でﾋﾞｭｰkinmu&hurikyuuを取得します Set view = db.GetView( "kinmu&hurikyuu" ) REM ﾋﾞｭｰとﾜｰｸｽﾍﾟｰｽをﾘﾌﾚｯｼｭします Call view.Refresh Call ws.ViewRefresh REM ﾌﾛﾝﾄｴﾝﾄﾞで新規文書を作成します Set uidoc = ws.ComposeDocument ( "", "", "kinmu" ) End Sub あまりお力になれなくて不甲斐ない限りですががんばってみてください。