I use Access2007. The codes are:

str = "select StudID, Email from qryTest;"
Set rst = DB.OpenRecordset(str, dbOpenDynaset, dbSeeChanges)
rst.MoveFirst
Do While Not rst.EOF
Call ManipulateData(rst("StudID")) 'call a sub-procedure
rst.Edit
rst("Email") = True
rst.Update
rst.MoveNext
Loop

rst.Close
Set rst = Nothing
DB.Close
Set DB = Nothing
----
The error pops up at rst.Edit saying "cannot update. Database or object is
read-only 3027". Can you help me to identify the problem? Thank you.

"Tim" <(E-Mail Removed)> wrote in message
news:713FC55F-CBB0-4313-86A5-(E-Mail Removed)...
>I use Access2007. The codes are:
>
> str = "select StudID, Email from qryTest;"
> Set rst = DB.OpenRecordset(str, dbOpenDynaset, dbSeeChanges)
> rst.MoveFirst
> Do While Not rst.EOF
> Call ManipulateData(rst("StudID")) 'call a sub-procedure
> rst.Edit
> rst("Email") = True
> rst.Update
> rst.MoveNext
> Loop
>
> rst.Close
> Set rst = Nothing
> DB.Close
> Set DB = Nothing
> ----
> The error pops up at rst.Edit saying "cannot update. Database or object is
> read-only 3027". Can you help me to identify the problem? Thank you.


What is the SQL of qryTest?

--
Dirk Goldgar, MS Access MVP
Access tips: www.datagnostics.com/tips.html

(please reply to the newsgroup)

Hi Dirk: The SQL of qryTest is
SELECT DISTINCT tblA.StuID, tblA.Email
FROM tblA
WHERE (((tblA.Email=0));
---
Where Email is a boolean (yes/no) field.
---

"Dirk Goldgar" wrote:

> "Tim" <(E-Mail Removed)> wrote in message
> news:713FC55F-CBB0-4313-86A5-(E-Mail Removed)...
> >I use Access2007. The codes are:
> >
> > str = "select StudID, Email from qryTest;"
> > Set rst = DB.OpenRecordset(str, dbOpenDynaset, dbSeeChanges)
> > rst.MoveFirst
> > Do While Not rst.EOF
> > Call ManipulateData(rst("StudID")) 'call a sub-procedure
> > rst.Edit
> > rst("Email") = True
> > rst.Update
> > rst.MoveNext
> > Loop
> >
> > rst.Close
> > Set rst = Nothing
> > DB.Close
> > Set DB = Nothing
> > ----
> > The error pops up at rst.Edit saying "cannot update. Database or object is
> > read-only 3027". Can you help me to identify the problem? Thank you.
>
>
> What is the SQL of qryTest?
>
> --
> Dirk Goldgar, MS Access MVP
> Access tips: www.datagnostics.com/tips.html
>
> (please reply to the newsgroup)
>

"Tim" <(E-Mail Removed)> wrote in message
news:4BD6592A-D23C-43C8-9623-(E-Mail Removed)...
> Hi Dirk: The SQL of qryTest is
> SELECT DISTINCT tblA.StuID, tblA.Email
> FROM tblA
> WHERE (((tblA.Email=0));
> ---
> Where Email is a boolean (yes/no) field.


There's your problem then. DISTINCT queries aren't updatable, because one
output record can potentially represent multiple input records. If you want
your query to be updatable, you have to remove the DISTINCT keyword, and
live with the possibility that it will return more than one record with the
same combination of StuID and Email. Of course, if StuID is a unique field
in tblA, that's not going to happen -- in that case, there would have been
no need for the DISTINCT keyword (= "Unique Values" property of the query)
in the first place.

--
Dirk Goldgar, MS Access MVP
Access tips: www.datagnostics.com/tips.html

(please reply to the newsgroup)

Got it! Thank you very much for your excellent help! I appreciate it!

"Dirk Goldgar" wrote:

> "Tim" <(E-Mail Removed)> wrote in message
> news:4BD6592A-D23C-43C8-9623-(E-Mail Removed)...
> > Hi Dirk: The SQL of qryTest is
> > SELECT DISTINCT tblA.StuID, tblA.Email
> > FROM tblA
> > WHERE (((tblA.Email=0));
> > ---
> > Where Email is a boolean (yes/no) field.
>
>
> There's your problem then. DISTINCT queries aren't updatable, because one
> output record can potentially represent multiple input records. If you want
> your query to be updatable, you have to remove the DISTINCT keyword, and
> live with the possibility that it will return more than one record with the
> same combination of StuID and Email. Of course, if StuID is a unique field
> in tblA, that's not going to happen -- in that case, there would have been
> no need for the DISTINCT keyword (= "Unique Values" property of the query)
> in the first place.
>
> --
> Dirk Goldgar, MS Access MVP
> Access tips: www.datagnostics.com/tips.html
>
> (please reply to the newsgroup)
>