Θέμα: Combobox (NotList)

Εμφάνιση ενός μόνο μηνύματος
  #2  
Παλιά 24-05-14, 20:54
kapetang Ο χρήστης kapetang είναι συνδεδεμένος
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.190
Προεπιλογή

Καλησπέρα

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

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
Φιλικά/Γιώργος

Τελευταία επεξεργασία από το χρήστη kapetang : 24-05-14 στις 21:15. Αιτία: Βελτίωση κώδικα
Απάντηση με παράθεση