按年月自动编号怎么做？

luo3212　发表于：2013-12-21 11:45:27 　

参考LiShiping老师的例子 http://www.accessoft.com/article-show.asp?id=7351

我想要的编号格式是 1312001 1312002 1312003 下月又从001开始。

谢谢各位老师！

麥田发表于：2013-12-21 12:33:01

用快速平台就可以了里面就有按月编号用法第七章窗体部分

Access2003快速开发案例教程:
http://www.accessoft.com/article-show.asp?id=8796
Access2007快速开发案例教程:
http://www.accessoft.com/article-show.asp?id=8806
Access2010快速开发案例教程:
http://www.accessoft.com/article-show.asp?id=8810

Top

老邹发表于：2013-12-21 14:43:06

这个是我在自已开发的应用程序中编写的代码，绝对是你想要的。

在窗体加载事件中添加以下代码：

Dim x,zyh As Long
Dim b,c As Integer

  x = DLookup("[zuyuanhao]", "b_zuyuanbinren", "[zuyuanhao] =" & DMax("[zuyuanhao]","b_zuyuanbinren"))   '把你面的字段名称和表名称改成你自已的
b = Left(x, 4)
c = Format(Now, "yy") & Format(Now, "mm")
    If b = c Then
     zyh = x + 1
     Me.zuyuanhao.DefaultValue = zyh
     DoCmd.GoToRecord , , acNewRec
   Else
    zyh = c & "001"
    Me.zuyuanhao.DefaultValue = zyh
    DoCmd.GoToRecord , , acNewRec
   End If

Top

桑松木发表于：2013-12-21 21:18:02

点击下载此附件

Top

网行者发表于：2013-12-22 06:32:21

日期/月份为变量的自动编号（自动续号）函数http://www.accessoft.com/blog/article-show.asp?userid=12122&Id=8478

高效的自动编号函数http://www.accessoft.com/blog/article-show.asp?userid=12122&Id=7903

Top

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

Access交流中心

按年月自动编号怎么做？