如何通按钮实现批量自动生成自定义编号

snryga

我有一个表是通过EXCEL导入，其中一列序号为空。如何在窗体上通过按钮批量生成自定义序号，序号的起始为已有序号最大值开始。
如下：
序号             名称
A20005        QQ
                    WW
                    EE
                    RR
                    TT
。。。。。。
结果实现：
序号             名称
A20005        QQ
A20006         WW
A20007         EE
A20008         RR
A20009         TT
。。。。。。

roych

其实……搜一下吧，论坛上关于自动编号的帖子太多了。
http://www.office-cn.net/thread-114014-1-1.html

snryga

这个例子只能生成一个序号，我是想一次性对所有没有序号的全部按规则生成且更新到表中。

admin

搜索一下论坛，自动编号的代码 运行一次，用update 更新就可以了。

snryga

Public Function AutoNumStr(TableName As String, _
                           FieldName As String, _
                           Digit As Integer, _
                           Optional Prefixal As String, _
                           Optional DateFormat As String)
    On Error GoTo ErrorHandler
    Dim strPrefixal As String
    Dim strTemp     As String
   
    strPrefixal = Prefixal
    If DateFormat <> "" Then strPrefixal = strPrefixal & Format(Date, DateFormat)
    If strPrefixal <> "" Then strTemp = "[" & FieldName & "] Like '" & strPrefixal & "*'"
    strTemp = Nz(DMax(FieldName, TableName, strTemp), "0")
    strTemp = Val(Mid(strTemp, Len(strPrefixal) + 1)) + 1
    strTemp = Format(strTemp, String(Digit, "0"))
    AutoNumStr = strPrefixal & strTemp
   
Done:
    Exit Function
   
ErrorHandler:
    MsgBox "错误编号：  #" & Err & vbCrLf & _
           "错误来源：  " & Err.Source & vbCrLf & _
           "错误信息：  " & Err.Description, vbCritical, "出错"
    Resume Done
End Function

Private Sub 新增1_Click()
Me![序号] = AutoNumStr("序号合并", "序号", 5, "LS", "")
End Sub

update用在哪里呢，这个整不来？