Forum

Forum (https://www.ms-office.gr/forum/)
-   Visual Basic .NET (https://www.ms-office.gr/forum/visual-basic-net/)
-   -   Combobox (NotList) (https://www.ms-office.gr/forum/visual-basic-net/3169-combobox-notlist.html)

gregory_m 23-05-14 22:53

Combobox (NotList)
 
Καλησπέρα,

Πως μπορούμε σε ένα Combobox σε VB να του ορίσουμε να μην δέχεται
εγγραφές και να εμφανίζετε ένα msgbox που να λέει επιλέξτε μόνο από την λίστα;
Ευχαριστώ

kapetang 24-05-14 20:54

Καλησπέρα

Γρηγόρη, μπορείς:

1) Να ορίσεις την ιδιότητα Limit to List (περιορισμός στη λίστα) του combobox σε Yes (Ναι).

Έτσι, όταν η εστίαση μεταφερθεί από το combobox σε κάποιο άλλο στοιχείο ελέγχου, αν η επιλογή δεν περιλαμβάνεται στη λίστα, η access θα εμφανίσει σχετικό μήνυμα.

2) Κώδικας VBA θα χρειαστεί μόνο όταν αντί του προεπιλεγμένου μηνύματος της access θέλουμε ένα προσαρμοσμένο μήνυμα.

Ο παρακάτω κώδικας εμφανίζει ένα προσαρμοσμένο μήνυμα.

Κώδικας:

Private Sub Form_Error(DataErr As Integer, Response As Integer)
    If DataErr = 2237 Then
        MsgBox "Η επιλογή '" & Me.Cobo1.Text & "' δεν υπάρχει στη λίστα"
        Response = acDataErrContinue
    End If
End Sub

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


Η ώρα είναι 20:00.

Ms-Office.gr - ©2000 - 2021, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2