求助:如何实现编号按前一记录自动累加

wangchaoyong

比如我第一次输入记录时，自已输入一个编号是002896，当输入完毕保存后，继续输下一条记录时，编号自动生成002897，依此类推。如果以前有002897这条记录，就应是002898，此数据库中编号不能重复。

zyp

在窗体的插入前事件中加入下面代码

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