自动编号格式

Question

我目前有一个自动编号字段，格式为“ \ E00000”。

经过一番思考后，我想将自动编号更改为制作日期（今天的日期），然后再将其更改为增量值，因为一天可能要进行多次记录。

示例-E11072018-01或-E11 / 07 / 2018-01

如果可以将其创建为自动编号，请告诉我。

Answer 1

您可以使用该奇特表达式获取下一个“数字”：

= Format(Date(), "\Nddmmyyyy\-") & Format(Nx(DMax("Val(Right([NumberField], 2))", "[SomeTable]", "[NumberField] Like Format(Date(), '\Nddmmyyyy\-??'"), 0), "00")

当然，用您的字段和表名称替换。

要在 BeforeInsert 事件中设置值：

Me!NumberField.Value = Format(Date(), "\Nddmmyyyy\-") & Format(Nx(DMax("Val(Right([NumberField], 2))", "[SomeTable]", "[NumberField] Like Format(Date(), '\Nddmmyyyy\-??'"), 0), "00")