关于按照年自动编号归零(已解决)

zss427607

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

不知能否实现

先谢谢了

见附件

ACMAIN_CHM

能实现.虽然不推荐。 我一般尽力说服我的用户放弃这种编号观念。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

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

good

xjliyuehua

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

第2问题给你个源码

yangzhesheng

学习学习

yihesmxx

学习学习