如何编号

whp1234　发表于：2018-01-17 10:09:12 　

复制

SXSJSJ1801170811 ：

SXSJSJ（固定编号）

18 （年）

01（月）

17（日）

0811（点）

请问高手如何编程，让它生成一个完整的编号!

Top

麥田发表于：2018-01-17 10:17:52

那你下载Access快速开发平台学习吧

Access快速开发平台下载地址如下:

http://www.accessgood.com/

教程如下:
完整版案例开发《报销管理系统》操作步骤教程

http://www.accessoft.com/rdp/tutorial.html
配套的视频见QQ群文件《Access数据库快速开发视频教程》下载学习，Access视频教程QQ群 198465573

实现的功能演示图:

Top

半夜罗发表于：2018-01-21 16:54:57

       Dim str日期格式 As String
      Dim str最大序号 As String
       Dim str单据编号 As String
      Dim str序号 As String

        str日期格式 = Format(Me.日期, "yymm-")
        str最大序号 = Nz(DMax("right ([单据编号],3)", "销售单", "left([单据编号],5) = '" & str日期格式 & "'"), "")
        str单据编号 = str日期格式 & Format(Val((str最大序号)) + 1, "000")
        rst!单据编号 = str单据编号
        Me.单据编号 = str单据编号

Top

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

Access交流中心

如何编号