-
i'll start with a little background. i import a text into a table in access 2000. after creating a couple of pieces of paper i copy some of the fields into another table and then export from the second table. during the process that exports i want to delete all of the records from both tables. when i run the program, everyother record gets exported and deleted. those records that aren't exported are still in my tables. i am using ADO and the texttransfer function within access 2000. does anyone have any suggestions?
-
Here is my code if it will be of any help...
Public Sub MapToExp()
Dim ShipSql As String
Dim BookSql As String
Dim ExpBookSql As String
Dim ExpShipSql As String
ShipSql = "Select * From Shipping"
BookSql = "Select * From Books"
ExpBookSql = "Select * From ExpBooks"
ExpShipSql = "Select * From ExpShipping"
Ship.Open ShipSql, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
ExpShip.Open ExpShipSql, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
Do Until Ship.EOF = True
ExpShip.AddNew
ExpShip.Fields(0) = Ship.Fields(0)
ExpShip.Fields(1) = Ship.Fields(1)
ExpShip.Fields(2) = Ship.Fields(2)
ExpShip.Fields(3) = Ship.Fields(3)
ExpShip.Fields(4) = Ship.Fields(4)
ExpShip.Fields(5) = Ship.Fields(5)
ExpShip.Fields(6) = Ship.Fields(6)
ExpShip.Fields(7) = Ship.Fields(7)
ExpShip.Fields(8) = Ship.Fields(8)
ExpShip.Fields(9) = Ship.Fields(9)
ExpShip.Fields(10) = Ship.Fields(10)
ExpShip.Fields(11) = Ship.Fields(11)
ExpShip.Fields(12) = Ship.Fields(12)
ExpShip.Fields(13) = Ship.Fields(13)
ExpShip.Fields(14) = Ship.Fields(22)
ExpShip.Update
Ship.delete
Ship.MoveNext
Loop
Book.Open BookSql, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
ExpBook.Open ExpBookSql, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
Do Until Book.EOF = True
ExpBook.AddNew
ExpBook.Fields(0) = Book.Fields(0)
ExpBook.Fields(1) = Book.Fields(1)
ExpBook.Fields(2) = Book.Fields(2)
ExpBook.Fields(3) = Book.Fields(5)
ExpBook.Update
Book.delete
Book.MoveNext
Loop
End Sub
