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

Henry D. Sy

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
    

复制代码