Det verkar inte som att du flyttar till en annan post i postuppsättningen. Öka helt enkelt i flyttar inte till nästa post. Ett mer traditionellt tillvägagångssätt skulle vara att iterera över postuppsättningen utan behov av dina andra variabler (i och rsCnt ).
Dim rs as DAO.Recordset
Set rs = CurrentDb.OpenRecordset("qryMyQuery", DB_OPEN_DYNASET)
rs.moveFirst
Do Until rs.EOF
rs.Edit
rs!FieldNameHere = "test"
rs.Update
rs.MoveNext
Loop
REDIGERA Efter lite letande stötte jag på den här tråden som verkar likna ditt problem. Längst ner i tråden ges ett förslag om att ändra ODBC-inställningarna för din MySQL DSN genom att välja fliken "Avancerat" och välja alternativet "Återställ matchande rader". Inlägget säger också att du ska släppa den länkade tabellen och sedan länka den till din Access-databas igen. Jag har inte använt Access med MySQL tidigare, så jag har ingen aning om detta kommer att fungera eller inte, så fortsätt med försiktighet!
Du kan också försöka ändra din postuppsättning för att använda flaggan dbOptimistic för postuppsättningslåsningsalternativet för att se om det hjälper alls:
set rs = CurrentDB.OpenRecordSet("qryMyQuery", DB_OPEN_DYNASET, dbOptimistic)