C
CIS
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
===============
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
===============