「基本フォーム」に「フィールド」があり 新規文章作成の時に「フィールド」内にあるキーワードに対して 自動連番を付けたいのです。（編集はできなくて構わないです。） ［例］ 「フィールド」のキーワード・・・・。 バイク 車 自転車 というキーワードがあり フィールド内のキーワード別にビューが別れています。 バイク ［１］ 車 ［１］ 自転車 ［１］ バイク ［２］ 車 ［２］ ↑文書数です。(^^; バイク ［３］ ↑文書数です。(^^; バイク ［４］ ↑文書数です。(^^; ”アクションボタン（番号採取）”を押すと フィールドの値を バイクを選べばバイク ［５］となり 車 を選べば 車 ［３］となり 自転車を選べば 自転車［２］となるものが欲しいのですが。 うまく行きません。どなたか教えてください。 管理￥連番というﾋﾞｭｰにて連番は管理されています。 Sub Initialize Dim session As New NotesSession Dim Note_db As NotesDatabase Dim workspace As New NotesUIWorkspace Dim doc As NotesDocument Dim view As NotesView Dim docNO As NotesDocument Dim uidoc As NotesUIDocument Dim Note_doc As NotesDocument Dim RENBAN_doc As NotesDocument Dim RENBAN_view As NotesView Set db = session.CurrentDatabase Set uidoc = workspace.CurrentDocument Set Note_doc = uidoc.Document Set RENBAN_doc = uidoc.Document '整理ＮＯ取得 If Note_doc.UKETUKENO(0)="" Then Select Case Note_doc.KYOTEN(0) 'フィールドの値によってRKUBUNの値を選択 Case "バイク":RKUBUN="バイク" Case "車":RKUBUN="車" Case "自転車":RKUBUN="自転車" End Select Set view = db.GetView("マスター\連番") Set doc = view.GetDocumentByKey(RKUBUN,True) '管理\連番ビューからRKUBUNを検索 If Not(doc Is Nothing) Then TMP_UKETUKENO = Format(doc.UKETUKENO(0),"00000") '情報取得(桁数を揃えています) Note_doc.UKETUKENO=TMP_UKETUKENO '連番書き込み 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