static function RSSaveRecord( oRS, aRecord, nRecNo )
local n
if oRS:AbsolutePosition != nRecNo
oRS:Move( nRecNo, 0 )
endif
for n = 1 to oRS:Fields:Count
TRY
if oRS:Fields[ n - 1 ]:Attributes != 90 // non updateable
oRS:Fields[ n - 1 ]:Value = aRecord[ n, 2 ]
endif
CATCH
END
next
oRS:Update()
return nil
However, if you are sure you have the permission on the object, but still get this error, then it is very likely that the object information and property data are partially corrupted and Microsoft Access thinks you have no read permission for the specific object mistakenly.
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 110 guests