Office中国论坛/Access中国论坛

标题: 求“年份”+“记录序号”自动生成如2013-0001的数据递增格式做法 [打印本页]

作者: 大尾巴牛 时间: 2013-1-13 11:39
标题: 求“年份”+“记录序号”自动生成如2013-0001的数据递增格式做法
本帖最后由大尾巴牛于 2013-1-14 20:23 编辑

本人初学access（从上周二上午9:30开始），目前的表中需建立一个“销售记录编号”字段，并设置为主键，要求是不重复的，可以排序、查询用，第一行为2013-0001，第二行为2013-0002，以此类推，最多不超过9999个数据，到明年设置为2014-0001......，以此类推。
各位大侠，该怎么做啊，不会需要用代码吧？
我刚注册，没办法弄回帖奖励，不过可以小小的其他奖励一下，比如说......。{:soso_e113:}

作者: Henry D. Sy 时间: 2013-1-13 11:45
format(date,"yyyy") &"-"& format(编号,"0000")
只是思路不是代码

作者: 大尾巴牛 时间: 2013-1-13 11:52
本帖最后由大尾巴牛于 2013-1-13 11:53 编辑

哇老兄你好厉害，多谢多谢了，明天我去单位试一试！
话说我还有一张手机充值卡......
不过这个可以自动递增麽？

作者: 大尾巴牛 时间: 2013-1-13 11:55

Henry D. Sy 发表于 2013-1-13 11:45
format(date,"yyyy") &"-"& format(编号,"0000")
只是思路不是代码

哇老兄你好厉害，多谢多谢了，明天我去单位试一试！
话说我还有一张手机充值卡......
不过这个可以自动递增麽？

作者: Henry D. Sy 时间: 2013-1-13 12:20
本帖最后由 Henry D. Sy 于 2013-1-13 12:26 编辑

哇老兄你好厉害，多谢多谢了，明天我去单位试一试！
话说我还有一张手机充值卡......
不过这个可以自动 ...

Option Compare Database
Option Explicit
Dim strbh As String
Dim intNo As Integer
Private Sub Command4_Click()
Dim sSQL As String
If Not IsNull(Me.编号) And Not IsNull(Me.名称) Then
sSQL = "insert into 表1(编号,名称)values('" & strbh & "','" & Me.名称 & "')"
CurrentDb.Execute sSQL
sSQL = "delete from bh"
CurrentDb.Execute sSQL
sSQL = "insert into bh(bh)values(" & intNo & ")"
CurrentDb.Execute sSQL
MsgBox "OK"
Me.编号 = Null
Me.名称 = Null
End If
End Sub
Private Sub 名称_GotFocus()
intNo = Nz(DLookup("bh", "bh"))
intNo = intNo + 1
strbh = Format(Date, "yyyy") & "-" & Format(intNo, "0000")
Me.编号 = strbh
End Sub

复制代码

[attach]51098[/attach]

作者: 大尾巴牛 时间: 2013-1-13 13:54

Henry D. Sy 发表于 2013-1-13 12:20

It`s,really hard for me,I don`t understand at all.I beg your pardon,sir?

作者: 大尾巴牛 时间: 2013-1-13 14:21
能给我逐行解释一下吗？

作者: todaynew 时间: 2013-1-13 14:35
在标准模块中写一个自定义函数，然后在追加查询，或者其他地方引用这个函数即可。

Function newNum(MyDate as Date) as string
'示例：insert into 销售表 (销售记录编号,销售日期,销售对象)
' values (newNum(#2013/1/15#),#2013/1/15#,'国际贸易公司')
Dim str as string
Dim num as long
'取当年最大编号
str=Nz(Dmax("销售记录编号","销售表","year(销售日期)=" & year(MyDate)),Format(year(MyDate),"0000") & "-0000")
'取最大号中的数字部分
num=val(right(str,4))
'拼接新编号字符串,并返回函数值
newNum=Format(year(MyDate),"0000") & "-" & format(num+1,"0000")
end function

作者: 大尾巴牛 时间: 2013-1-13 21:49
是不是改为“年份”+“行数”比较好解决呀，反正是从“2013-0001”开始的？

作者: 大尾巴牛 时间: 2013-1-14 17:07
我总以为这个很简单的。

作者: todaynew 时间: 2013-1-16 12:56
本帖最后由 todaynew 于 2013-1-16 13:04 编辑

大尾巴牛发表于 2013-1-14 17:07
我总以为这个很简单的。

不是很简单，而是异常简单。

问题只在于你打算怎么折腾这个问题而已。比如你是想要对现有的记录编制一个有规律的编号？还是想要单独设置一个可以自增的编号字段？你是想在前台显式的解决新增问题？还是想在后台隐蔽的解决新增问题？由于要求的不同，处理的具体方法和手段有些许差异罢了。

如果只是想对现有记录编出一个号来，就非常的简单。假设你的数据表中至少包含这么两个字段：销售ID、销售日期，则：

select year(销售日期) & format(Dcount("*","销售表","year(销售日期)=" & year(销售日期) & " and 销售ID<=" & 销售ID ),"0000") as 销售单编号,* from 销售表

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