Ανανέωση ιστοσελίδας

[gregory_m]

Καλησπέρα,

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

[kapetang]

Καλησπέρα

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

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

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