Office中国论坛/Access中国论坛

标题: 关于按照年自动编号归零(已解决) [打印本页]

作者: zss427607 时间: 2009-2-6 13:41
标题: 关于按照年自动编号归零(已解决)
本帖最后由 zss427607 于 2009-2-9 18:59 编辑

各位好
本人想根据年号（比如2009年）进行自动编号归零，重新开始并且备份去年的全部数据。

不知能否实现

先谢谢了

见附件

作者: ACMAIN_CHM 时间: 2009-2-6 13:55
能实现.虽然不推荐。我一般尽力说服我的用户放弃这种编号观念。2009001这种编号已经没有任何意义。以前纸质存档的检索需求在当今的电子档没什么意义。
你可以mid(dmax('sno','tbl','sno like "*' & year(date()) & '*"',5) 得到上次的最大号，然后加1，不过小心多用户并发的情况。如果要避免并发，可以采用一个编号序列来实现。
备份去年的全部数据
不知道你的备份是什么个意思，是到磁带？光盘？还是异地存储。一般来说 select * from yourTable where cdate between #2008-01-01# and #2008-12-31#这种方式来实现。 insert 到服务器共享目录中，或到目录备份路径然后调去磁带或其它备份应用程序。

******************
* 一切皆有可能 *
******************
QQ群 48866293 / 12035577 / 7440532 / 13666209
http://forum.csdn.net/SList/Access .
http://www.accessbbs.cn/bbs/index.php .
http://www.accessoft.com/bbs/index.asp .
http://www.access-programmers.co.uk/forums .
http://www.office-cn.net .
.
http://www.office-cn.net/home/space.php?uid=141646 .

作者: zss427607 时间: 2009-2-6 21:11
ACMAIN_CHM 谢谢了
我的意思是
一编号
2008年12月31日23：59：59 甲班自动编号累计到12301
到了2009年1月1日00：00：00 甲班自动编号为00001
二备份
2008年12月31日23：59：59 自动备份（2008年的产量表）
到了2009年1月1日00：00：00 自动生成（2009年的产量号表）

作者: tdhgj 时间: 2009-2-23 19:57
good

作者: xjliyuehua 时间: 2009-5-22 13:28
本帖最后由 xjliyuehua 于 2009-5-22 13:30 编辑

Me.编号 = Format(Date, "yyyy") & Me.组合4 & Format(Nz(Right(DMax("[编号]", "XXXX", "left([编号],6)='" & Format(Date, "yyyy") & "' & '" & Me.组合4 & "'"), 3)) + 1, "000")

xxxx为你的窗体名

------------------------------完整的------------------------

Private Sub 组合4_AfterUpdate()

  Me.组合4.SetFocus
  Me.类别 = Me.组合4.Column(1)
'  If MsgBox("你确定要修改吗？", vbYesNo, "请确认……") = vbYes Then
'  SendKeys "{enter}"
'Else
'  SendKeys "{esc}"
'End If

  Me.编号 = Format(Date, "yyyy") & Me.组合4 & Format(Nz(Right(DMax("[编号]", "XXXX", "left([编号],6)='" & Format(Date, "yyyy") & "' & '" & Me.组合4 & "'"), 3)) + 1, "000")
Me.收文编号 = Format(Nz(Right([编号], 3)), "000")
Me.文号 = Me.类别 & "(" & Format(Date, "yyyy") & ")" & Format(Nz(Right([编号], 3)), "000") & "号"
End Sub

作者: xjliyuehua 时间: 2009-5-22 13:34
第2问题给你个源码

作者: yangzhesheng 时间: 2009-6-6 07:19
学习学习

作者: yihesmxx 时间: 2010-7-12 18:11
学习学习

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