实例编程：Access新手来看

会计考友

述：以一段聊天记录来解释实际生活中编号的定义方法以及误区
0 K! s! ]$ e5 J, ]& g% |$ y　　问题：
　　我跟你说说我这边的情况吧。好像工号03－0756－004－1JF，表示：03表示03年生产，0756是合同号，004表示对方单位的编号，1表示合同的第几项，JF是表示车间。你说这样的工号会不会很烦？
　　回答：
0 U! @4 b( W. ~. F% b' {　　我只能说，你在设计数据结构的时候就已经错误了。
　　很多程序员认为 “编号”是一个字段，在计算机中这的确是正确的，但是，在计算机中，编号是没有含义的，没有语法、没有组合、没有任何意义，仅表示记录的唯一标识。而实际生产中，编号往往包含很多意义（除非你使用数据库查询系统来管理随机编号）。因此就像你说的，编号的每个部分都有含义。所以，应该以每个部分为最小单位来建立数据库结构。简单的说，就是 生产日期、合同号、对方单位编号、车间分几个字段存储，这也可以说是“原子性”扩展。其实 SQL 不仅仅可以查询数据，还可以组织数据，比如
　　select 日期 & 合同号 & 单位号 & 车间 as 编号,全名 from 产品表
　　问题：
　　但很惨的是：录入员已经习惯很连续地录入03－0456－002－4JF这样的工号了，叫他们分开来录入，恐怕很麻烦。
　　回答：
1 c- E6 f+ _1 g　　你可以在保存按钮上写点代码切分数据，即使连续窗体也可以在 BEFOREUPDATE事件里面写代码。代码可以类似：
　　Sub SplitString()
, {# s# l; N, t) q　　Dim strA() As String
　　strA() = Split(Me.TextBoxA, "-")
　　Dim i As Integer
' t. N4 S1 B! O( }5 x; k　　For i = 0 To UBound(strA)
　　Debug.Print strA(i)
　　Me("TextBox" & i).value=strA(i)
　　Next
  e, t' F. H, e' N+ L8 ]2 m  ~- y　　End Sub