I would appreciate any advise on resolving a 3027 - Database is read only error.
Thanks in advance!
Charlie
Code:
Dim Faculty As DAO.Database
Dim AADSSolicitationsDynaset As DAO.Recordset
SelectPhrase = "SELECT AADSSolicitations.SolicitationNumber, AADSSolicitations.DatelastProcessed, " & _
"AADSMultiYearAnnouncements.[Obsolete-LT120Days] " & _
"FROM AADSSolicitations LEFT JOIN AADSMultiYearAnnouncements " & _
"ON AADSSolicitations.SolicitationNumber = AADSMultiYearAnnouncements.SolicitationNumber " & _
"ORDER BY AADSSolicitations.SolicitationNumber"
Set AADSSolicitationsDynaset = Faculty.OpenRecordset(SelectPhrase, dbOpenDynaset)
AADSSolicitationsDynaset.AddNew '"3027 Cannot update. Database is read only" is generated'
AADSSolicitationsDynaset![SolicitationNumber] = 537
AADSSolicitationsDynaset![DateLastProcessed] = Date
AADSSolicitationsDynaset.Update