Office中国论坛/Access中国论坛

标题: 求助:如何实现编号按前一记录自动累加 [打印本页]

作者: wangchaoyong 时间: 2008-10-3 11:38
标题: 求助:如何实现编号按前一记录自动累加
比如我第一次输入记录时，自已输入一个编号是002896，当输入完毕保存后，继续输下一条记录时，编号自动生成002897，依此类推。如果以前有002897这条记录，就应是002898，此数据库中编号不能重复。

作者: zyp 时间: 2008-10-4 10:56
在窗体的插入前事件中加入下面代码

Private Sub Form_BeforeInsert(Cancel As Integer)
   if isnull(dlookup("[编号]","表名")) then exit sub '如果表中没有记录则不执行下面代码
  Dim A As Integer
A = Val(DMax("[编号]", "表名"))    '取得表中最大的编号
A = A + 1    '现有最大编号+1后为新的编号
  Me.编号=format(A,"000000")    '假设窗体中绑定编号字段的控件为“编号”
End Sub

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