Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

Access问答 → 为什么生成相同的编号？

为什么生成相同的编号？

桑松木　 发表于：2010-10-20 04:38:10 　
复制

我用下面的代码想生成格式为 20100101D001 的编号

 

Private Sub Form_BeforeInsert(Cancel As Integer)

Dim mydate As String
Dim mysearial As String
mydate = Format(Date, "yyyymmdd")
If IsNull(DMax("订单ID", "103订单", "Left ([订单ID],8) ='" & mydate & "'")) Then
Me![订单ID] = mydate & "D001"
Else
mysearial = DMax("订单ID", "103订单", "Left ([订单ID],8) = '" & mydate & "'")
Me![订单ID] = Left(mysearial, 8) & Format(Right(mysearial, 3) + 1, "D000")
End If

End Sub

 

可是为什么会生成除第一行正确，其余都相同的编号。请问高手错误在哪里？

 

 

Top
雪中游 发表于：2010-10-20 12:34:09

老乡，你最好不要用damx这个函数去求值，否则，你的数据达到一定数量的时候，程序会变得异常的慢。最好用一个表去保存订单号。可以按月重编号。表字段是“年 、月、订单id”。这是过来人的忠告！



Top
雪中游 发表于：2010-10-20 14:07:52

另外，把你的程序改成下面的，就是你要的结果

Dim mydate As String

Dim mysearial As String

mydate = Format(Date, "yyyymmdd")

If IsNull(DMax("订单ID", "103订单", "Left ([订单ID],8) ='" & mydate & "'")) Then

Me![订单ID] = mydate & "D001"

Else

mysearial = DMax("订单ID", "103订单", "Left ([订单ID],8) = '" & mydate & "'")

Me![订单ID] = Left(mysearial, 8) & "D" & Format(CDbl(Right(mysearial, 3)) + 1, "000")

End If

 

 



Top
桑松木 发表于：2010-10-21 02:26:54

非常感谢老乡的忠告和指点。



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

Access软件网 版权所有 CopyRight 2006-2030
上海盟威软件有限公司 提供支持
沪ICP备12024966号-4