自定义用户自动编号

Question

我一直在寻找解决我遇到的这个自动编号问题的方法。似乎在任何地方都没有明确的答案。

我有一个带有文本字段的表单。

我希望此表单显示表中字段中的下一个数字。

示例：该表包含 3 条记录，值为 D001、D002、D003

表单用于输入新记录（新数据）。因此，下次输入数据时，我希望 D004 自动显示在表单中数据代码的文本字段中。

如何做到这一点？

Answer 1

您可以使用表单的 BeforeInsert 事件：

Me!AutoNumber.Value = Format(Val(Nz(Right(DMax("[AutoNumber]", "[YourTable]"), 3), 0)) + 1, "D000")

Answer 2

这是这样做的 1 种方法是创建一个函数来处理您拥有的自动编号问题

create function NextAutoNumber() 
returns char(4) 
as 
begin 
    declare @lastval char(4) 
    set @lastval = (select max(autoNumber) from table) 
    if @lastval is null set @lastval = 'D001' 
    declare @i int set @i = right(@lastval,3) + 1 return 'C' + right('00' + convert(varchar(10),@i),3) 
end

像这样，您可以随时调用该函数并插入记录所需的自动编号