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

返答ありがとうございます。このスクリプトはQuerySaveイベントに書いているのではなくQueryCloseイベントに書いています。そこにはSaveメッソドを書き込んでいるのですが、これもやっぱり関係ありますでしょうか?またSaveメッソドを使わない方法はあるのでしょうか?

Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Dim ws As New notesuiworkspace
Dim uidoc As notesuidocument
Dim doc As notesdocument
Set uidoc = ws.currentdocument
If uidoc.editmode = True Then
Set doc = uidoc.document
Call doc.replaceitemvalue("Form","就業報告書表示加工用")
Call doc.save(True,True)
End If
End Sub