ACCESS　自動採番　NZ関数と、DMAX関数を利用する

・Dmax関数と、NZ関数を利用して、連番を自動発行する。

NZ関数と、Dmax関数

NZ関数と、Dmax関数で自動採番　作成手順その1　データベース確認

今回は、年月日に自動採番された番号を合体させます。

契約番号1と、契約番号2は同じものになります。

また、年月日は、そのままでは、自動採番の番号を合体させることができないので、Format関数を使います。

クエリについて　その6　８桁の数字を　yyyy/mm/ddへ変換

2019.11.2

8桁の数字をyyyy/mm/ddへ変換する こんにちは。伊川(@naonaoke)です。 今回は、選択クエリを使って、文字列をyyyy/mm/ddへ、変換します。 クエリは、あらゆ...

Format関数については、上の記事を確認してください。

NZ関数と、Dmax関数で自動採番　作成手順その2　コードを仕込む

面倒なので、名前が更新されたら、すべての処理が完了するようにしました。

NZ関数と、Dmax関数で自動採番　作成手順その3　コードを解説

Private Sub コマンド53_Click()
DoCmd.RunCommand acCmdSaveRecord
DoCmd.GoToRecord , , acNewRec

End Sub

Private Sub 名前_AfterUpdate()


Me.[日時] = Date

'--------------契約番号_1の採番------------------


Dim a As String                    '文字を扱う変数を宣言する

a = Format(Me.[日時], "yyyymmdd")  '日時に入力されたyyyy/mm/dd を　yyyymmddへ変換する

Me.[契約番号_1] = a & Me.[ID]    '変数a（yyyymmdd）にオートナンバーのIDを　＆でつなげる


'--------------------契約番号_2------------------

Me.会員番号 = Nz(DMax("[会員番号]", "MT_自動採番") + 1, 1)  '会員番号に連番をふる

Dim aa As String                    '文字を扱う変数を宣言する

aa = Format(Me.[日時], "yyyymmdd")  '日時に入力されたyyyy/mm/dd を　yyyymmddへ変換する

Me.[契約番号_2] = aa & Me.[会員番号]    '変数aa（yyyymmdd）に会員番号を　＆でつなげる

End Sub

ここがポイント

ここがポイント

ACCESSでは、Dmax関数、Dsum関数を

今回のような方法でよく使います。ただし、Excelと違って使いすぎると、

ACCESSの作動が重くなりますので、注意しましょう。

まとめ

今回のまとめ

今回は、契約番号1と契約番号2が、たまたま同じになりました。しかし、自動採番は、商品番号に枝番をつけるなど、色々用途があります。