作成者	カテゴリ	返答の対象		公開
のり 02/24/1999 06:21 PM		閉じる方法

＞ちなみに「I014インスタンスのメンバは存在しません」というエラーが出ました。
これは、EditDocumentがNotesUIWorkspaceクラスのメソッドだからです。
NotesUIDocument(uidoc)クラスにはこんなメソッドないよ〜、と言っている訳ですね。

それはおいといて、ふとこんなことを考えました。
uidocという変数を使い回ししなかったら？

Sub Click(Source As Button)
     Dim ws      As New NotesUIWorkspace
     Dim session As New NotesSession
     Dim db      As NotesDatabase
     Dim view    As NotesView
     Dim uidoc1  As NotesUIDocument
     Dim uidoc2  As NotesUIDocument
     Dim doc     As NotesDocument
     Dim name1   As String
     Dim date1   As String
     
     Set db     = session.CurrentDatabase
     Set uidoc1 = ws.CurrentDocument
     
     name1 = uidoc1.FieldGetText( "name" )
     date1 = uidoc1.FieldGetText( "date" )
     Call uidoc1.FieldSetText( "khozon", "1" )     
     
     Set uidoc2 = ws.ComposeDocument( "", "", "hurikyuu" )
     Call uidoc2.FieldSetText( "hname1", name1 )
     Call uidoc2.FieldSetText( "hday"  , date1 )

     Call uidoc2.Save
     Call uidoc2.Close
     
     Call uidoc1.Save
     Call uidoc1.Close
End Sub