Update recordset - 'Not responding'

[tariq1]

Hi, I am trying to run the following code which updates a recordset, but Access just crashes with 'Not responding'
Any guidance is much appreciated, thank you

Sub updatechildren()

Dim dbsSchool As DAO.Database
Dim rstChidren As DAO.Recordset
Dim strSQL As String
Set dbsSchool = CurrentDb
strSQL = "select * from Children where Gender = 2 "
Set rstchildren = dbsSchool.OpenRecordset(strSQL, dbOpenDynaset)
If rstchildren.EOF Then Exit Sub
rstchildren.Edit
rstchildren![Hobbies] = "Football"
Do Until rstchildren.EOF
Loop

End Sub

[orange]

What exactly do you think this is doing? What are you trying to do?

You might research the Recordset.MoveNext

see http://allenbrowne.com/ser-29.html

Research MS access stepping though code

Generally,
Put a breakpoint in the subroutine/procedure you want to step into and then
perform the act that executes that code.
Then you can step through the code - line by line - by using F8

[John_G]

Your code is going into an infinite loop here:


Do Until rstchildren.EOF
Loop

Not only does it not do anything, it never exits because it is missing rstchildren.movenext

If I read your code right, it could be replaced by 1 line:

currentdb.execute "Update [children] set [hobbies] = 'Football' where [Gender] = 2", dbfailonerror

John