设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 2544|回复: 4

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

[复制链接]
发表于 2019-3-26 10:41:02 | 显示全部楼层 |阅读模式
我有一个表是通过EXCEL导入,其中一列序号为空。如何在窗体上通过按钮批量生成自定义序号,序号的起始为已有序号最大值开始。
如下:
序号             名称
A20005        QQ
                    WW
                    EE
                    RR
                    TT
。。。。。。
结果实现:
序号             名称
A20005        QQ
A20006         WW
A20007         EE
A20008         RR
A20009         TT
。。。。。。
发表于 2019-3-26 11:40:56 | 显示全部楼层
其实……搜一下吧,论坛上关于自动编号的帖子太多了。
http://www.office-cn.net/thread-114014-1-1.html
 楼主| 发表于 2019-3-26 12:53:33 | 显示全部楼层
这个例子只能生成一个序号,我是想一次性对所有没有序号的全部按规则生成且更新到表中。

点击这里给我发消息

发表于 2019-3-27 10:44:00 | 显示全部楼层
搜索一下论坛,自动编号的代码 运行一次,用update 更新就可以了。
 楼主| 发表于 2019-3-28 15:02:45 | 显示全部楼层
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用在哪里呢,这个整不来?
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-3-28 23:01 , Processed in 0.084535 second(s), 29 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表