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

[ボタン]の中のスクリプトが判らないので、違う方法を。
こんな感じで試したら+1でカウントできました。


[ボタン]
フォーム内に配置
@Command([RunAgent]; "(TEST)")

使用したユーザー
Anonymous：読者

エージェント：TEST
エージェントリストから手動で
Webユーザーで実行：チェック無し
代理で実行：編集権限を持ち、エージェント実行をサーバーで許可されているID
エージェントの参照と実行のデフォルトアクセス：読者以上すべて
スクリプト
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument

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

doc.up = doc.up(0) + 1
doc.Save(false, false)


更新者が代理実行の指定IDになっていれば成功です。
保存後にうまく更新させるにはとか、連打したらどーすんの、とかありますけど、そこはうまく工夫してください。