|
Sub InconsistentUpdates()
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
rst.ActiveConnection = CurrentProject.Connection
rst.CursorType = adOpenStatic
rst.LockType = adLockOptimistic
rst.Properties("Jet OLEDB:Inconsistent") = True
rst.Open Source:="Select * from Employees " & _
"INNER JOIN Projects " & _
"ON Employees.ClientID = Projects.ClientID", _
Options:=adCmdText
rst("Projects.ClientID") = 1
rst.Update
Debug.Print rst("Projects.ClientID")
rst.Close
Set rst = Nothing
End Sub
|