05-11-16, 18:58
|
| Όνομα: Δημήτρης Έκδοση λογισμικού Office: Ms-Office 2016 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 20-07-2014 Περιοχή: Πάτρα
Μηνύματα: 385
| |
Τελικά, βρήκα λύση με τον παρακάτω κώδικα:
If Nz(Me.Combo.Column(0), 0) = 0 Then
MsgBox "Δεν καταχωρήθηκε τιμή !", _
vbInformation, "Μήνυμα εφαρμογής!"
Me.Combo.SetFocus
Exit Sub
End If
Δε γνωρίζω αν είναι η καλύτερη λύση, πάντως με τις δοκιμές που έκανα λειτουργεί κανονικά.
|