BPL062
Technical User
- Oct 24, 2001
- 20
I have a class that is getting info from 3 tables in access.
Where 2 tables are dependent from the first.
Customer table and Addresses and Calls tables are dependent
Like follows
With rs
.Source = "SHAPE {SELECT * FROM `Customers`} AS EstimateParts " _
& "APPEND ({SELECT * FROM `CustomerAddress`} AS CustAddress " _
& "RELATE 'ID' TO 'ID') AS CustAddress" _
& ",({SELECT * FROM `CustomerCalls`} AS CustCall " _
& "RELATE 'ID' TO 'ID') AS EstCall"
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.CursorLocation = adUseClient
.ActiveConnection = Provider.GetConnection
.Open
End With
If rs.RecordCount > 0 Then
Set rsAddress = rs("CustAddress").Value
Set rsCall = rs("CustCall").Value
End If
When i try to delete a record from the rsCall it gives me an error
Run-time error -2147217887
Multiple-step operation generated errors. Check each status value
i have one record in rs and 4 or 5 in rsCall
Please help
Thank you greatly
Where 2 tables are dependent from the first.
Customer table and Addresses and Calls tables are dependent
Like follows
With rs
.Source = "SHAPE {SELECT * FROM `Customers`} AS EstimateParts " _
& "APPEND ({SELECT * FROM `CustomerAddress`} AS CustAddress " _
& "RELATE 'ID' TO 'ID') AS CustAddress" _
& ",({SELECT * FROM `CustomerCalls`} AS CustCall " _
& "RELATE 'ID' TO 'ID') AS EstCall"
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.CursorLocation = adUseClient
.ActiveConnection = Provider.GetConnection
.Open
End With
If rs.RecordCount > 0 Then
Set rsAddress = rs("CustAddress").Value
Set rsCall = rs("CustCall").Value
End If
When i try to delete a record from the rsCall it gives me an error
Run-time error -2147217887
Multiple-step operation generated errors. Check each status value
i have one record in rs and 4 or 5 in rsCall
Please help
Thank you greatly