Office中国论坛/Access中国论坛

标题: 自动编号求助！！！！ [打印本页]

作者: tsweiwei 时间: 2009-1-8 20:51
标题: 自动编号求助！！！！
我做的很久的一个自动编号的例子，能自动生成有一个“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

[attach]34390[/attach]

作者: 阿六爱狗 时间: 2009-4-8 13:47
关注中

作者: sunwrsun 时间: 2009-7-21 23:48
学习学习

作者: sunwrsun 时间: 2009-7-21 23:49
学习学习

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)