Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια! |
| Εργαλεία Θεμάτων | Τρόποι εμφάνισης |
#1
| |||
| |||
Αυτόματη επιστροφή Κέρσορα σε επιλεγμένο πεδίο
Καλησπέρα σε όλους. Θα ήθελα τη βοήθειά σας στο ακόλουθο θέμα: Σε μιά Φόρμα (παράδειγμα της οποίας ανεβάζω) έχω κάποια πεδία. Σε ένα πεδίο από αυτά (Πεδίο5) "με το κλικ" έχω περάσει Κώδικα με τον οποίο, σε περίπτωση που το "Πεδίο2" παίρνει μη επιτρεπόμενη τιμη, να βγάζει μήνυμα λάθους. Εκείνο που θέλω (ίσως, ευκολο για πολλά μέλη του Forum), είναι το εξής: Μετά το μήνυμα, να επιστρέφει ο Κέρσορας (ο δείκτης του ποντικιού) στην εγγραφή που χρειάζεται διόρθωση. Σας ευχαριστώ εκ των προτέρων Με εκτίμηση Δημήτρης |
#2
| |||
| |||
Καλημέρα σε όλους και ΧΡΟΝΙΑ ΠΟΛΛΑ!!!! Δημήτρη μπορείς να δοκιμάσεις Κώδικας: Private Sub Πεδίο5_Click() If Me.Πεδίο2.Value < 40 Then Exit Sub Else MsgBox "Λάθος καταχώρηση του Πεδίου2!" Me.Πεδίο2.SetFocus End If End Sub |
#3
| |||
| |||
Νάσο, επίσης, Χρόνια Πολλά. θερμές ευχαριστίες για την άμεση απάντηση στην επίλυση του ζητούμενου. Λειτουργεί άψογα, τέλεια...
|
#4
| |||
| |||
Καλησπέρα στην παρέα Θα μπορούσε να χρησιμοποιηθεί και ο κώδικας: Κώδικας: Private Sub Πεδίο5_Click() If Me.Πεδίο2.Value >= 40 Then MsgBox "Λάθος καταχώρηση του Πεδίου2!" Me.Πεδίο2.SetFocus End If End Sub |
#5
| |||
| |||
Καλησπέρα Γιώργο, Καλησπέρα στην παρέα του Forum. Ευχαριστώ και εσένα Γιώργο για τον προτεινόμενο Κώδικα. Δεδομένου ότι, ως συνήθως, οι απαντήσεις σου στο Forum, κατά την άποψή μου, εμπεριέχουν το στοιχείο της απλότητας (αξία της απλότητας = φιλικότητα στο χρήστη, λειτουργικότητα), θα ήθελα να παραθέσω τον πραγματικό Κώδικα που χρησιμοποιώ στη Φόρμα μου και να σε ρωτήσω το εξής: Γίνεται να συντμηθεί (απλοποιηθεί) ο Κώδικας αυτός προκειμένου να μην έχουμε επαναλήψεις; Ο Κώδικας: Private Sub ΗΜΕR_LHXHS_LostFocus() Me.Requery If Me.MM.Value = 3 Then Exit Sub End If If Me.MM.Value = 6 Then Exit Sub End If If Me.MM.Value = 12 Then Exit Sub Else MsgBox "Λάθος καταχώρηση της Ημερομηνίας Λήξης!" Me.ΗΜΕR_LHXHS.SetFocus End If End Sub [Οπου ΜΜ= Το πεδίο που θέλω να παιρνει μονο τιμές 3,6,12.] Είναι δε αυτονόητο πως ευπρόσδεκτες είναι και οι απαντήσεις από όλα τα Μελη του Forum. Με εκτίμηση Δημητρης |
#6
| |||
| |||
Καλησπέρα Δημήτρη, θα πρότεινα τον κώδικα: Κώδικας: Private Sub ΗΜΕR_LHXHS_LostFocus() Me.Requery If Not (Nz(Me.MM, 0) = 3 Or Nz(Me.MM, 0) = 6 Or Nz(Me.MM, 0) = 12) Then MsgBox "Λάθος καταχώρηση της Ημερομηνίας Λήξης!" Me.ΗΜΕR_LHXHS.SetFocus End If End Sub |
#7
| |||
| |||
Γιώργο, θερμές ευχαριστείες για την άμεση απάντησή σου. Ο Κώδικας που πρότεινες λειτουργεί άψογα . Είμαι ειλικρινά υπόχρεος... Δημήτρης |
#8
| |||
| |||
Καλημέρα σας και καλό μήνα. Να ρωτήσω κι εγώ κάτι σχετικό με το SetFocus. Αν θέλουμε να εστιάσουμε σε πεδίο κύριας φόρμας, ενώ η εντολή πρέπει να δοθεί σε πεδίο δευτερεύουσας, πώς πρέπει να είναι ο κώδικας; Επίσης και κάτι άλλο άσχετο με το θέμα, αν φυσικά επιτρέπεται. Σε δευτερεύουσα φόρμα έχω ένα checkbox (ναι/όχι). Πώς μπορώ να έχω ένα αδέσμευτο πεδίο, που να δίνει μόνο το πλήθος των τσεκαρισμένων εγγραφών; Ευχαριστώ πολύ. |
#9
| |||
| |||
Καλημέρα Γιώργο, δες μια λύση στη συνημμένη ΒΔ. Φιλικά/Γιώργος |
#10
| |||
| |||
Γιώργο, ευχαριστώ για την βοήθεια. Σχετικά με το setfocus όλα καλά. Με το πεδίο όμως που μετρά τις τσεκαρισμένες εγγραφές ίσως να μην έγινα κατανοητός και δεν είναι αυτό που ακριβώς ήθελα. Επισυνάπτω ένα δείγμα στο οποίο ζητώ, στη φόρμα persons2, να ενημερώνεται το πεδίο "ΑρΜελων" με τον αριθμό των ενεργών που έχει "χρεωμένους" ο κάθε ID του πίνακα Persons. Και, αν είναι δυνατόν, να ενημερώνεται άμεσα όταν τσεκάρουμε ή ξετσεκάρουμε το πεδίο "ενεργός". Με εκτίμηση Γιώργος |
Ετικέτες |
φόρμες |
« Προηγούμενο Θέμα
|
Επόμενο Θέμα »
| |
Παρόμοια Θέματα | ||||
Θέμα | Δημιουργός | Forum | Απαντήσεις | Τελευταίο Μήνυμα |
[ Φόρμες ] ΕΠΙΣΤΡΟΦΗ ΚΕΡΣΟΡΑ ΣΕ ΠΕΔΙΟ | artchrist73 | Access - Ερωτήσεις / Απαντήσεις | 3 | 27-11-11 16:55 |
[Γενικά] Επόμενο επιλεγμένο κελί για καταχώρηση | φωτης | Excel - Ερωτήσεις / Απαντήσεις | 3 | 31-01-11 21:18 |
[ Πίνακες ] Αυτόματη εγγραφή πεδίου από άλλο πεδίο | Free_Ghost | Access - Ερωτήσεις / Απαντήσεις | 10 | 01-02-10 07:13 |
Η ώρα είναι 00:20.