myao　发表于：2016-02-21 20:52:12 　

设计ACCESS的自动编号，每个月都重新从0001号开始编号，例如16010001

按添加信息按钮把信息录入到表中，无重复编号，之前自己改进别人的老出现重复编号

求赐教

Top

金宇发表于：2016-02-22 08:29:24

自动编号模块

高效的自动编号函数

你最好将你的示例上传，这样别人可以更好的协助你。

朱先生发表于：2016-02-22 16:01:55

依据提问的16010001格式编写的，如在16020001前还有字母，自行调整

If Format(Me.日期, "MM") <> Val(Nz(Mid(DLast("单号", "表1"),3, 2))) Then
       BB = (Format(Me.日期, "yymm") & 1)
       Me.单号 =  Format(BB), "0000")

End If
以上是在有单号前有字母的代码基础上进行更改的，如有错误望见谅,祝你好运

总记录：2篇页次：1/1 9 1 :

Access交流中心