作成者	カテゴリ	返答の対象		公開
てつ 09/09/2002 04:58 PM		連番の採り方 教えてください。

ありがとうございました。
型の問題は解決しました。
が連番取れるのですが、次に連番取れません。
=======＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Sub Initialize
Dim SESSION As New NOTESSESSION
Dim DB As NOTESDATABASE
Dim view As NOTESVIEW
Dim doc As NOTESDOCUMENT
Dim WS As New NOTESUIWORKSPACE
Dim UIDOC As NOTESUIDOCUMENT

Set DB = SESSION.CURRENTDATABASE
Set UIDOC = WS.CURRENTDOCUMENT

'UKETUKENO取得済み→終了
If UIDOC.FieldGetText("UKETUKENO") <> "" Then
Exit Sub
End If
'JIGYOUSHOの値を取得→検索キーの設定
Select Case UIDOC.FieldGetText("SYURUI")
Case "バイク":RKUBUN="バイク"
Case "車":RKUBUN="車"
End Select

Set view = db.GetView("マスター\連番")
Set doc = view.GetDocumentByKey(RKUBUN,True)
Print RKUBUN
If Not(doc Is Nothing) Then
TMP_UKETUKENO = Cint(doc.RENBAN(0))
'既存文書(doc)から番号を数値に変換し、取得→TMP_UKETUKENOにセット
Call UIDOC.FieldSetText("UKETUKENO",Format(TMP_UKETUKENO + 1,"00000"))
'番号(TMP_UKETUKENO)に１を足し込み、桁をあわせて、
'UKETUKENOフィールドに設定
Call UIDOC.Save ' 現在の文書を保存
End If