[求助]关于自动编号的问题

andymark

不了解你的编号规则,无法写完整的函数,下面的代码只是以BBVDS-D5为例子,其他的可以参照修改

Dim Sql As String
Dim StrNo As String
Dim Rs As New ADODB.Recordset

Sql = "select * from 影片表  where left([影片编号],8)='BBVDS-D5'ORDER BY 影片表.影片编号"
Rs.Open Sql, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
i = 0
Do While Not Rs.EOF
   If Mid(Rs.Fields("影片编号"), 10, 4) - i = 1 Then
   i = Mid(Rs.Fields("影片编号"), 10, 4)
Else
   i = i + 1    '填补缺号
GoTo AA
End If

Rs.MoveNext
Loop
i = i + 1       '直接增加

AA:
StrNo = "BBVDS-D5" & Format(i, "0000")
MsgBox StrNo


Set Rs = Nothing

LucasLynn

以下是引用mayans在2006-5-7 9:42:00的发言：


不好意思,可能是我说的不够明白,关于自动编号添加断号是有很多例子的

我的编号是用来给我的DVD影片编号的格式如:BBVDS-D5-0001-2P/LCH

代表的含义分别是  库名称-碟片类型-连续编号-碟片数量/提供者 如过这部影片只有一张碟就省略-2P这段

所以我的编号最终会产生象下面这些编号

BBVDS-D5-0001-2P/LCH

BBVDS-D5-0002/ABC

BBVDS-D9-0001/LCH

BBVDS-D9-0002-3P/XYZ

BBVDS-D9-0003-2P/LCH

BBVDS-D9-0004/LCH

象这样的情况如果BBVDS-D9-0003这个编号没有了,怎么在自动生成编号的时候把他加进去

你的问题可以分解为两个问题：

1、组合编号

2、自动编号

可以在表中使用一个自动编号，然后通过查询来实现组合编号。

自动编号的连续问题，请参考下帖：

http://www.office-cn.net/forum.php?mod=viewthread&tid=32310

mayans

先谢谢你的帮忙,不过很奇怪,如果我把代码该成下面这段,就不能用了,我断点查过 dvdtype的值也是BBVDS-D5 ,这样改跟原来的有什么区别吗?



Private Sub Command78_Click()
Dim Sql As String
Dim StrNo As String
Dim Rs As New ADODB.Recordset
Dim dvdtype As String
dvdtype = "BBVDS-D" & Mid(盘片格式.Value, 3, 1)
Sql = "select * from 影片表  where left([影片编号],8)='dvdtype' ORDER BY 影片表.影片编号"
Rs.Open Sql, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
i = 0
Do While Not Rs.EOF
   If Mid(Rs.Fields("影片编号"), 10, 4) - i = 1 Then
   i = Mid(Rs.Fields("影片编号"), 10, 4)
Else
   i = i + 1    '填补缺号
GoTo AA
End If

Rs.MoveNext
Loop
i = i + 1       '直接增加

AA:
StrNo = dvdtype & "-" & Format(i, "0000")
MsgBox StrNo


Set Rs = Nothing


End Sub

andymark

试试:

Sql = "select * from 影片表  where left([影片编号],8)='" & dvdtype & "' ORDER BY 影片表.影片编号"

mayans

嘿嘿,终于搞定,太谢谢你们了