自动编号求助！！！！

tsweiwei

我做的很久的一个自动编号的例子，能自动生成有一个“yyyymmdd-xx”，xx是两位数的编号，
     但是有一个缺陷是：
     在多人使用时，在有人录入时，自动生成的编号有重复，比如：有一个人正在录入假设生成的编号是20090108-12，在这个人录入的同时，另外一个人也登录录入，自动生成的编号也是20090108-12，本应该是20090108-13
     谁能帮忙解决一下吗？

案件录入窗体插入前编码如下：
d = DLookup("inum", "编号", "date =#" & Format(Date, "yyyy/mm/dd") & "#")
If IsNull(d) Then  '若找不到
    Set d1 = CurrentDb.OpenRecordset("编号")
    d1.AddNew   '新增
    d1("date") = Date
    d1("inum") = 0
    d1.Update
    d = 0
End If
Me![编号] = Format(Date, "yyyymmdd") & "-" & Format(d + 1, "00") '加1后显示

案件录入窗体更新前编码如下：
If Me.NewRecord = True Then  '若为新记录
    Set b = CurrentDb.OpenRecordset("select * from 编号 where date =#" & _
         Format(Date, "yyyy/mm/dd") & "#") '取得今日编号记录
    X = Right(Me![编号], 2)
    b.Edit
    b("inum") = CInt(X)   '回存目前使用编号
    b.Update
End If

阿六爱狗

关注中

sunwrsun

学习学习

sunwrsun

学习学习