序号是否连续

1100122566

我有个表。里面有个字段“序号”（自动编号）。现里面有2000多条记录。我想以序号字段查看记录是否连续。也就是显示出那些不连续的数据。

1100122566

[:50] 能帮就帮帮我吧～～

明镜

表述再清楚点.

Henry D. Sy

打开记录集，然后递增比对。
请问一下，你想显示什么，比如第一条记录id为2，第二条为4，第三条为5，你想如何显示。

popo559

我也想设计这个功能，比如原有编号是0001--2000 的，使用过程中 有个别编号的记录删掉了，
所要的的功能就是列出那些曾经被删掉的编号即可.

todaynew

我有个表。里面有个字段“序号”（自动编号）。现里面有2000多条记录。我想以序号字段查看记录是否连续。也就是显示出那些不连续的数据。
1100122566 发表于 2008-12-17 16:20

这是前不久做的一个类似的例子，给你参考一下。

Private Sub 运算_Click()
Dim sql As String
Dim i As Long
Dim x As String
DoCmd.SetWarnings no
sql = "DELETE * FROM 表2;"
DoCmd.RunSQL sql
Do While Not (IsNull(Me.ID1))
      If Val(Me.ID1) - Val(Me.ID) > 1 Then
          i = 0
         Do While i < Val(Me.ID1) - Val(Me.ID) - 1
               i = i + 1
               x = Me.ID.Value + i
               sql = "INSERT INTO 表2 ( ID ) SELECT " & x & " AS ID;"
               DoCmd.RunSQL sql
         Loop
      End If
      DoCmd.GoToRecord acForm, "窗体", acNext, 1
Loop
sql = "UPDATE 表2 SET 表2.ID = Format([ID],'0000');"
DoCmd.RunSQL sql
Me.Child5.Form.Requery
End Sub

ACMAIN_CHM

新建一张表 TSNO (sno),设sno为主键. 然后在EXCEL中把1-2000准备好。然后复制到这个TSNO表中。这样这个表就有1-2000这些记录。

以后只需用查询
select a.sno
from TSNO a left join [我有个表] b on a.sno=b.序号
where b.序号 is null

这样即可得到所缺号码。






******************
*  一切皆有可能  *
******************
.
同一贴子不回复第二次
.
QQ群 48866293 / 12035577 / 7440532 / 13666209
http://forum.csdn.net/SList/Access .
http://www.accessbbs.cn/bbs/index.php .
http://www.accessoft.com/bbs/index.asp .
http://www.access-programmers.co.uk/forums .
http://www.office-cn.net .
.
http://www.office-cn.net/home/space.php?uid=141646 .

chaojianan

新手学习。谢谢。