Αυτόματη επιστροφή Κέρσορα σε επιλεγμένο πεδίο

[dimitrisp]

Καλησπέρα σε όλους.
Θα ήθελα τη βοήθειά σας στο ακόλουθο θέμα:
Σε μιά Φόρμα (παράδειγμα της οποίας ανεβάζω) έχω κάποια πεδία. Σε ένα πεδίο από αυτά (Πεδίο5) "με το κλικ" έχω περάσει Κώδικα με τον οποίο, σε περίπτωση που το "Πεδίο2" παίρνει μη επιτρεπόμενη τιμη, να βγάζει μήνυμα λάθους.
Εκείνο που θέλω (ίσως, ευκολο για πολλά μέλη του Forum), είναι το εξής: Μετά το μήνυμα, να επιστρέφει ο Κέρσορας (ο δείκτης του ποντικιού) στην εγγραφή που χρειάζεται διόρθωση.
Σας ευχαριστώ εκ των προτέρων
Με εκτίμηση
Δημήτρης

[nasos23]

Καλημέρα σε όλους και ΧΡΟΝΙΑ ΠΟΛΛΑ!!!!
Δημήτρη μπορείς να δοκιμάσεις

Private Sub Πεδίο5_Click()
If Me.Πεδίο2.Value < 40 Then
 Exit Sub
 Else
MsgBox "Λάθος καταχώρηση του Πεδίου2!"
Me.Πεδίο2.SetFocus
End If
End Sub

[dimitrisp]

Νάσο, επίσης, Χρόνια Πολλά. θερμές ευχαριστίες για την άμεση απάντηση στην επίλυση του ζητούμενου. Λειτουργεί άψογα, τέλεια...

[kapetang]

Καλησπέρα στην παρέα

Θα μπορούσε να χρησιμοποιηθεί και ο κώδικας:

Private Sub Πεδίο5_Click()
    If Me.Πεδίο2.Value >= 40 Then
        MsgBox "Λάθος καταχώρηση του Πεδίου2!"
        Me.Πεδίο2.SetFocus
    End If
End Sub

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

[dimitrisp]

Καλησπέρα Γιώργο, Καλησπέρα στην παρέα του 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.

Με εκτίμηση
Δημητρης

[kapetang]

Καλησπέρα

Δημήτρη, θα πρότεινα τον κώδικα:

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

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

[dimitrisp]

Γιώργο, θερμές ευχαριστείες για την άμεση απάντησή σου.
Ο Κώδικας που πρότεινες λειτουργεί άψογα .
Είμαι ειλικρινά υπόχρεος...
Δημήτρης

[gmax]

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

Επίσης και κάτι άλλο άσχετο με το θέμα, αν φυσικά επιτρέπεται.
Σε δευτερεύουσα φόρμα έχω ένα checkbox (ναι/όχι). Πώς μπορώ να έχω ένα αδέσμευτο πεδίο, που να δίνει μόνο το πλήθος των τσεκαρισμένων εγγραφών;
Ευχαριστώ πολύ.

[kapetang]

Καλημέρα

Γιώργο, δες μια λύση στη συνημμένη ΒΔ.

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

[gmax]

Γιώργο, ευχαριστώ για την βοήθεια. Σχετικά με το setfocus όλα καλά. Με το πεδίο όμως που μετρά τις τσεκαρισμένες εγγραφές ίσως να μην έγινα κατανοητός και δεν είναι αυτό που ακριβώς ήθελα.
Επισυνάπτω ένα δείγμα στο οποίο ζητώ, στη φόρμα persons2, να ενημερώνεται το πεδίο "ΑρΜελων" με τον αριθμό των ενεργών που έχει "χρεωμένους" ο κάθε ID του πίνακα Persons. Και, αν είναι δυνατόν, να ενημερώνεται άμεσα όταν τσεκάρουμε ή ξετσεκάρουμε το πεδίο "ενεργός".
Με εκτίμηση
Γιώργος