Σύνθετο πλαίσιο με προεπιλεγμένη τιμή

[dimitrisp]

Γεια σας

Στη συνημμένη βάση έχω δημιουργήσει μία Φόρμα στην οποία εμπεριέχονται
δύο πεδία: Ένα σύνθετο πλαίσιο, με προεπιλεγμένη τιμή τη φράση
"Επιλογή τιμής" και το [Pedio1].

Εαν παραλείψουμε να συμπληρώσουμε το σύνθετο πλαίσιο, με κάποια από τις τιμές του,
και, στη συνέχεια, πάμε να συμπληρώσουμε το [Pedio1], θα ήθελα με το κλίκ που θα
κάνουμε σ`αυτό (Pedio1):
α) Να εμφανίζεται σχετικό μήνυμα,
β) Να επιστρέφει κατόπιν η εστίαση στο σύνθετο και, τέλος,
γ) Να μη μας επιτρέπεται να συνεχίσουμε αν προηγουμενως δε δώσουμε τιμή στο σύνθετο.

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

Σας ευχαριστώ εκ των προτέρων

[dimitrisp]

Τελικά, βρήκα λύση με τον παρακάτω κώδικα:


If Nz(Me.Combo.Column(0), 0) = 0 Then

MsgBox "Δεν καταχωρήθηκε τιμή !", _
vbInformation, "Μήνυμα εφαρμογής!"
Me.Combo.SetFocus
Exit Sub
End If

Δε γνωρίζω αν είναι η καλύτερη λύση, πάντως με τις δοκιμές που έκανα λειτουργεί κανονικά.