おはようございます。 どうして、出来ないんでしょうか？ 私がやっている事を詳しく書いてみます。これでどこか違うのなら 教えてください。 フィールドが２つあります。１つは、名前を入力する部分。２つ目は、 連番を自動で入れるためのもの。 名前を入力する部分のEnteringという所にスクリプトを書いています。 スクリプトの内容。 Sub Entering(Source As Field) Dim su As Long Dim ws As New notesuiworkspace Dim uidoc As notesuidocument Dim sn As New notessession Dim db As notesdatabase Dim vw As notesview Dim dc As notesdocument Set uidoc = ws.currentdocument Set db = sn.currentdatabase Set vw = db.getview(隠しビューの別名) Set dc = vw.getFirstdocument su = Clng(dc.su(0)) su = su + 1 Call uidoc.fieldsettext(自動連番のフィールド名,su) End Sub 隠しビューを作り、そこに連番だけを表示させ降順でならび かえてます。 どうぞ、よろしくお願いします。