北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |
本人初学Access,正在建设一个供应商库。想法是按供应商类型选择的窗体中选定的一二三级分类,自动生成对应的编号再加上四位流水号作为供应商的唯一代码。请看截图:
其中选择各级分类生成对应的类别编号已经搞定,但流水号一直搞不定。参考了网上一下自动编号的代码如下:
Private Sub 三级分类_AfterUpdate()
Me.选择的类别 = Me.一级分类 & ">" & Me.二级分类 & ">" & Me.三级分类
Me.分类代码 = Me.一级分类.Column(1) & "-" & Me.二级分类.Column(1) & "-" & Me.三级分类.Column(1)
Me.保存.SetFocus
Dim MaxID As String
Dim Cod As String
Dim AC As String
Cod = Me.分类代码
If Me.NewRecord = True Then
MaxID = Nz(DMax("right(供应商代码,4)", "供应商信息", "left(供应商代码,11) = 'cod '"), "")
End If
If IsNull(MaxID) Then
AC = Cod & "0001"
Else
AC = Cod & Format(CStr(Val(Right(MaxID, 3) + 1)), "0000")
Me.供应商代码 = AC
End If
End Sub
其实就算这里没错,我也不确定这段代码是否能达成我想要的结果。
请高手不吝赐教啊!多谢!多谢!