Forum

Αναζήτηση στο ms-office.gr

Πάμε!
ms-office.gr > Forum > Microsoft Access > Access - Ερωτήσεις / Απαντήσεις > [ Φόρμες ] Αυτόματη απόδοση αύξοντα αριθμού

Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια!

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 27-10-11, 09:11
Όνομα: ΓΙΩΡΓΟΣ
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 02-02-2010
Μηνύματα: 136
Προεπιλογή Αυτόματη απόδοση αύξοντα αριθμού

Καλημέρα σας. Έχω βρει πολλές λύσεις στο forum αλλά αυτή τη φορά θέλω κάτι πιο σύνθετο. Συγκεκριμένα έχω μια φόρμα που περνάω πληρώματα σκαφών για αγώνες κωπηλασίας και θέλω, αν γίνεται, στο πεδίο "ΔΙΑΔΡΟΜΗ" να μου βάζει αυτόματα τον αριθμό διαδρομής, λαμβάνοντας υπ' όψιν δεδομένα από δύο άλλα πεδία. Δηλαδή αν στο πεδίο "ΚΑΤΗΓΟΡΙΑ" η τιμή είναι 'ΠΑΙΔΩΝ" και στο πεδίο "ΑΓΩΝΙΣΜΑ" η τιμή είναι "1Χ" το πρώτο πλήρωμα που θα εγγραφεί να πάρει τον αριθμό 1, το δεύτερο τον αριθμό 2 και ούτω καθ' εξής. Αν αλλάξει μια τιμή στα προαναφερθέντα πεδία, "ΚΑΤΗΓΟΡΙΑ" ή "ΑΓΩΝΙΣΜΑ" η αρίθμηση να αρχίσει από την αρχή. Αυτό περίπου γίνεται, με τη βοήθειά σας, στο πεδίο "ΑΡ ΠΛΗΡΩΜΑΤΟΣ", αλλά εκεί είναι μια απλή αρίθμηση χωρίς παραμέτρους. Δεν ξέρω αν έγινα κατανοητός, γιαυτό επισυνάπτω και το αρχείο.

Σας ευχαριστώ
Συνημμένα Αρχεία
Τύπος Αρχείου: mdb ΑΓΩΝΕΣ ΝΟΓ.mdb (676,0 KB, 13 εμφανίσεις)
Απάντηση με παράθεση
  #2  
Παλιά 27-10-11, 11:07
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.190
Προεπιλογή

Καλημέρα στην παρέα

Γιώργο, στη ΒΔ που επισυνάπτω, επιχείρησα μια προσέγγιση του ζητούμενου.
Συγκριμένα στη φόρμα «ΕΙΣΑΓΩΓΗ ΣΥΜΜΕΤΟΧΩΝ» πρόσθεσα τον παρακάτω κώδικα:
Κώδικας:
Private Sub ΑΓΩΝΙΣΜΑ_AfterUpdate()
        If Me.NewRecord Then NewPath
End Sub

Private Sub ΚΑΤΗΓΟΡΙΑ_AfterUpdate()
    If Me.NewRecord Then NewPath
End Sub

Public Sub NewPath()
    If IsNull(Me.ΚΑΤΗΓΟΡΙΑ) Or IsNull(Me.ΑΓΩΝΙΣΜΑ) Then Exit Sub
    Me.ΔΙΑΔΡΟΜΗ = Nz(DMax(" [ΔΙΑΔΡΟΜΗ]", "Πίνακας1", " [ΚΑΤΗΓΟΡΙΑ]='" & _
    Me.ΚΑΤΗΓΟΡΙΑ & "' And [ΑΓΩΝΙΣΜΑ]='" & Me.[ΑΓΩΝΙΣΜΑ] & "'")) + 1
End Sub
Φιλικά/Γιώργος
Συνημμένα Αρχεία
Τύπος Αρχείου: mdb ΑΓΩΝΕΣ ΝΟΓ2.mdb (708,0 KB, 73 εμφανίσεις)
Απάντηση με παράθεση
  #3  
Παλιά 27-10-11, 13:45
Όνομα: ΓΙΩΡΓΟΣ
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 02-02-2010
Μηνύματα: 136
Προεπιλογή

Τελικά δεν έχετε όρια! Ευχαριστώ πολύ, δουλεύει έτσι όπως ακριβώς ήθελα!
Απάντηση με παράθεση
Απάντηση στο θέμα

Εργαλεία Θεμάτων
Τρόποι εμφάνισης

Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
[ Φόρμες ] Αυτόματη προεπιλογή αριθμού σε φόρμα KAKISDF Access - Ερωτήσεις / Απαντήσεις 6 17-09-14 21:09
[ Φόρμες ] Αυτόματη εύρεση ή απόδοση νέου ID gmax Access - Ερωτήσεις / Απαντήσεις 1 15-08-14 10:06
Ανακάτεμα σε αυτόματη απόδοση αριθμών gmax Access - Ερωτήσεις / Απαντήσεις 5 02-11-11 18:42
[ Ερωτήματα ] Αυτόματη απόδοση τιμής προιόντος σε φόρμα AKIS1986 Access - Ερωτήσεις / Απαντήσεις 5 27-03-11 20:25
[Γενικά] αυτόματη προσαρμογή αριθμου σε κελί misirlis Excel - Ερωτήσεις / Απαντήσεις 2 24-03-11 06:04


Η ώρα είναι 21:52.