Office中国论坛/Access中国论坛

标题: 我学ACCESS7——自动编号的问题 [打印本页]

作者: 简 时间: 2004-4-20 06:38
标题: 我学ACCESS7——自动编号的问题
在采用自动编号的表中，自动编号采用递增方式。
当我删除某个记录后，我希望自动编号也能跟着变化，始终保持递增1。

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

作者: Ajoe 时间: 2004-4-20 07:33
在窗体设计中，你在编号的“获得焦点事件”中输入如下代码，应该可以：
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)。能看懂吗？

作者: 简 时间: 2004-4-20 08:20
干脆明天，我开始向窗体进军！

作者: hi-wzj 时间: 2004-4-20 17:43
http://www.accessoft.com/Article_Show.asp?ArticleID=25

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)