[原创]如何解决编号自动加？？？？

wx-x

如何解决编号自动加？？？？

lwxg

你这段代码是查询部分,定单ID是另外一部分输入的

wx-x

代码在模块里,测试在窗体的订单里.谢谢. ZZjBWEDG.rar (106.56 KB, 下载次数: 15)

2007-5-15 12:28 上传

点击文件名下载附件

[此贴子已经被作者于2007-5-15 12:28:19编辑过]

lwxg

Sub Orderid_auto()
    Dim rs As New ADODB.Recordset
    'Dim imonth, idmin, idmax, b As String
    imonth = Right(Year(Date), 2) & Format(Month(Date), "00")
    idmin = imonth & "000"
    idmax = imonth & "999"
    ISEL = "select max(订单ID) from 订单 where 订单ID > '" & idmin & "' and 订单ID < '" & idmax & "'"
    rs.Open ISEL, CurrentProject.Connection, 1, 1
    Dim b As Long
    If IsNull(rs(0)) Then b = idmin Else b = rs(0)
    rs.Close
    [订单ID] = Format((b + 1), "0000000")
    '[订单ID] = Format("050704", "000000")
End Sub
=======

修改为

Sub Orderid_auto()
    Dim rs As New ADODB.Recordset
    Dim imonth as string, idmin as string , b As String
    imonth = Right(Year(Date), 2) & Format(Month(Date), "00")
    idmin = imonth & "000"
    ISEL = "select max(订单ID) from 订单" 
    rs.Open ISEL, CurrentProject.Connection, 1, 1
    Dim b As Long
    If IsNull(rs(0)) Then b = idmin Else b = imonth & right(rs(0),3)
    rs.Close
    [订单ID] = Format((b + 1), "0000000")
End Sub

[此贴子已经被作者于2007-5-16 2:08:51编辑过]

wx-x

QUOTE:

以下是引用lwxg在2007-5-16 2:07:37的发言：

Sub Orderid_auto()
    Dim rs As New ADODB.Recordset
    'Dim imonth, idmin, idmax, b As String
    imonth = Right(Year(Date), 2) & Format(Month(Date), "00")
    idmin = imonth & "000"
    idmax = imonth & "999"
    ISEL = "select max(订单ID) from 订单 where 订单ID > '" & idmin & "' and 订单ID < '" & idmax & "'"
    rs.Open ISEL, CurrentProject.Connection, 1, 1
    Dim b As Long
    If IsNull(rs(0)) Then b = idmin Else b = rs(0)
    rs.Close
    [订单ID] = Format((b + 1), "0000000")
    '[订单ID] = Format("050704", "000000")
End Sub
=======

修改为

Sub Orderid_auto()
    Dim rs As New ADODB.Recordset
    Dim imonth as string, idmin as string , b As String
    imonth = Right(Year(Date), 2) & Format(Month(Date), "00")
    idmin = imonth & "000"
    ISEL = "select max(订单ID) from 订单" 
    rs.Open ISEL, CurrentProject.Connection, 1, 1
    Dim b As Long
    If IsNull(rs(0)) Then b = idmin Else b = imonth & right(rs(0),3)
    rs.Close
    [订单ID] = Format((b + 1), "0000000")
End Sub

还是不行啊，有个地方出错了，再请帮帮忙，谢谢。

 

OPOB0lV1.rar (69.93 KB, 下载次数: 8)

2007-6-1 16:31 上传

点击文件名下载附件
[原创]如何解决编号自动加？？？？

sgrshh29

改为下面代码试试:
    Dim imonth As String, b As Long
    imonth = Right(Year(Date), 2) & Format(Month(Date), "00")
    If DCount("订单ID", "订单") = 0 Then
    b = imonth & Format(1, "000")
    Else
    b = imonth & Format(Right(DMax("订单ID", "订单"), 3) + 1, "000")
    End If
    [订单ID] = Format(b, "0000000")

wx-x

谢谢二位老兄的帮忙，问题搞定了。