[ Πίνακες ] Ορισμός τυχαίου αριθμού σε πεδίο πίνακα

[dimitris p]

Αρχική Δημοσίευση από Tasos

Αγαπητέ Δημήτρη καλησπέρα!

Μάλλον έχεις αφαιρέσει το : On Error Resume Next

πριν από τη γραμμή:

With CreateObject("Scripting.Dictionary")

Τα λέμε..

Τάσος

Τάσο επισυνάπτω τον κώδικα.
Ο κώδικας σταματά στο κίτρινο.
Έχω προσθέσει και ένα άλλο κουμπί που εκτελεί το δεύτερο κώδικα. Μήπως φταίει αυτό;

[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

Φιλικά

Τάσος