窗体中如何自动生成顺序号？

毛毛的喜洋洋　发表于：2011-11-30 09:36:39 　

复制

数据请看附件，内有“表1”及“村居索引”两个表，要求在窗体中输入对应的“村居号”后，在档案号中自动生成顺序号，顺序号格式及规律如下：

“固定值-街道号-村居号-顺序号”

440184-001-001-00001

440184-001-001-00002

440184-001-001-00003

……

440184-001-006-00001

440184-001-006-00002

……

440184-xxx-xxx-00001

……

注:440184为固定值，第二段数据为街道编号，根椐第三段决定，第三段为村居号，在“村居索引”中有相应号码，村居号从001到208，对应的街道编号为001，村居号为xxx时，对应的街道编号为xxx，最后一段为顺序号。本人曾用以下代码尝试编号，但所得的序号为总的顺序号，并非每个居委的顺序，求解？？

Private Sub 村居号_Enter()
    If IsNull(档案号.Value) Then
    档案号.Value = "440184-001-" & [村居号] & Format(CLng(DCount("[村居号]", "表1",[村居号] = Mid([档案号], 12, 3)) + 1), "-00000")
    End If
End Sub

点击下载此附件

Top

叶海峰发表于：2011-11-30 10:58:37

Private Sub 村居号_AfterUpdate()

If IsNull(档案号.Value) Then

档案号.Value = "440184-001-" & Me.村居号 & Format(CLng(DCount("[村居号]", "表1", "Mid([档案号], 12, 3)=" & Me.村居号) + 1), "-00000")

End If

End Sub

Top

总记录：1篇页次：1/1 9 1 :

Access交流中心

窗体中如何自动生成顺序号？