next rows in continuous form doesn't update

[sbbmaster09]

Hi, I have a continuous form. I am able to update the data if the continuous form has only one entry.

My problem is, when my query has multiple data, it only updates the 1st row of the continuous form. How can I update the other next entries?

Existing code below doesn't works.

Set dbforms = CurrentDb
    strSQL = "SELECT * FROM MainData WHERE [Enterprise ID] = '" & Me.txtAttUser.Value & "'"
    Set rstforms = dbforms.OpenRecordset(strSQL, dbOpenDynaset)

        rstforms.MoveFirst
        Do Until rstforms.EOF
        
            rstforms.Edit
            rstforms("[Employment Status]").Value = Me.txtAttStat.Value
            rstforms.Update
            
        rstforms.MoveNext
        Loop
        
    rstforms.Close   dbforms.Close

[jonh]

that would update whatever record(s) has/have an id equal to txtattuser. id's are usually unique.

you shouldn't be using a loop to update records. use an update statement.

currentdb.execute "update sometable set myfield='whatever' where id='blah'"

[SamT]

Please explain what a "Continuous Form" is. I have never heard the term. Is it an Access VBA Term?

[jonh]

it displays multiple records vertically. like a table.

[SamT]

Thanks, I don't Use Access.

[sbbmaster09]

that would update whatever record(s) has/have an id equal to txtattuser. id's are usually unique.

you shouldn't be using a loop to update records. use an update statement.

currentdb.execute "update sometable set myfield='whatever' where id='blah'"

Hi Jonh,

I update the code to this, correct me if I'm wrong.. Getting an error: "Too few parameters. Expected 1."

    strSQL = "UPDATE MainData SET [Employment Status] = Me.txtAttStat.value WHERE [Enterprise ID] = '" & Me.txtAttUser & "'"
    dbforms.Execute (strSQL)

[jonh]

You missed the quotes for attstat

"UPDATE MainData SET [Employment Status] ='" & Me.txtAttStat.value & "' WHERE [Enterprise ID] = '" & Me.txtAttUser & "'"