MS Access and VB Basic
Posted on 2003-03-05
I am using VB6/(DAO data object)/MSAccess2000.
In my app the user can add/delete, move next/previous through records.
I am using the following code to add a new record:
Dim db As Database
Dim rs As Recordset
'Open database and recordset
DBPath = App.path & "\XCollections.mdb"
Set db = OpenDatabase(DBPath)
Set rs = db.OpenRecordset("observation")
PROBLEM: When I use the code below, the intent is that the new record will be added as the last record in the database. But, insted it inserts the record 5 records BEFORE the EOF. It places the record here regardless of which record is displayed.
'I use this code to add a new record:
.Fields("unsolicited_obs") = gObservationChoice