もし、新しい文書(hurikyuuﾌｫｰﾑ)を開いて作る必要が無ければ、以下のような方法でできました。 Form,name,date,khozonﾌｨｰﾙﾄﾞを持つﾌｫｰﾑkinmuを作成 Form,hname1,hdayﾌｨｰﾙﾄﾞを持つﾌｫｰﾑhurikyuuを作成 kinmu&hurikyuuﾋﾞｭｰを作成 kinmuﾌｫｰﾑのｱｸｼｮﾝﾎﾞﾀﾝに以下のｺｰﾄﾞを記述する 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 Set uidoc = ws.CurrentDocument Call uidoc.FieldSetText("khozon","1") Set db = session.CurrentDatabase Set doc = db.CreateDocument doc.Form = "hurikyuu" doc.hname1 = uidoc.FieldGetText("name") doc.hday = uidoc.FieldGetText("date") Call doc.Save( True, True ) Call uidoc.save Call uidoc.close Set view = db.GetView( "kinmu&hurikyuu" ) Call view.Refresh Call ws.ViewRefresh End Sub