安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假

access创建自定义递增自动编号(不固定位数)

2018-04-28 07:59:00
tmtony8
原创
2741

有网友在使用access通用?#25945;?#20013;用到自动编号。但是?#25945;?#23450;义的所有自动编号格式是前缀+固定位数的编号。

这位网友希望的格式是前缀+编号(位数是不固定的)。即自然数1向上递增到2位数,就是自然增长.C-1....到C-10


如图所示,每一次添加数据都会递增1,如此类推


自定义自动编号函数:

Function AutoNumerical(strQz As String, FieldName As String, TableName As String)
    
    Dim Auto As String
    
    Auto = Nz(DMax("val(mid(编号," & Len(strQz) + 1 & "))", TableName)) + 1
    AutoNumerical = strQz & Auto
    

End Function



在窗体中调用该函数

Private Sub Form_Current()    
    Me.编号 = AutoNumerical("FC", "编号", "tbl1")    
End Sub



多次数据添加后的,数据如表所示:

    分享
    ? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:19
    内存占用:7.75MB
    PHP 执行时间:0.17
    双色球大奖2000年
    安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假
    雷霆万钧意思 记忆盛宴电子游戏 西游争霸 打法 老板发财熊猫表情包 爵士vs小牛重播 广西快3计划群 锁子甲电子游艺 手机港式五张 福彩快三计划神器 大丰收电子游戏