Error 3027 Help using DAO

[wishwish20]

I am having a problem with my Database. I am having an issue with being able to update a set of records. What I need is a way to uncheck a checkbox in the underlying table in this query. The # of checkboxes to be unchecked will be different for each customer, so I've been told an SQL query won't work. When I run the following code I get "error 3027 Cannot update. Database or object is read only" It stops at rs.edit

testString = "SELECT tblTEST.[CustNum], tblTEST.[Month/Year], tblTEST.[Yes/No] " & _
             "FROM tblTEST " & _
             "GROUP BY tblTEST.Field1, tblTEST.[Month/Year], tblTEST.[Yes/No]"
 
        Dim MyDB As DAO.Database
        Dim rs As DAO.Recordset
        Set MyDB = CurrentDb
 
Set rs = CurrentDb.OpenRecordset(testString, dbOpenDynaset, 0,dbOptimistic)
 
        tempBalance = 0
 
        Do
 
            If rs.EOF = False Then
 
                rs.Edit    'This is where it craps out
                rs("Yes / NO") = 0
                rs.Update
 
                rs.MoveNext
            Else     'last record don't keep moving
                Exit Do
                'MsgBox ("exited loop")
            End If
 
        Loop While tempBalance < 3

I have tried using Set rs = MyDB.OpenRecord set(testString, dbOpenDynamic) in place of the current call just to check and it gives me "error 3001 invalid argument". Any help I am lost at this point, Thanks

[wishwish20]

Oops Field1 in the SQL string is CustNum now, forgot to change in post. Still doesn't work though

[ADezii]

I am having a problem with my Database. I am having an issue with being able to update a set of records. What I need is a way to uncheck a checkbox in the underlying table in this query. The # of checkboxes to be unchecked will be different for each customer, so I've been told an SQL query won't work. When I run the following code I get "error 3027 Cannot update. Database or object is read only" It stops at rs.edit

testString = "SELECT tblTEST.[CustNum], tblTEST.[Month/Year], tblTEST.[Yes/No] FROM tblTEST GROUP BY tblTEST.Field1, tblTEST.[Month/Year], tblTEST.[Yes/No]"

Dim MyDB As DAO.Database
Dim rs As DAO.Recordset
Set MyDB = CurrentDb

Set rs = CurrentDb.OpenR ecordset(testSt ring, dbOpenDynaset, 0,dbOptimistic)

tempBalance = 0

Do

If rs.EOF = False Then

rs.Edit 'This is where it craps out
rs("Yes / NO") = 0
rs.Update

rs.MoveNext
Else 'last record don't keep moving
Exit Do
'MsgBox ("exited loop")
End If

Loop While tempBalance < 3

I have tried using Set rs = MyDB.OpenRecord set(testString, dbOpenDynamic) in place of the current call just to check and it gives me "error 3001 invalid argument". Any help I am lost at this point, Thanks

Any Recordset created by using a GROUP BY Clause is not updateable.

[wishwish20]

is there any other way?

[NeoPa]

Try this SQL instead :

testString = "SELECT DISTINCT [CustNum],[Month/Year],[Yes/No] " & _
             "FROM tblTEST"