作成者	カテゴリ	返答の対象		公開
Vit 02/08/2010 11:21 PM		ボタンをクリックしてカウンタをUPさせたい

私も考えてみました。
寝雪さんとほとんど同じですが、参考にしてください。

[ボタン]
@Command([ToolsRunMacro];"CountUp")


CountUpエージェント

Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument

Dim unid As String
Dim cnt As Long

Set db = session.CurrentDatabase
Set doc = session.DocumentContext

unid = doc.UniversalID
cnt = Clng(doc.UP(0)) + 1

Call doc.ReplaceItemValue("UP",Cstr(cnt))
Call doc.Save(False,False)

Print |<center><h2>拍手しました</h2><br><br>|
Print |<a href="/| & db.FileName & |/0/| & unid & |?OpenDocument" target="_top">戻る</a></center>|

上記の方法はボタン押下後に違うページを表示させています。
window.open〜も考えましたが、カウントアップがうまく更新されなかったので、このような案を出した限りです。

このDBがあるサーバ名がACLで管理者権限で登録されており、
エージェントの実行者がそのサーバであればうまくいくはずです。


Call doc.Save(False,False)は必要に応じて変更されたほうがよいかと思います。


以上、失礼いたしました。