3027 read only error 1

[robojeff]

I get a 3027 error database is read only error on the following code.

What am I doing wrong?

Thanks

-------------------------
Dim qdf As DAO.QueryDef
Dim dbs As DAO.Database
Dim rstProduct As DAO.Recordset

Set rstProduct = dbs.OpenRecordset(strSQL, dbOpenDynaset)

With rstProduct
.Edit
!ASMFlag = "1"
.Update
End With
-------------------

 

[robojeff]

Oopps...
I forgot to add the following line:

strSQL = "SELECT DISTINCT Stage1_tbl.ASMFlag FROM Stage1_tbl; "

It appears that the error for the read only may apply to my table Stage1_tbl but I am not sure why...

-------------------------
Dim qdf As DAO.QueryDef
Dim dbs As DAO.Database
Dim rstProduct As DAO.Recordset

strSQL = "SELECT DISTINCT Stage1_tbl.ASMFlag FROM Stage1_tbl; "

Set rstProduct = dbs.OpenRecordset(strSQL, dbOpenDynaset)

With rstProduct
.Edit
!ASMFlag = "1"
.Update
End With

 

[PHV]

Remove the DISTINCT predicate.

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[TheAceMan1]

How are ya robojeff . . .

In windows explorer have a look at the properties of the db file. Make sure its not read only here!

See Ya! . . . . . .

Be sure to see thread181-473997 [blue]Worthy Reading![/blue]
Also faq181-2886 [blue]Worthy Reading![/blue]

 

[robojeff]

Thanks PHV-

Removing the Distinct did the trick.

Is there an easy way to also modify the ASMFlag in another table at the same time?

Dim qdf As DAO.QueryDef
Dim dbs As DAO.Database
Dim rstProduct As DAO.Recordset

strSQL = "SELECT DISTINCT Stage1_tbl.ASMFlag FROM Stage1_tbl; "

Set rstProduct = dbs.OpenRecordset(strSQL, dbOpenDynaset)

With rstProduct
.Edit
!ASMFlag = "1"
.Update
End With

I am assuming that I would need to do a look up on the other table for all records containing the same Item as I am indexing in my rstProduct recordset above, but I am not sure how to do this...

Thanks