
21-02-10, 21:05
|
 | Super Moderator Όνομα: Γιάννης Έκδοση λογισμικού Office: Ms-Office 2007 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 12-10-2009 Περιοχή: Ηγουμενίτσα
Μηνύματα: 161
| |
Γεια και χαρά σε όλη τη παρέα!
Φίλε Νίκο, το κλείσιμο μιας φόρμας μπορεί να γίνει με πολλούς και διάφορους τρόπους
και είναι λίγο δύσκολο να τους απενεργοποιήσεις όλους.
Εκείνο που σε ενδιαφέρει σε αυτή τη περίπτωση είναι το ίδιο το συμβάν
κλεισίματος της φόρμας και όχι ο τρόπος.
Με τον παρακάτω τρόπο, ακυρώνεις ευγενικά αυτό το συμβάν και ενημερώνεις σχετικά
τον χρήστη για τους λόγους που δεν κλείνει η φόρμα: Κώδικας: Private Sub Form_Unload(Cancel As Integer)
If Me.NewRecord Then
Cancel = True
MsgBox "Δεν είναι δυνατό το κλείσιμο της φόρμας " _
& "όταν βρίσκεστε σε νέα εγγραφή.", vbExclamation
End If
End Sub
Ελπίζω να πετύχεις τώρα αυτό που θες...
Φιλικά,
Γιάννης
__________________ Αν δεν το ρωτούσες, δεν θα το μαθαίναμε ποτέ...! 
----------------------------------------------- Τελικά η γνώση, αντίθετα με ό,τι μέχρι σήμερα πίστευα, είναι η φυλακή της σκέψης.
Όταν η αφετηρία είναι η ελεύθερη σκέψη, δεν χρειάζεται πλέον να φτάσεις πουθενά! |