今天图老师小编给大家介绍下Access 新手来看：编号的生成问题，平时喜欢Access 新手来看：编号的生成问题的朋友赶紧收藏起来吧！记得点赞哦~
【 tulaoshi.com - 编程语言 】
问题：
（本文来源于图老师网站，更多请访问https://www.tulaoshi.com/bianchengyuyan/）（本文来源于图老师网站，更多请访问https://www.tulaoshi.com/bianchengyuyan/）我跟你说说我这边的情况吧。好像工号03－0756－004－1JF，表示：03表示03年生产，0756是合同号，004表示对方单位的编号，1表示合同的第几项，JF是表示车间。你说这样的工号会不会很烦？
回答：
我只能说，你在设计数据结构的时候就已经错误了。
很多程序员认为 “编号”是一个字段，在计算机中这的确是正确的，但是，在计算机中，编号是没有含义的，没有语法、没有组合、没有任何意义，仅表示记录的唯一标识。而实际生产中，编号往往包含很多意义（除非你使用数据库查询系统来管理随机编号）。因此就像你说的，编号的每个部分都有含义。所以，应该以每个部分为最小单位来建立数据库结构。简单的说，就是 生产日期、合同号、对方单位编号、车间分几个字段存储，这也可以说是“原子性”扩展。其实 SQL 不仅仅可以查询数据，还可以组织数据，比如
select 日期 & 合同号 & 单位号 & 车间 as 编号,全名 from 产品表
问题：
（本文来源于图老师网站，更多请访问https://www.tulaoshi.com/bianchengyuyan/）（本文来源于图老师网站，更多请访问https://www.tulaoshi.com/bianchengyuyan/）但很惨的是：录入员已经习惯很连续地录入03－0456－002－4JF这样的工号了，叫他们分开来录入，恐怕很麻烦。
回答：
你可以在保存按钮上写点代码切分数据，即使连续窗体也可以在 BEFOREUPDATE事件里面写代码。代码可以类似：
Sub SplitString()
Dim strA() As String
strA() = Split(Me.TextBoxA, "-")
Dim i As Integer
For i = 0 To UBound(strA)
Debug.Print strA(i)
Me("TextBox" & i).value=strA(i)
Next
End Sub
来源:https://www.tulaoshi.com/n/20160219/1616225.html
看过《Access 新手来看：编号的生成问题》的人还看了以下文章 更多>>
