Αύξων αριθμός σε κάθε έτος

[Meteora]

Καλησπέρα

Υπήρχαν κάποια κενά στην sql του ερωτήματος... Χρήστο, είναι λάθος να απευθύνεις μια ερώτηση σε κάποιο μέλος, διότι δεν είναι ευγενικό προς τους υπόλοιπους, τους οποίους -έμμεσα αποκλείεις από το να σε δώσουν μια απάντηση.
Καλή συνέχεια...

Με εκτίμηση
Νίκος Δ.

Τάσο το ερώτημα μου στην access είναι "Αύξων αριθμός σε κάθε έτος" και σε αυτό δεν μου έχει απαντήσει ο ΜΕΤΕΩΡΑ. Ο τελευταίος ήσουν εσύ και μετά σου έγραψα εγώ και δεν μου απάντησες. Τουλάχιστον έτσι βλέπω εγώ δεν νομίζω να είναι διαφορετικά. Σε ευχαριστώ

[Dimitris Ch]

Λάθη στην σύνταξη των ονομάτων είχες και κάποια κενά νομίζω
Αυτό που έστειλε ο Τάσος ήταν σωστό
Το διόρθωσα και σου το στέλνω

[vala]

Καλησπέρα! Χρόνια πολλά! Ψάχνοντας κάτι αντίστοιχο και εγώ βρήκα αυτό που πρότεινε ο Τάσος. Απλά εγώ θέλω να έχω αριθμηση κάθε μήνα και όχι κάθε ημέρα! Πως πρέπει να γράψω τον κωδικα;

[nasos23]

Καλημέρα σε όλους
Νίκο δές το ερώτημα βασισμένο στην πρόταση του Τάσου

[kapetang]

Καλησπέρα και καλή χρονιά

Για την υλοποίηση του ζητούμενου θα πρέπει ο πίνακας στον οποίο καταχωρούνται τα στοιχεία των εγγράφων, εκτός των άλλων, να περιέχει ένα πεδίο για τον αριθμό πρωτοκόλλου και ένα για την ημερομηνία πρωτοκόλλησης.

Στο συνημμένο παράδειγμα ο πίνακας ονομάζεται [Table1], το πεδίο για τον αριθμό πρωτοκόλλου [fP] και το πεδίο για την ημερομηνία [fDate].

Τα ίδια με τα πεδία ονόματα έχουν και τα πλαίσια κειμένου της φόρμας [frmTable], που χρησιμοποιείται για την καταχώρηση των εγγράφων.

Στην περίπτωση καταχώρησης ενός εγγράφου στη φόρμα (δημιουργίας νέας εγγραφής), όταν εισέλθουμε στο πεδίο [fP] , εκτελείται ο παρακάτω κώδικας:

Private Sub fP_GotFocus()
    If Me.NewRecord Then
        If IsDate(Me.fDate) Then
            If Me.fDate < Nz(DMax("[fDate]", "[Table1]"), 0) Then
                MsgBox "Η ημερομηνία δεν μπορεί να είναι μικρότερη των ήδη καταχωρηθεισών"
                Me.fDate.SetFocus
                Exit Sub
            End If
            Me.fP = Nz(DMax("[fP]", "Table1", "Year([fDate])=" & Year([fDate]) & _
                                            " And Month([fDate])=" & Month([fDate]))) + 1
        Else
            MsgBox "Πρέπει να συμπληρώσετε την ημερομηνία"
            Me.fDate.SetFocus
        End If
    End If
End Sub

Ο κώδικας, αν διαπιστωθεί ότι συμπληρώθηκε έγκυρη ημερομηνία, συμπληρώνει το πεδίο [fP] με τον κατάλληλο αριθμό πρωτοκόλλου.

Νίκο ελπίζω να μπορέσεις να προσαρμόσεις το παράδειγμα στα δεδομένα σου.

Σημείωση:

1) Ο τύπος του Νάσου είναι σωστός, αλλά δεν καλύπτει την περίπτωση που οι καταχωρήσεις αφορούν πολλά (όχι ένα) χρόνια.

2) Νίκο (vala) στο σύνδεσμο: http://www.ms-office.gr/forum/access...arithmisi.html έκανες το ίδιο ερώτημα και πήρες μια λύση από το Νίκο (Meteora).

Το σωστό θα ήταν να συνεχίσεις το θέμα που άνοιξες (να δοκιμάσεις τη λύση και να ενημερώσεις αν σε καλύπτει) και όχι να το εγκαταλείψεις διατυπώνοντας την ίδια ερώτηση και σε κάποιο παλιότερο θέμα.

Φιλικά/Γιώργος

[vala]

Θα το δοκιμάσω και θα σας ενημερώσω! Γιώργο έχεις δίκιο για το ερώτημα! Απλά είδα μετά ότι υπάρχει σχετικό θέμα με αυτό που θέλω και ξέχασα να το διορθώσω!Σας ευχαριστώ πολύ πάντως!