廉さん、おはようございます。廉さんの意見で言うとQuerySave,QuerycloseイベントにはSaveメソッドは使用しなくてもいいということですね。 Saveメソッドを使わなくても保存されるという事ですね。 Saveメソッドをはずしたスクリプトを書きました。 Call source.Refreshなどはどうでしょうか? こだわってすいません。 Sub Queryclose(Source As Notesuidocument, Continue As Variant) Dim doc As Notesdocument If source.EditMode Then Set doc = source.document Call doc.replaceitemvalue("Form","就業報告書表示加工用") End If End Sub