作成者	カテゴリ	返答の対象		公開
さとえ 09/27/2000 10:36 AM		自動連番の取得のしかた。

さとえです。

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
Dim col As notesDocumentCollection
Set uidoc = ws.currentdocument
Set db = sn.currentdatabase
Set vw = db.getview("FRen")
Set col = db.alldocuments
If col.count > 0 Then
Set dc = vw.getFirstdocument
su = Clng(dc.Ren(0))
su = su + 1
Call uidoc.fieldsettext(Ren,Cstr(su))
Else
Call uidoc.fieldsettext(Ren,"01")
End If
End Sub

以上です。よろしくお願いします。