升迁专用：解决当访问一个带有IDENTITY列的SQL Server表时,必须使用Openrecordset的dbSeeChanges选项

时　间:2018-07-02 08:13:47
作　者:123   ID：47512  城市：南京
摘　要:Access运行时错误'3622':当访问一个带有IDENTITY列的SQL Server表时,必须使用Openrecordset的dbSeeChanges选项。的解决方法
正　文:

原文章链接  如果出错这个错误 然而却又很多要改 不如自己定义个dao 函数批量替换 

Access运行时错误'3622':当访问一个带有IDENTITY列的SQL Server表时,必须使用Openrecordset的dbSeeChanges选项。的解决方法[Access软件网] http://www.accessoft.com/article-show.asp?id=10840

定义函数：

Public Function GetDaoRs(ByVal StrQuery) As Object
on error goto  GetDaoRS_Error
Dim Rst As Object
Dim db As Object
Set db = CurrentDb
Set Rst = db.OpenRecordset(StrQuery, dbOpenDynaset, dbSeeChanges, dbOptimistic)
Set GetDaoRs = Rst
GetDaoRS_Exit:
    Set Rst = Nothing
    Set db = Nothing
    Exit Function
GetDaoRS_Error:
    MsgBox (Err.Description)
    Resume GetDaoRS_Exit
End Function