Sql MS访问错误3622 vba
我有一个本地的Access 2010数据库,从那以后我链接到了SQL 2012数据库。但是,我有一个表单可以插入运行以下代码的突出显示记录:Sql MS访问错误3622 vba,sql,sql-server,vba,ms-access,Sql,Sql Server,Vba,Ms Access,我有一个本地的Access 2010数据库,从那以后我链接到了SQL 2012数据库。但是,我有一个表单可以插入运行以下代码的突出显示记录: Private Sub Command18_Click() Dim R As Recordset Set R = CurrentDb.OpenRecordset("SELECT * FROM [tblJobHead]") R.AddNew R![Rep Num] = [Forms]![frmMain]![NavigationSubform].[Form]!
Private Sub Command18_Click()
Dim R As Recordset
Set R = CurrentDb.OpenRecordset("SELECT * FROM [tblJobHead]")
R.AddNew
R![Rep Num] = [Forms]![frmMain]![NavigationSubform].[Form]![RepNum]
R![Item Number] = Me.ItemNumber.Value
R![Description] = Me.Desc.Value
R![EmpID] = [TempVars]![EmpID]
R![Status] = 2
R.Update
R.Close
Set R = Nothing
DoCmd.Save
End Sub
但是,当我单击按钮时,我现在收到错误:
错误3622-访问具有标识列的SQL Server表时,必须对OpenRecordset使用dbSeeChanges选项
有什么想法吗
问候,
Michael错误与上面所说的完全一样,请尝试:
Function GetRecordset(sSQL) As DAO.Recordset
Dim rdao As DAO.Recordset
Dim db As Database
Set db = CurrentDb
Set rdao = db.OpenRecordset(sSQL, dbOpenDynaset, _
dbFailOnError + dbSeeChanges)
If Not rdao.EOF Then
rdao.MoveLast
rdao.MoveFirst
End If
Set GetRecordset = rdao
End Function
我强烈建议您避免使用单个字母作为变量