[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.

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