[ Φόρμες ] Ενεγοποίηση πεδίου κατ' επιλογή

[agantos]

Καλημέρα. Εφάρμοσα την προτροπή του Κυρίου Νάσου και ήμουν πολυ χαρούμενη μέχρι που σκόνταψα στο εξής πρόβλημα. Κάνοντας την επιλογή "μή κανονική" που ενεργοποιεί το πεδίο "σχόλια" πρέπει να κάνω ανανέωση για να γίνει η μεταβολή της κατάστασης. Με την ανανέωση όμως μεταφέρομαι στην πρώτη εγγραφή. Η φόρμα μου είναι μονή και για την επιλογή "κανονική"-"μη κανονική" χρησιμοποίησα μια ομάδα επιλογών με προεπιλεγμένη τιμή το "κανονική". Δεν με ενοχλεί να κάνω ανανέωση εαν και θα ηταν προτιμότερο να γίνεται αυτόματα με το tab. Θα εξυπηρετούσε ομως εαν υπήρχε τρόπος να επιστρέφει στο επόμενο πεδίο. Μπορεί κανεις να βοηθήσει;

Ευχαριστώ πολύ.

[nasos23]

Αρχική Δημοσίευση από agantos

Καλημέρα. Εφάρμοσα την προτροπή του Κυρίου Νάσου και ήμουν πολυ χαρούμενη μέχρι που σκόνταψα στο εξής πρόβλημα. Κάνοντας την επιλογή "μή κανονική" που ενεργοποιεί το πεδίο "σχόλια" πρέπει να κάνω ανανέωση για να γίνει η μεταβολή της κατάστασης. Με την ανανέωση όμως μεταφέρομαι στην πρώτη εγγραφή. Η φόρμα μου είναι μονή και για την επιλογή "κανονική"-"μη κανονική" χρησιμοποίησα μια ομάδα επιλογών με προεπιλεγμένη τιμή το "κανονική". Δεν με ενοχλεί να κάνω ανανέωση εαν και θα ηταν προτιμότερο να γίνεται αυτόματα με το tab. Θα εξυπηρετούσε ομως εαν υπήρχε τρόπος να επιστρέφει στο επόμενο πεδίο. Μπορεί κανεις να βοηθήσει;

Ευχαριστώ πολύ.

Καλημέρα στο Forum,
Καλημέρα Ανθή.

Καλό θα ήταν να ανεβάσεις ένα δείγμα της βάσης σου.

Φιλικά
Νάσος

[kapetang]

Ανθή, Καλημέρα

Επειδή η φόρμα σου είναι μονή, δοκίμασε το εξής:

1. Στη σχεδίαση, όρισε το πλαίσιο κειμένου των σχολίων σε μη ενεργοποιημένο (στον κώδικα το ονομάζω txtSxolia).

2. Στο συμβάν κλικ του πλαισίου επιλογών (στον κώδικα το ονομάζω fraStatus), βάλε τον κώδικα:

Private Sub fraStatus_Click()
    Me.txtSxolia.Enabled = Choose(Me.fraStatus, 0, -1)
End Sub

Φυσικά θα αφαιρέσεις τη μορφοποίηση υπό όρους και θα αντικαταστήσεις τα ονόματα με τα δικά σου.

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

ΥΓ. Στο φόρουμ μπορείς να αισθάνεσαι πιο άνετα. Δε χρειάζονται τα «Κυριλίκια»

[agantos]

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

Ευχαριστω για το χρόνο σας.

[nasos23]

Αρχική Δημοσίευση από agantos

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

Ευχαριστω για το χρόνο σας.

Ανθή καλό είναι να μετατρέψεις τη βάση σου σε .mdb και να
την ανεβάσεις για να μπορούμε
να έχουμε πρόσβαση και μεις με τα office2003.

[agantos]

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

[nasos23]

Αρχική Δημοσίευση από agantos

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

Ανθή καλησπέρα.
Ανεβάζω τη φόρμα σου με κάποιες διορθώσεις.
Νομίζω οτι δεν θα σου κάνει πρόβλημα.


Φιλικά
Νάσος

[Dimitris Ch]

Καλησπέρα Ανθή

Η ιδέα του Γιώργου διορθωμένη

Private Sub frastatus_Click()
Me.commsampcond.Enabled = Me.frastatus
Me.Form.Refresh
End Sub

[kapetang]

Ανθή, Καλησπέρα

Ο κώδικας που πρότεινα βασίζονταν σε τιμές 1 και 2 στο πλαίσιο επιλογών.

Επειδή όμως οι τιμές είναι -1 και 0 λογικό είναι να μη λειτουργεί.

Πέρα από τη λύση που έδωσε ο Νάσος, η ΒΔ που επισυνάπτω, περιέχει:

1. Τη φόρμα «tblsampledetails» στην οποία το ζητούμενο υλοποιείται με κώδικα.

2. Τη φόρμα «tblsampledetails2» στην οποία το ζητούμενο υλοποιείται με μορφοποίηση υπό συνθήκη.

Η λύση αυτή είναι η πιο απλή.

Πιστεύω ότι κάποια από τις 3 προτάσεις θα σε καλύπτει.

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

[agantos]

Καλημέρα σε όλους!

Όλα δουλεύουν και με καλύπτουν και σας ευχαριστώ όλους πολύ για τη βοήθεια σας!!!!

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

Και πάλι ευχαριστώ !!!!

φιλικά
Ανθή