myao　发表于：2016-02-21 21:02:06 　

自动编号，每个月都重新从0001号开始编号例如16020001

单机添加按钮后把信息录入到编号表里

Top

金宇发表于：2016-02-22 08:28:44

自动编号模块

http://www.accessoft.com/article-show.asp?id=10407

高效的自动编号函数
http://www.accessoft.com/article-show.asp?id=7903

Top

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

依据提问的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
以上是在有单号前有字母的代码基础上进行更改的，如有错误望见谅,祝你好运

Top

西出阳关无故人发表于：2016-02-23 10:02:47

Function createNo(Optional tDate As Date) As String
'本函数用于获取按月度进行的编号,文本类型.
'tDate:输入用于编号的日期,如果不输入日期,就使用默认值:即今天
Dim D
If tDate = 0 Then
tDate = Date
End If
D = Nz(DMax("[编号]", "入库单", "编号 like '" & Format(tDate, "yymm") & "*'"), 0) '获取表中已存储的指定月份的编号的最大值
'入库单:用于存储编号的表名称
'编号:表中用于存储编号的字段名称
createNo = Format(tDate, "yymm") & Format(Right(Nz(D), 4) + 1, "0000")
End Function

Top

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

Access交流中心

求助设计自动编号

自动编号，每个月都重新从0001号开始编号例如16020001