关于编号的问题

青苹

编号有个基本要求：按TH字段的第9位开始编，起始值为000-9999
比如：JL1.222.000,是第一个号码，JL1.222.9999是这组编号的最后号码。
现在的问题是到了1000号出了问题，比如按例子，x选8.987. TH还是JL8.987.1000,不能自动增加，难度就在三位编号跨四位


谢谢大家了！！！

Henry D. Sy

什么意思，

todaynew

好像是少用了一个VAl函数。





Private Sub wjbh_AfterUpdate()
  Me.th = DLookup("[newth]", "查询1")
End Sub

Private Sub 保存_Click()
  Dim sql As String
  DoCmd.SetWarnings no
  If Not (IsNull(Me.wjbh)) Then
     sql = "INSERT INTO tblbz_FH ( th, wjbh ) "
     sql = sql + "SELECT Forms!窗体1!th AS th, [Forms]![窗体1]![wjbh] AS wjbh;"
     DoCmd.RunSQL sql
     Me.窗体2.Form.Requery
     Me.th = DLookup("[newth]", "查询1")
  End If
End Sub

[ 本帖最后由 todaynew 于 2009-1-9 17:54 编辑 ]

青苹

不错，又是一种新思路，谢谢啦！！！！

todaynew

不客气。
[:24]

changweiren

ok,学习学习