可以制作日期流水号吗？

eio

诸如领料单，希望以“200208240001”“200208240002”……的格式自动填写单号，其中20020824是今天的日子，0001是序号，当然，如果明天输入，就是200208250001啦

HG

可以呀。cstr(format('ddddmmyy',date)+cstr(identity()))
identity()借用的，在這里代表你的序號，也許是自動編號。

eio

在什么事件下触发？

cattjiu

beforeUpdate

eio

在领料单处修改吧！
文件下载[em27][em27]

HG

天呀，您可以貼自憶的代碼上來，讓網友們看嗎？您總是打包放在哪里，其實真正DOWN下您的數據庫的人，我覺得不多，即是有部份，他她們，也想看您的代碼，有沒有更值得學習的地方。
如果您貼上自己的代碼，我想回貼率更高。

cattjiu

我试了一下,只做到“200208241”“200208242",而不是“200208240001”“200208240002",忘记了一个可以补0的方法了,比方= 补字函数(要补的字符,要补的数量),我原来用过的,请大侠指点.


Private Sub 经手人_AfterUpdate()
Dim No11
Dim datea
datea = Format(Me.领料日期, "yyyy-mm-dd")
No11 = DCount("[单号]", "领料表", "[领料日期]=#" & datea & "#")
Me.单号 = Format([领料日期], "yyyymmdd") & No11
End Sub

[此贴子已经被cattjiu于2002-8-23 14:00:19编辑过]

eio

（1）：领料缺乏“经手人”和“领料人”可能不同。
（2）：格式已经修正为200208240001
（3）：第一张单为200208240001而非200208240。


Private Sub 员工ID_AfterUpdate()
Dim No11
Dim datea
datea = Format(Me.领料日期, "yyyy-mm-dd")
No11 = DCount("[单号]", "领料表", "[领料日期]=#" & datea & "#") + 1
Me.单号 = Format([领料日期], "yyyymmdd") & Format(No11, "0000")

End Sub

HG

哈哈...

Roadbeg

哈哈!
eio 的单号设计与我设计的颇有共通之处:
你的单号是:年(4位)+月(2位)+日(2位)+4位流水号
而我的是 :单据类别(3位)+年(2位)+月(2位)+5位流水号