式は苦手なので、スクリプトならすぐに提示できます。 １．フォームに履歴フィールドを作成してください。 （フィールド名：Rireki、複数値も可にチェック、区切り文字：改行） ２．以下のスクリプトをQueryOpenに記述してください。 Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant) Dim ss As New NotesSession Dim doc As NotesDocument Dim item As NotesItem '現在の文書を取得します Set doc = source.Document '履歴フィールドアイテムを取得します。 Set item = doc.GetFirstItem("Rireki") 'ユーザーＩＤと現在の時刻を履歴フィールドに"追加"します。 Call item.AppendToTextList(ss.UserName + " " + Now) '保存 Call doc.Save(False,False) End Sub 上記は文書を閲覧した人全員のユーザーＩＤと、現在時刻をセットします。 文書の作成時、または管理者は記録しないなどの例外は考慮していません。 保存した場合のみ履歴を残したい、 変更を加えた場合のみ履歴を残したい などの要望の場合は、別途考える必要があります。 式で書いて下さる方がいましたら、お願いします。