update without addnew or edit in VBA code

[LittleRock Z]

How do I resolve the error update without addnew or edit?
I need to stay with VBA. All the files are flat with a few columns.
What rule am I missing?

[code Sub Updater()
Dim SortedAllnamesx2 As Recordset
Set SortedAllnamesx2 = CurrentDb.OpenRecordset("Sortedallnamesx2")
Dim Allnames As Recordset
Set Allnames = CurrentDb.OpenRecordset("allnames")
Dim Deletable As String
SortedAllnamesx2.AddNew
SortedAllnamesx2![aname] = Allnames![aname] ' object required
SortedAllnamesx2![lot] = Allnames![lot]
SortedAllnamesx2![location] = Allnames![location]
SortedAllnamesx2.Update


'Allnames![aname] = Deletable
Deletable = Allnames![aname]
Allnames.MoveFirst
Do While Allnames![aname] <> Deletable
Allnames.MoveNext
Loop
Allnames.Delete
Allnames.Update ' ERROR msg "update without addnew or edit"
Allnames.MoveFirst
[/code

[davegri]

You don't have to ".Update" a .Delete

[June7]

Why are you duplicating records to another table?

[madpiet]

"All files are flat with a few columns"

If all you want to do is move records from one table to another, why not call a (parameterized) append query and then a (parameterized) delete query? If you want to move just a subset of the entire table for some reason, just make sure the filters for the two queries are the same. Doing it with a recordset is, I think, the very least efficient way of doing it.

[Welshgasman]

Think about it, what are you going to update, if you have just deleted the record?

Error message means what it says.

[LittleRock Z]

I want to stick with VBA coding. Over all problem is I have a form to print a list from allnames, sorted on load by name.
The family wants a printed copy, which takes a lot of paper, 800 names. I want to put 2 columns on a page, with the
2nd column being the lower half of the first column.

[LittleRock Z]

I want to stick with VBA coding, yes I am old school. Over all problem is I have a form to print a list from allnames, sorted on load by name.
The family wants a printed copy, which takes a lot of paper, 800 names. I want to put 2 columns on a page, with the
2nd column being the lower half of the first column.

[LittleRock Z]

I want to stick with VBA coding. Over all problem is I have a form to print a list from allnames, sorted on load by name.
The family wants a printed copy, which takes a lot of paper, 800 names. I want to put 2 columns on a page, with the
2nd column being the lower half of the first column.
Can I have 2 tables supporting the same form? One for column 1 and one for column 2?

[LittleRock Z]

I want to stick with VBA coding, yes I am old school. Over all problem is I have a form to print a list from allnames, sorted on load by name.
The family wants a printed copy, which takes a lot of paper, 800 names. I want to put 2 columns on a page, with the
2nd column being the lower half of the first column.
Can I have 2 tables supporting 1 form?

[madpiet]

I'm lost. Why not use a report to print?

Are you doing this backwards deliberately? VBA is fine. I have nothing against it, but there are many easier ways of accomplishing things. Use VBA when you need to do something perhaps out of the ordinary. Create a two-column report. Then set the sort order in your report.