update problem cannot see why

[akoymakoy]

Is there anything wrong with my code?? Im just trimming the entries because a lot has spaces after them. after i click my button there is a runtime error saying that the update has affected too many rows.

Private Sub Command4_Click()
Dim x As String
Dim y As String
 
        Dim MyConn As ADODB.Connection
        Dim MyRecSet As ADODB.Recordset
        Set MyConn = New ADODB.Connection
        MyConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\thesis\FINAL\FilipinoDict.mdb;"
        MyConn.Open
         Set MyRecSet = New ADODB.Recordset
 
    MyRecSet.CursorLocation = adUseClient
    MyRecSet.Open "SELECT * FROM Dictionary", MyConn.ConnectionString, adOpenKeyset, adLockPessimistic
        With MyRecSet
 
        Do Until .EOF
            x = .Fields(0)
            y = .Fields(1)
 
            .Fields(0).Value = RTrim(x)
 
            .Fields(1).Value = RTrim(y)
 
 
            .MoveNext
        Loop
        End With
End Sub

Thanks

[willakawill]

Hi, you are editing without updating. By the end of your while loop you have edited every row in your recordset and updated none.
Try it this way:

Dim bm As Variant
 
Do Until MyRecSet.EOF
   bm = MyRecSet.Bookmark
   MyRecSet.Fields(0).Value = RTrim(MyRecSet.Fields(0).Value)
 
   MyRecSet.Fields(1).Value = RTrim(MyRecSet.Fields(1).Value )
   MyRecSet.Update
   MyRecSet.Bookmark = bm
 
   MyRecSet.MoveNext
Loop

[Killer42]

   bm = MyRecSet.Bookmark
   MyRecSet.Bookmark = bm

I'm curious, will. What's the reason for storing and then setting the bookmark?