跪求高手帮忙！！

gaopeng52

问题描述：在 “添加招聘信息”按钮 单击事件后添加如下带码！ 当运行后  “申请ID”添加了 一个ID

代码如下

Private Sub 添加招聘单位_Click()

On Error GoTo Err_添加招聘单位_Click

Dim STemp As String

Dim Rs As ADODB.Recordset

Set Rs = New ADODB.Recordset

STemp = "select*from 招聘申请资料"
Rs.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Me![申请ID] = "000" & Rs.RecordCount + 1
Me![部门ID] = Null
Me![性别限制] = Null
Me![学历限制] = Null
Me![外语水平] = Null
Me![计算机水平] = Null
Me![籍贯限制] = Null
Me![招聘人数] = Null
Me![申请日期] = Null
Me![审批日期] = Null
Me![招聘日期] = Null
Me![招聘方式] = Null
Me![招聘理由] = Null
Me![审批情况] = Null
Me![备注] = Null
Set Rs = Nothing
Exit_添加招聘单位_Click:
Exit Sub
Err_添加招聘单位_Click:
MsgBox Err.Description
Resume Exit_添加招聘单位_Click

End Sub




当我退出窗体后  系统会把 第一个申请ID 删除！ 如：ID  0001  0002  0003  0004  0005 运行后 添加了0006  退出后 0001就不在了 。 当我删除 0003   运行后 添加的是0005 和原来的 0005 冲突  ！



哪个 高手 帮 解决下 问题， 当按 添加按钮时   系统会自己搜索ID  自动生成 新的 不重复的 ID   

cg1

不是系统删除的，是你自己的操作导致的。



但你的代码中没有叙述。



你是否新增记录以后才按这个按钮的？

gaopeng52

是的

gaopeng52

那怎么改！