Office中国论坛/Access中国论坛

标题: 怎么在自动编号前加上日期？我站着等! [打印本页]

作者: spook_hui 时间: 2005-9-11 04:59
标题: 怎么在自动编号前加上日期？我站着等!
哥哥们，姐姐们，我站得好累。可怜可怜我吧~~~~~~~~

作者: wuaza 时间: 2005-9-11 05:04
前提是你已经有了一个自动编号字段，然后通过查询中加入计算字段date()&[自动编号字段]生成一个前面带日期的新字段。

作者: spook_hui 时间: 2005-9-11 05:16
那明天的编号的序号不是接着今天的往下了吗？

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

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

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

作者: wuaza 时间: 2005-9-11 05:29
只能在窗体中实现了Me.自动编号 =Format(Date, "yymmdd") & Format(Nz(DMax("Right(自动编号, 4)", "表名", "left(自动编号,6)='" & Format(Date, "yymmdd") & "'")) + 1, "0000")如200405160001，200405160002，200405160003，200405170001，……

作者: spook_hui 时间: 2005-9-11 05:38
标题: 我笨。。。文件传上来，请大侠指点迷津
我笨。。。文件传上来，请大侠指点迷津

作者: spook_hui 时间: 2005-9-11 05:38
标题: 重传
[attach]13030[/attach]

作者: wuaza 时间: 2005-9-11 06:16
你先把记录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 时间: 2005-9-11 08:11
谢谢你啊!!!!我去试试!

作者: ljbking 时间: 2005-9-11 16:13
Me.记录ID试了不行啊，一定要手工输入ID,否则会提示“索引或关键字不能是一个空(null)值".如何解决?

作者: qianshou 时间: 2005-11-12 18:30
我来看看···

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

我在学··

作者: qianshou 时间: 2005-11-12 18:30
不好意思···

还是不懂···

作者: yttzm 时间: 2005-11-22 06:08
标题: [推荐]日期＋自动编号

可实现系统日期＋自动编号的例子。

[attach]14605[/attach]

[此贴子已经被作者于2005-12-7 10:29:17编辑过]

作者: mikimiki 时间: 2006-1-21 06:40
好，谢谢，终于找到了。

作者: mikimiki 时间: 2006-1-21 06:41
可是它说我要交税“3帖”才能下。

作者: outlookpc 时间: 2008-9-10 20:50
谢谢谢

作者: 19720205 时间: 2010-6-3 15:03
下载学习.谢谢12#提供资料.

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)