ACCESS 新規レコード登録時　ID重複チェック＆採番

レコード　新規追加　登録時　ID重複チェック

Private Sub cmdEnd_Click()

JNO_CHK

DoCmd.Close

End Sub

---

Function JNO_CHK()

If DCount(“受注No”, “TB_受注伝票”, “受注No=” & Me!受注No) > 0 Then

Dim No As Long
No = CLng(DMax(“受注No”, “TB_受注伝票”)) + 1
Me.受注No = No

End If

End Function