[Tasos]

Δημήτρη, δεν έχω κατανοήσει πώς σου βγάζει το σφάλμα 457 αφού με τη γραμμή
On Error Resume Next θα αγνοηθούν τα λάθη που προκαλούνται κατά την
προσθήκη εγγραφής που ήδη έχει περαστεί.

Επειδή εκ των πραγμάτων δεν μπορώ να δω το πρόβλημα σου σε βάθος,
Θα σου συνιστούσα να τρέχεις τον παρακάτω κώδικα που δεν χρειάζεται ρουτίνα χειρισμού σφαλμάτων:

Private Sub Εντολή11_Click()
      Dim i%, RecCount%, fld As DAO.Field, strSql$, x&, rng&, Itm&, LngMin&, LngMax&
      strSql = "Select * From " & Me.RecordSource & IIf(Me.FilterOn, " Where " & Me.Filter, vbNullString)
      With CurrentDb.OpenRecordset(strSql, dbOpenDynaset)
          If .RecordCount Then .MoveLast: .MoveFirst
          RecCount = .RecordCount
          LngMin = 0
          LngMax = RecCount
          Set fld = .Fields("ΑρΚλήρωσης")
          ReDim xKeys(LngMin To LngMax)
          For i = LngMin To LngMax - 1
              xKeys(i) = i + 1
          Next
          rng = LngMax - LngMin
          For i = LngMin To LngMax - 1
              x = Int(Rnd * rng) + i
              Itm = xKeys(x)
              xKeys(x) = xKeys(i)
              xKeys(i) = Itm
              rng = rng - 1
          Next
          For i = 0 To RecCount - 1
              .Edit
              fld = xKeys(i)
              .Update
              .MoveNext
          Next
          .Close
      End With
      Me.Refresh
      Me.ΑρΚλήρωσης.SetFocus
      DoCmd.RunCommand acCmdSortAscending
  End Sub

Φιλικά

Τάσος