Αύξουσα αρίθμηση σε πεδίο φόρμας
 

Καλησπέρα και πάλι.

Θα ήθελα μια βοήθεια στο εξής.
Έχουμε σε φόρμα τα εξής 2 πεδία.
Στο ένα έχω ένα σύνθετο πλαίσο (ΚΑΤΑΣΤΑΣΗ) το οποίο έχει τις τιμές (Συμβόλαιο,Ανανέωση,Άκυρο,Π ρός ακύρωση) και το άλλο πεδίο είναι το (ΑΡ ΑΝΑΝΕΩΣΗΣ)

Θα ήθελα κάθε φορά που πατάω την επιλογή Ανανέωση από το πεδίο (ΚΑΤΑΣΤΑΣΗ) να αυξάνεται κατά 1 ο αριθμός στο πεδίο (ΑΡ. ΑΝΑΝΕΩΣΗΣ).

Καλησπέρα

Πρόσφατα δόθηκε μια λύση στο θέμα της αυτοματοποιημένης αρίθμησης. Μπορείς να τη δεις εδώ και να γνωρίσεις μια ιδέα του φίλου μας Δημήτρη.

Να ρωτήσω όμως κάτι. Αν δεν είσαι σε περιβάλλον νέας εγγραφής, θες πάλι να αυξηθεί η αρίθμηση της τρέχουσας εγγραφής κατά ένα (+1) και σε σχέση με ποιάς εγγραφής το [ΑΡ_ΑΝΑΝΕΩΣΗΣ] ; Της προηγούμενης ή της τελευταίας που καταχωρήθηκε ή ...


Με εκτίμηση

Νίκος Δ.

Νίκο καλησπέρα.
Αυτό θα γίνεται πάντα σε υπάρχοντες πελάτες και όχι σε νέες εγγραφές,σε νέο πελάτη μπαίνει πάντα η επιλογή (συμβόλαιο).
Η αρίθμηση θέλω να αυξάνεται +1 βάση της προηγούμενης,π.χ αν ο αριθμός ανανέωσης είναι 3 πατώντας ανανέωση να αυξάνεται σε 4.
Επίσης την πρώτη φορά που θα επιλέξω ανανέωση να ξεκινάει από το 1.

Ευχαριστώ!!

Γιώργο,
Βάλε προεπιλεγμένη (default) τιμή στο πεδίο [ΑΡ_ΑΡΙΘΜΗΣΗ] ίση με ένα (1). Να εργαστείς στο περιβάλλον σχεδίασης πίνακα.
Στο συμβάν 'Μετά την ενημέρωση' του πλαισίου ΚΑΤΑΣΤΑΣΗ γράψε κάτι σαν αυτό:

Αν όμως οι επιλογές του πλαισίου ΚΑΤΑΣΤΑΣΗ συνοδεύονται από ID, τότε γράψε κάπως έτσι:

Καλή δουλειά αγαπητέ μου

Νίκος Δ.

Νίκο καθ' ότι άσχετος όταν στο (μετά από ενημέρωση) υπάρχει ήδη ο παρακάτω κώδικας τι κάνω;

Private Sub κατάσταση_AfterUpdate()
If Me.NewRecord Then Exit Sub
If Me.κατάσταση = "ανανέωση" Then
Me.έναρξη = Me.λήξη
comboDiarkia_AfterUpdate
End If
End Sub

Δικό σου δημιούργημα και αυτό.

Απλά, προσθέτεις μια γραμμή Γιώργη!

Private Sub κατάσταση_AfterUpdate()
If Me.NewRecord Then Exit Sub
If Me.κατάσταση = "ανανέωση" Then
Me.έναρξη = Me.λήξη
me.ΑΡ_ΑΝΑΝΕΩΣΗΣ = me.ΑΡ_ΑΝΑΝΕΩΣΗΣ +1
comboDiarkia_AfterUpdate
End If
End Sub

Το πεδίο [ΑΡ_ΑΝΑΝΕΩΣΗΣ] δεν ξέρω αν το γράφω σωστά...

Καλή συνέχεια.

Νίκος Δ.

Νίκο είναι οκ,σε ευχαριστώ πάρα πάρα πολύ.

Καλό σου βράδυ!!

Νίκο καλησπέρα,
Θα μπορούσες να με βοηθήσεις και σε κάτι ακόμη;
Έχω 2 πεδία στην φόρμα (ΝΟΜΟΣ) και (ΑΛΛΗΛΟΓΡΑΦΙΑ).
Θα ήθελα όταν στο πεδίο ΝΟΜΟΣ βάζω ΑΤΙΚΗ ή ΑΤΙΚΗΣ το πεδίο ΑΛΛΗΛΟΓΡΑΦΙΑ να παίρνει την τιμή ΝΑΙ.
Στο πεδίο αλληλογραφία έχω ως προεπιλογή το ΟΧΙ.

Καλησπέρα Γιώργο

Στο συμβάν "Με την εστίαση" του πεδίου [ΑΛΛΗΛΟΓΡΑΦΙΑ], γράψε :

Προσοχή όμως στα Ελληνικά ή στα Εγγλέζικα για το ΝΑΙ...

Αυτά αγαπητέ μου


Υστερολόγιο: Θα είχες πάρει απάντηση από άλλους φίλους-μέλη του Forum, αν η ερώτηση απευθυνόταν σε όλους...

Σε ευχαριστώ Νίκο,
Υπάρχει όμως το εξής πρόβλημα και το ερώτημα απευθύνεται και σε όποιοδήποτε άλλο φίλο που θα ήθελε να βοηθήσει.
Βάζοντας στο πεδίο ΝΟΜΟΣ (ΑΤΤΙΚΗΣ) το πεδίο ΑΛΛΗΛΟΓΡΑΦΙΑ αλλάζει σε ΝΑΙ εάν όμως μπήκε κατά λάθος και αλλάξεις το πεδίο ΝΟΜΟΣ π.χ σε ΘΕΣΣΑΛΟΝΙΚΗ δεν αλλάζει σε (ΟΧΙ) αλλά παραμένει το (ΝΑΙ) στο πεδίο αλληλογραφία.

Αφαίρεσε την εντολή που ήδη έχεις και ...

Πρόσεχε πάλι στο 'ΝΑΙ' και στο 'ΟΧΙ'

Αυτά αγαπητέ μου...

Είναι εντάξει,
Σε ευχαριστώ και πάλι.

Καλησπέρα σε όλους τους φίλους του forum.
Επανήλθα και χρειάζομαι ξανά την βοήθειά σας.

Χρησιμοποιώ την πιο πάνω εντολή και στο πεδίο (ΕΤΑΙΡΙΑ) ως εξής

if me.ΕΤΑΙΡΙΑ="DEMCO" or me.ΕΤΑΙΡΙΑ="ΕΘΝΙΚΗ" then
Me.[ΝΟΜΙΚΗ_ΠΡΟΣΤΑΣΙΑ] = "ΙΣΧΥΕΙ"
Else
Me.[ΝΟΜΙΚΗ_ΠΡΟΣΤΑΣΙΑ] = ""
End If

Το ερώτημα είναι πως επιλέγοντας ΕΘΝΙΚΗ από το πεδίο ΕΤΑΙΡΙΑ να μπαίνει το ΙΣΧΥΕΙ και στο πεδίο [ΟΔΙΚΗ ΒΟΗΘΕΙΑ] = "ΙΣΧΥΕΙ".

Καλημέρα

Γιώργη, χαλάλι στο κουράγιο σου. Δεν το βάζεις κάτω. Αλλά με το διάβασμα δεν έχεις καλές σχέσεις...

Πρίν τη γραμμή του else γράψε : me.[ΟΔΙΚΗ ΒΟΗΘΕΙΑ] = "ΙΣΧΥΕΙ" και αμέσως μετά την γραμμή του: me.[ΟΔΙΚΗ ΒΟΗΘΕΙΑ] = ""

Με εκτίμηση

Νίκος Δ.

Καλησπέρα Νίκο,το παλεύω αλλά από κώδικα δεν έχω ιδέα,θα βρω πιστεύω κάποια στιγμή τον χρόνο και την διάθεση να κάτσω να μελετήσω και να μάθω κάποια πράγματα.

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

Θέλω όταν επιλέγω από το πεδίο ΕΤΑΙΡΙΑ την (DEMCO) να αναγράφεται μόνο στο πεδίο ΝΟΜΙΚΗ ΠΡΟΣΤΑΣΙΑ (ΙΣΧΥΕΙ) .

Όταν επιλέγω από το πεδίο ΕΤΑΙΡΙΑ την (ΕΘΝΙΚΗ) να αναγράφεται στο πεδίο ΝΟΜΙΚΗ ΠΡΟΣΤΑΣΙΑ (ΙΣΧΥΕΙ) αλλά και στο πεδίο ΟΔΙΚΗ ΒΟΗΘΕΙΑ (ΙΣΧΥΕΙ).

Καλησπέρα

Αν επιλέξεις μια τρίτη ΕΤΑΙΡΕΙΑ, παράδειγμα την 'ΑΣΤΕΡΑΣ" τι πρέπει να γίνει, Γιώργη;

Τι εννοείς;

Σε κάποια τρίτη Εταιρία π.χ ο Αστέρας μπορεί να πρέπει να μπεί η ένδειξη ΙΣΧΥΕΙ μόνο στο πεδίο ΟΔΙΚΗ ΒΟΗΘΕΙΑ κ.λ.π,φαντάζομαι πως βλέποντας την λογική του κώδικα για να γίνεται το παραπάνω μπορώ μετά να κάνω και τα ανάλογα για τις άλλες Εταιρίες.

Γιώργη,
Δες τη παρακάτω δομή και προσάρμοσέ την στην εφαρμογή σου.

Καλό βράδυ σε όλους μας...

Με εκτίμηση

Νίκος Δ.

Σε ευχαριστώ πολύ Νίκο,
Καλό βράδυ!!