Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Opening a Recordset with Inconsistent Updates

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