作成者	カテゴリ	返答の対象		公開
足立 09/21/2000 09:30 AM		自動連番の取得のしかた。

足立です。

PostOpenに書くからなのかもしれません。
だから、ちょっと、も思考を変えてみると言うのもあります。
新規作成時に一番最初にカーソルがいる場所を思い出してください。

そこのフィールドに書いてみる。

Sub Entering(Source As Field)
Dim su As Integer or 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.getlastdocument
su = Cint(dc.su(0)) or Clng(dc.su(0))
su = su + 1
call uidoc.fieldsettext(連番フィールド,su)
End Sub

と言うものをかいてみては？