Forum

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/3390-aytomati-enimerosi-pedioy-basi-teleytaias-eggrafis.html)

tzvangel 31-10-14 10:18

Αυτοματη ενημερωση πεδιου βαση τελευταιας εγγραφης
 
Καλημερα σας,
σε συνέχεια μιας Βάσεις που φτιάχνω έχω φάει ένα μεγάλο σκάλωμα!!
εχω εναν πινακα (π.χ. ΠΕΛΑΤΕΣ) μεσα εκει εχω 2 πεδια ( Κωδ.πελ | ονομα )
ο πινακας εχει γινει φορμα απλα αυτο που θελω ειναι καθε φορα που δημιουργώ νεα εγγραφή στο πεδιο κωδ.πελ να βαζει αυτοματα την τελευταια τιμη απο την προηγούμενη εγγραφη +1.
Αρα αν η τελευταία τιμη ειναι 878 στην νεα εγγραφη να βαλει αυτοματα 879 κλπ.
Σας ευχαριστω!!!

γιώργοςΚ 31-10-14 10:30

Καλημέρα Βαγγέλη,

Αν θέλεις μπορείς να κάνεις το πεδίο "Κωδ.Πελάτη" να είναι Autonumber... δεν ξέρω βεβαια εάν εννοείς κάτι άλλο αλλά απο τα λεγώμενα σου θα μπορούσε αυτή να είναι η λύση σου.

Φιλικά

tzvangel 31-10-14 10:40

Καλημερα Γιωργο και σε ευχαριστώ για την απαντηση!
ειναι το πρωτο που προσπαθησα να κανω αλλα δυστυχώς ο πινακας ειναι απο παλια βαση και ετσι δεν το δέχεται σαν αυτοματη αριθμιση αλλα μονο σαν αριθμό...!
Το κακο στην ολη υποθεση ειναι οτι ο αριθμος αυτος εχει καταγραφεί πλεον σαν κωδικος πελατη οποτε δεν πρεπει να αλλαχτεί σε καμια περίπτωση...

nasos23 31-10-14 11:59

Καλησπέρα σε όλους
Βαγγέλη η δική μου πρόταση είναι αυτή
Στή φόρμα σου σε μορφή σχεδίασης
Στο πεδίο όνομα->συμβάν -> μετά την ενημέρωση
πρόσθεσε τον κώδικα.
Private Sub Όνομα_AfterUpdate()
Me.Κωδ_πελ = DMax("Κωδ_πελ", "Ο πίνακάς σου", "Κωδ_πελ") + 1
End Sub

tzvangel 31-10-14 15:11

οκ νασο Σε ευχαριστω πολυ για την απαντηση σου ειναι ακριβως αυτο που θελω! Μονο για μεγιστη ασφαλεια προσθεσα αυτη τη συνθήκη
If Nz(Me.κωδ_πελ, 0) = 0 Then
Me.Κωδ_πελ = DMax("Κωδ_πελ", "Ο πίνακάς σου", "Κωδ_πελ") + 1
Else
End If
End Sub

μπορεί στο μελλον να αλλαξει κάποιος χρηστης κατι σε μια καταχωρημένη εγγραφή ;)


Η ώρα είναι 11:42.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2