next rows in continuous form doesn't update

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. http://images.access-programmers.co....s/confused.gif

Code:

---

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

---

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.

Code:

---

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

---

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

it displays multiple records vertically. like a table.

Thanks, I don't Use Access.

Quote:

---

Originally Posted by 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.

Code:

---

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."

Code:

---

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

---

You missed the quotes for attstat

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