<br />
我在对表进行新增记录操作时，不知什么原因，只要新增记录窗口打开，表中的自动编号就会从第一个序号开始编号，导致出错、新增数据失败。而我的窗体中并没有加载任何移动指针的代码。
请老师、大侠指教。
在新增记录时，我是套用的网站中分享的模块代码操作的。其它窗口、表都没问题，就这个表出错，一直找不出毛病。调用的新增数据代码如下，出错情况如图。
'-------------------以下是新增按钮代码
Private Sub AddList关系_Click()
DoCmd.OpenForm "fEdit人脉关系", , , , , acDialog, Me.ID
Form!fz人脉关系.Requery
End Sub
'-------------------以下是新增模块代码
'=========================================================================================
'函数名称： FormADOSave
'功能描述： ADO方式保存窗体新增的记录，或者保存修改后的记录
'输入参数： sForm --窗体名称
' sTableName --表名称
' sPrimaryKey --主键字段名称
' sExpr --条件表达式
'返回参数： 无
'使用示例： UMVADOSave(me,"tblSupplier","SupplierID","SupplierID='S001'")
'作 者： 金宇
'创建日期： 2012-11-21
'===========================================================
Public Function FormADOSave(DataForm As Form, ByVal sTableName As String, ByVal sPrimaryKey As String, Optional ByVal sExpr As String)
'学习： 存数据的窗体名， 数据要存入对应表名， 主键字段名， 条件表达式
On Error GoTo ErrorHandler
Dim rst As ADODB.Recordset
Dim fld As ADODB.Field
Dim strSQL As String
Dim B_ISOK As Boolean
Set rst = New ADODB.Recordset
If Len(sExpr) = 0 Then
strSQL = "SELECT * FROM [" & sTableName & "] WHERE 1<>1"
Else
strSQL = "SELECT * FROM [" & sTableName & "] WHERE " & sExpr
End If
rst.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If Len(sExpr) = 0 Then
rst.AddNew
End If
For Each fld In rst.Fields
If Len(sExpr) = 0 Then
'If Not IsNull(DataForm(fld.Name).Value) Then
fld.Value = DataForm(fld.Name).Value
'End If
Else
If fld.Name <> sPrimaryKey Then
fld.Value = DataForm(fld.Name).Value
End If
End If
Next
rst.Update
rst.Close
Set rst = Nothing
Exithere:
Set rst = Nothing
Exit Function
ErrorHandler:
If Err.Number = 2465 Then
Resume Next
Else
MsgBox Err.Description, vbCritical, "错误提示"
Resume Exithere
End If
End Function
上图是我发现问题后，从表中发现的问题情况
上图是有窗口中新增数据，执行 AddList关系_Click() 的错误提示。
请老师、大侠指教。
