Re: Run-time error 3027

RG,

Office SP3 was applied on this system a while back. Thank you for providing
a link to the HotFix. It was applied today, however, error 3027 still
reoccurs.

Thanks,
CIS

"ruralguy via AccessMonster.com" wrote:

Is there any chance the Office SP3 has been applied? If not then wait for
SP4.
If it has then you will want to apply the HotFix that corrects many of the
problems
created by the SP.

Description of the Access 2003 post-Service Pack 3 hotfix package: December
18, 2007
http://support.microsoft.com/kb/945674



CIS wrote:
Hello,

Could you please help me with Error 3027 in Access 2000 database? It was
working fine until recently. Users attempt to update records and get VB
message "Cannot update. Database or object is read-only." The database
consists of two files – front end and back end, user has full rights, Windows
XP SP2, Access 2003 SP3. The error is generated at this line - rfqSet.Edit.
Thanks!

===============
Private Sub Button78_Click()
'On Error GoTo Button78_Click_err
Dim SQL$
Dim Criteria$
Dim RFQNUM As Long
Dim ZRPOSET As Recordset
Dim rfqSet As Recordset
Set ZRPOSET = dbAFH.OpenRecordset("Select * from JoinZRPOZRPOItem where
ZRPONumber = " & txtRFQZRPONumber, DB_OPEN_DYNASET)
Set rfqSet = dbAFH.OpenRecordset("Select * from JoinRFQRFQItem where
RFQNumber = " & txtRFQRFQNumber, DB_OPEN_DYNASET)

'Find This RFQ
rfqSet.MoveFirst

'Find Matching ZRPO
ZRPOSET.MoveFirst

'Update Header Information
rfqSet.Edit
rfqSet("RFQCustomerNumber") = ZRPOSET("ZRPOCustomerNumber")
rfqSet("RFQComments") = ZRPOSET("ZRPOComments")

RFQNUM = rfqSet("RFQNumber")

rfqSet.Update
===============

--
RuralGuy (RG for short) aka Allan Bunch MS Access MVP - acXP WinXP Pro
Please post back to this forum so all may benefit.

Message posted via http://www.accessmonster.com


.