怎么在自动编号前加上日期？我站着等!

spook_hui

哥哥们，姐姐们，我站得好累。可怜可怜我吧~~~~~~~~

wuaza

前提是你已经有了一个自动编号字段，然后通过查询中加入计算字段date()&[自动编号字段]生成一个前面带日期的新字段。

spook_hui

那明天的编号的序号不是接着今天的往下了吗？

20050910085是今天最后一条的话，明天第一条不就是20050911086了吗？

顺便问一下，自动编号里可不可以用STR取字符？

取日期字符的话，我应该设置成什么类型？各种取字符的函数，能有哪位能给我例举下吗？我这里代表我全家人，向您说声谢谢了。

wuaza

只能在窗体中实现了Me.自动编号 =Format(Date, "yymmdd") & Format(Nz(DMax("Right(自动编号, 4)", "表名", "left(自动编号,6)='" & Format(Date, "yymmdd") & "'")) + 1, "0000")如200405160001，200405160002，200405160003，200405170001，……

spook_hui

我笨。。。文件传上来，请大侠指点迷津

spook_hui

wuaza

你先把记录ID控件绑定到记录ID，然后写入下面的代码（最好做个新增记录的按钮，在按钮的单击事件中写代码）

Private Sub 记录ID_Enter()

Me.记录ID = Format(Date, "yymmdd") & Format(Nz(DMax("Right(记录ID, 4)", "计划保养", "left(记录ID,6)='" & Format(Date, "yymmdd") & "'")) + 1, "0000")

End Sub

[此贴子已经被作者于2005-9-11 10:01:44编辑过]

spook_hui

谢谢你啊!!!!我去试试!

ljbking

Me.记录ID试了不行啊，一定要手工输入ID,否则会提示“索引或关键字不能是一个空(null)值".如何解决?

qianshou

我来看看···

不过提不出什么意见的··

我在学··