やってみよう！Excel VBAで業務改善！｜持続可能なスキーム編

午後も引き続き実装作業

出前のラーメンを食べ終えた八木くんは、午後も引き続き実装作業を行います。

「とりあえず大まかな部分は、オッケーだな。
…次は、採番処理を実装するか。
今日は、このあたりまでかな」

ブツブツとつぶやきながら、コードを作成していきます。

       If num = "" Then
            If MsgBox("このデータを追加してもいいですか？", vbYesNo) = vbYes Then
                '採番処理
                sql = "SELECT MAX(番号) AS MAX番号 FROM 進捗TBL"
                rs.Open sql, CN
                
                num = Right(rs.Fields("MAX番号").Value, 4) + 1
                num = Format(num, "K0000")
                
                rs.Close
                
                'データ追加処理
            End If
        Else
            MsgBox "このデータは追加できません"
        End If

※赤字の部分が、追加したコードです。

「…こんなものか。
"SELECT MAX(番号) AS MAX番号"で、"番号"フィールドの最大値を"MAX番号"として取得、
レコードセットを開く。
あとはRight関数を使って、"MAX番号"の数値部分を取り出し、
1を加算して変数numに格納する。
さらにFormat関数を使って、再び"K0000"の書式に整形して変数numに戻す…」