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

Σελίδα 3 από 3

Εμφάνιση 40 μηνυμάτων αυτού του θέματος σε μία σελίδα

Forum (https://www.ms-office.gr/forum/)

- Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)

- - [ Πίνακες ] Ορισμός τυχαίου αριθμού σε πεδίο πίνακα (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/450-orismos-tyxaioy-arithmoi-se-pedio-pinaka.html)

dimitris p

09-03-10 21:46

Μήνυμα λάθους

1 Συνημμένο(α)

Παράθεση:

Αρχική Δημοσίευση από Tasos (Μήνυμα 2058)

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

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

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

With CreateObject("Scripting.Dictionary")

Τα λέμε..

Τάσος

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

Tasos

09-03-10 22:24

Δημήτρη, δεν έχω κατανοήσει πώς σου βγάζει το σφάλμα 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

Φιλικά

Τάσος

dimitris p

10-03-10 12:09

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

Και πάλι ευχαριστώ
Φιλικά Δημήτρης.

Tasos

11-03-10 09:22

Καλημέρα!
Δημήτρη, βλέποντας μόνο τον κώδικα στην εικόνα του μηνύματος σου, μπορώ να υποθέσω σε (θεωρητικό επίπεδο πάντα)
ότι για κάποιο λόγο (που εγώ "στα τυφλά" δεν μπορώ να καταλάβω) δεν διαβάστηκε και
κατά συνέπεια δεν εκτελέσθηκε η εντολή Resume next από την VBA. Γι αυτό και
εμφάνισε το σφάλμα 457.

Φιλικά

Τάσος

dimitris p

21-03-10 23:51

1 Συνημμένο(α)

Παράθεση:

Αρχική Δημοσίευση από Tasos (Μήνυμα 2092)

Καλησπέρα σε όλους τους φίλους του forum.
Επανέρχομαι στο θέμα της κλήρωσης αλλά αυτή τη φορά είναι πιο πολύπλοκο από το αρχικό.
Επισυνάπτω το αρχείο με μια νέα φόρμα (φύλο αγώνα) όπου εξηγώ τι θα ήθελα να γίνει.
Δεν ξέρω αν αυτό που ζητώ μπορεί να γίνει ή όχι αλλά σε αυτό το forum όλα είναι πιθανά.

Ευχαριστώ πολύ
Φιλικά Δημήτρης...

Tasos

24-03-10 10:38

Δημήτρη καλημέρα!

Μέσα στο αρχείο σου γράφεις:

Παράθεση:

Τι θέλω να κάνω.
Πρώτα θέλω να φιλτράρω τις εγγραφές με βάση το έτος γέννησης και
μετά πατώντας [Κλήρωση] να παίρνει ένα τυχαίο αριθμό.
Θα πρέπει όλοι όσοι φιλτράρονται να παίρνουν ένα αριθμό διαφορετικό για τον καθένα

Απ ότι διαπίστωσα αυτό ακριβώς γίνεται ήδη στο αρχείο που ανέβασες.
Τι δεν κατάλαβα;

Φιλικά

Τάσος

dimitris p

24-03-10 14:51

Καλησπέρα Τάσο και σε όλους τους φίλους.
Καταρχάς να σε ευχαριστήσω που απάντησες στο μήνυμά μου.
Αυτό που θέλω να κάνω ή για να το θέσω καλύτερα, να το κάνεις εσύ ή κάποιος φίλος του Forum (γιατί εγώ αποκλείεται να το κάνω), το περιγράφω στην δεύτερη φόρμα που υπάρχει στο επισυναπτόμενο αρχείο. Είναι συνέχεια του πρώτου αρχείου που όπως σωστά λες γίνεται, αλλά με άλλες δύο παραμέτρους που περιγράφω στην δεύτερη φόρμα "Φύλο Αγώνα". Θα πρέπει δηλαδή ή κλήρωση να μπορεί να λάβει υπόψιν τις 3 περιπτώσεις που περιγράφω.
Την πρώτη περίπτωση την έχεις καλύψει με τον πρώτο κώδικα που είχες στείλει, τώρα αν μπορεί να καλυφθεί ή δεύτερη περίπτωση θα ήταν πολύ καλό, και όσον αφορά την τρίτη περίπτωση που λογικά είναι ή δυσκολότερη αν γίνεται καλώς αλλιώς θα το κάνω χειροκίνητα μετά την κλήρωση.

Δεν ξέρω αν σου έδωσα να καταλάβεις τι πρέπει να γίνει.

Φιλικά Δημήτρης...

Η ώρα είναι 01:15.

Σελίδα 3 από 3

Εμφάνιση 40 μηνυμάτων αυτού του θέματος σε μία σελίδα

Search Engine Optimization by vBSEO 3.3.2