求“年份”+“记录序号”自动生成如2013-0001的数据递增格式做法

大尾巴牛

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

Henry D. Sy

format(date,"yyyy") &"-"& format(编号,"0000")
只是思路不是代码

大尾巴牛

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

大尾巴牛

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

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

Henry D. Sy

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

1. Option Compare Database
   
2. Option Explicit
   
3. Dim strbh As String
   
4. Dim intNo As Integer
   
5. 
   
6. Private Sub Command4_Click()
   
7.     Dim sSQL As String
   
8.     If Not IsNull(Me.编号) And Not IsNull(Me.名称) Then
   
9.         sSQL = "insert into 表1(编号,名称)values('" & strbh & "','" & Me.名称 & "')"
   
10.         CurrentDb.Execute sSQL
    
11.         sSQL = "delete from bh"
    
12.         CurrentDb.Execute sSQL
    
13.         sSQL = "insert into bh(bh)values(" & intNo & ")"
    
14.         CurrentDb.Execute sSQL
    
15.         MsgBox "OK"
    
16.         Me.编号 = Null
    
17.         Me.名称 = Null
    
18.     End If
    
19. End Sub
    
20. 
    
21. Private Sub 名称_GotFocus()
    
22.     intNo = Nz(DLookup("bh", "bh"))
    
23.     intNo = intNo + 1
    
24.     strbh = Format(Date, "yyyy") & "-" & Format(intNo, "0000")
    
25.     Me.编号 = strbh
    
26. End Sub
    

复制代码

大尾巴牛

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?

大尾巴牛

能给我逐行解释一下吗？

todaynew

在标准模块中写一个自定义函数，然后在追加查询，或者其他地方引用这个函数即可。

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-0001”开始的？

大尾巴牛

我总以为这个很简单的。