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

フォームのUKETUKENOというフィールドの値を
同じフォームのSYURUI(キーワードフィールド)によって
それぞれの連番を発行したい。
下記のスクリプトで、何処を修正すればいいのですか？
修正箇所を教えてください。
Sub Initialize
Dim SESSION As New NOTESSESSION
Dim DB As NOTESDATABASE
Dim VIEWNO As NOTESVIEW
Dim doc As NOTESDOCUMENT
Dim DOCNO As NOTESDOCUMENT
Dim WS As New NOTESUIWORKSPACE
Dim UIDOC As NOTESUIDOCUMENT
Dim Note_doc As NOTESUIDOCUMENT

Set DB = SESSION.CURRENTDATABASE
Set UIDOC = WS.CURRENTDOCUMENT
Set doc = view.GetFirstDocument
Call UIDOC.Refresh

'整理ＮＯ取得
If doc.UKETUKENO(0)="" Then

Select Case doc.SYURUI(0) 'フィールドの値によってRKUBUNの値を選択
Case "車":RKUBUN="車"
Case "バイク":RKUBUN="バイク"
Case "自転車":RKUBUN="自転車"
　　　　　End Select

Set view = db.GetView("マスター\連番")
Set doc = view.GetDocumentByKey("RKUBUN",True) 'マスター\連番ビューからRKUBUNを検索
Print RKUBUN
If Not(doc Is Nothing) Then

TMP_UKETUKENO = Format(doc.UKETUKENO(0),"00000") '情報取得(桁数を揃えています)
Note_doc.UKETUKENO=TMP_UKETUKENO '連番書き込み
Note_doc.UKETUKENO=Format(Trim(Str(Val(Ltrim(TMP_UKETUKENO))+1)),"00000") '+1した連番をセット
Call doc.SAVE(True,True) '連番記録更新
Else
' 異常発生時
Messagebox "連番設定で異常が発生しました。管理者に連絡して下さい。", 0 + 64, "連番設定エラー"
Exit Sub
End If
End If

End Sub