为访问表创建自定义主键

Question

我正在寻找一种为访问表制作自定义主键的方法。我要做的是做一些像C01234＆＃39;。一开始的字母表有一些目的，因此必须在那里。

我知道有一种方法可以使用自动编号的PK字段并使用DMax函数创建自定义字段。这样的事情：Custom primary key for MS Access。但我正在寻找的是不使用其他字段并使用代码完全生成字母数字PK。

是否可以使用Access宏？有没有其他方法这样做？

Answer 1

如果您使用表单，请使用BeforeInsert事件：

Dim Prefix As String
Dim Digits As Integer

Prefix = "C"
Digits = 5

Me!CustomID.Value = Prefix & Right(String(Digits, "0") & CStr(Val(Right(DMax("CustomID", "YourTable", "CustomID Like '" & Prefix & "*'"), Digits)) + 1), Digits)