请问做个能按年份+序号自动编号的文本框，怎么做？

dhwc　发表于：2014-04-30 20:59:38 　

复制

想做一个表有序号字段，需要这个序号能够按年度重排，比如今年20140001、20140002....然后20150001、20150002....该怎么弄？？我参考论坛的一个例子修改了下，但是有错误。

出错的很奇怪，居然会出现两个一样的序号，有时候直接报错“语法错误操作符丢失...”兄弟们能看看哪错了吗？感激不尽！！

点击下载此附件

Top

小赵发表于：2014-04-30 21:43:29

高效的年月日的自动编号函数
http://www.accessoft.com/article-show.asp?id=7351

Top

dhwc 发表于：2014-05-01 10:29:12

谢谢楼上的兄弟，但是改了下报错运行时错误 '-2147352567 (80020009)' 您为该字段输入的值无效!

达人们指点下哪儿错了啊？？？

Top

dhwc 发表于：2014-05-01 12:57:36

按钮代码如下：

Option Compare Database

Private Sub Command6_Click()
On Error GoTo Err_Command6_Click
Dim x As Long
Dim b As Integer
Dim c As Integer

x = DLookup("[序号]", "信访登记台账", "[序号] =" & DLast("[序号]", "信访登记台账"))
b = Left(x, 4)
c = Format(Now, "yyyy")

If b = c Then

DoCmd.GoToRecord , , acNewRec
序号.SetFocus
序号.DefaultValue = x + 1

ElseIf b <> c Then
DoCmd.GoToRecord , , acNewRec
序号.SetFocus
序号.DefaultValue = Format(Now, "yyyy") & "0001"

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Exit_Command6_Click:
Exit Sub

Err_Command6_Click:
MsgBox Err.Description
Resume Exit_Command6_Click
End If
End Sub

上面哪错了啊？？？恳请指教

Top

网行者发表于：2014-05-01 16:14:50

参照红色部分：

Option Compare Database

Private Sub Command6_Click()
On Error GoTo Err_Command6_Click
Dim x As Long
Dim b As Integer
Dim c As Integer

x = DLast("[序号]", "信访登记台账")
b = Left(x, 4)
c = Format(Now, "yyyy")

If b = c Then