作成者	カテゴリ	返答の対象		公開
小野田健太郎 02/25/1999 10:55 AM		閉じる方法

こんにちは。
最後の１行ComposeDocumentを書き加えてみてください。

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
Set uidoc = ws.ComposeDocument ( "", "", "kinmu" )
End Sub

あと、バックグラウンドはバックエンドのまちがいです。すいません。

http://www2.lotus.com/products/lotusscript.nsf/Notes+4.6+Classes?OpenNavigator