作成者	カテゴリ	返答の対象		公開
taka 06/16/2004 02:39 PM		入れ子いうエラーが出る

補足

Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Dim doc As Notesdocument←必要かな?
If source.EditMode Then
Set doc = source.document
Call doc.replaceitemvalue("Form","就業報告書表示加工用")
Call doc.save(True,True)
End If
End Sub

Call doc.save(True,True)構文はやっぱり書かないとか、変わりにContine=True構文を書くとかの方がいいのですかね?