编号不连续问题新解

时　间:2010-03-21 16:35:47
作　者:-翱翔-   ID：10495  城市：沈阳
摘　要:连续编号！
正　文:

   经历了一个多月的自学，今天我终于做出了第一系统。该系统是一个自动编号的系统。原打算用直接用表里的“自动编号“但发现一旦取消抄作，或者其他原因，表里的编号就不连续了。。。想了很久。用了一个很简单的方法解决了。在这个学习过程中，很感谢ACCESS软件网，他给我们免费提供了很多的信息，还有QQ群里面的老师对我的帮助。。我很高兴！做的不好。希望大家多多指教~

附件已更新至发文系统ORG！！！

Private Sub Command33_Click()
DoCmd.Quit
End Sub

Private Sub Command8_Click()
DoCmd.Close
End Sub

Private Sub Form_Load()
    DoCmd.GoToRecord , , acLast

    DoCmd.RunCommand acCmdAppMinimize
    Label35.Visible = False

End Sub

Private Sub Command18_Click()
    If Not IsNull(编制) Then
        Label21.Caption = 编号后缀 + 1
        Label35.Visible = True
   
        Label16.Caption = "S2B-" & 发文类型 & 专业编号 & "-" & 编号后缀 + 1
    Else
    MsgBox "请在编制里输入您的姓名！", vbOKOnly, "温馨提示"
    End If

End Sub

Private Sub Command7_Click()

    DoCmd.GoToRecord , , acNewRec
    编号后缀 = Label21.Caption
    Text19 = Label16.Caption
  
End Sub