我学ACCESS7——自动编号的问题

简

在采用自动编号的表中，自动编号采用递增方式。
当我删除某个记录后，我希望自动编号也能跟着变化，始终保持递增1。

比如说，当我删去ID编号为5的记录后，ID为6的编号自动更新为5，而ID为7编号自动更新为6，如此类推……

Ajoe

在窗体设计中，你在编号的“获得焦点事件”中输入如下代码，应该可以：
Dim a, b
a = DMax("[某字段名]", "某表名")
b = Format(Now(), "yyyy") & "001"
If a < b Or IsNull(a) Then
Me.编号的那个文本框名 = b
Else:
b = a + 1
End If

我这个是7位数的编号，规则是4位年份+3位数字(例：2004001)。能看懂吗？

简

干脆明天，我开始向窗体进军！

hi-wzj

http://www.accessoft.com/Article_Show.asp?ArticleID=25

我同意

4楼版主指的一条道简单明了.解决大部分问题.
我据自己的理解补充:
窗体本身未绑定数据源,或源非表,恐怕还是要写几句代码来处理的.