在我向表中添加新列(!datTimeOn)并重新链接SQL数据库之后,Microsoft Access刚开始引发此错误(3027)。
我尝试重新链接数据库,但没有任何反应。 (添加的新列不是身份列)。数据库和表不是只读的,并且连接到数据库的用户具有管理员权限。不知道我缺少什么,但是任何帮助将不胜感激。
Private Sub Logon()
On Error GoTo ErrorHandler
Dim DB As DAO.Database
Dim rs As DAO.Recordset
Set DB = CurrentDb
Set rs = DB.OpenRecordset("tblUserLogNew", dbOpenDynaset, dbSeeChanges)
'add and update user login info
With rs
rs.AddNew
!strUserID = (New_clsEnvironVariables.strUsername)
!strAccessLogon = CurrentUser()
!datDateOn = Date
!datTimeOn = Time
!strMachineName = (New_clsEnvironVariables.strComputerName)
rs.Update
End With
rs.Close
DB.Close
ExitProcedure:
Set rs = Nothing
Set DB = Nothing
Exit Sub
ErrorHandler:
New_clsErrorHandler.Unexpected mstrClass, "Logon"
Resume ExitProcedure
End Sub