Microsoft Access 掲示板

Microsoft Access 掲示板

[登録時]グループ毎の自動採番/テキスト型の管理番号自動入力 / 3

5 コメント
views
4 フォロー
3
hiroton 2021/01/25 (月) 11:44:41 7a1b5@f966d

思われている通りであっています

テキストボックスの使いまわしをするのであればコントロールソースは非連結にしてVBAで処理することにしましょう。タイミングは

1.新規登録の際、ユーザーが[cmb年度]で年度を選択した後に、

ということなので[cmb年度]の更新後処理で

Private Sub cmb年度_AfterUpdate()
    Dim new年度連番 As Long
    new年度連番 = Nz(DMax("年度別連番", "T統合", "年度='" & Me!cmb年度 & "'"), 0) + 1
    Me!Tx年度別連番 = new年度連番
    Me!Tx管理番号 = "t_" & Me!cmb年度 & Format(new年度連番, "000")
End Sub
通報 ...
  • 4
    hiroton 2021/01/25 (月) 11:57:09 7a1b5@f966d >> 3

    ついでに、
    新規・修正が同じフォームということなので、このコードだけだと、修正モードの時でも[cmb年度]を修正すると連番が変わります（処理が働きます）

    年度（データ）は修正するけど一度取得した番号は変えたくないとかだと仕様に合わせてもうひと手間必要になりますね