作成者	カテゴリ	返答の対象		公開
廉 06/16/2004 11:41 AM		入れ子いうエラーが出る

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 　　→Source.document に変更
Call doc.replaceitemvalue("Form","就業報告書表示加工用")
Call doc.save(True,True)
End If
End Sub

です＾＾