
17-02-10, 16:22
|
 | Super Moderator Όνομα: Γιάννης Έκδοση λογισμικού Office: Ms-Office 2007 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 12-10-2009 Περιοχή: Ηγουμενίτσα
Μηνύματα: 161
| |
Γεια σου φίλε Χρήστο!
Επανέφερε την Α φόρμα σε κανονική (Pop Up = Νο) και επικόλλησε τα παρακάτω κομμάτια κώδικα
στις λειτουργικές μονάδες των φορμών.
Για τη φόρμα 1: Κώδικας: Private Sub Form_Activate()
On Error Resume Next
Forms("Φόρμα2").Visible = False
End Sub
Private Sub Form_Close()
On Error Resume Next
Forms("Φόρμα2").Visible = True
End Sub
Για τη φόρμα 2: Κώδικας: Private Sub Form_Activate()
On Error Resume Next
Forms("Φόρμα1").Visible = False
End Sub
Private Sub Form_Close()
On Error Resume Next
Forms("Φόρμα1").Visible = True
End Sub
Φυσικά, άλλαξε τα "Φόρμα1" και "Φόρμα2" με τα πραγματικά ονόματα των φορμών σου.
Αν χρησιμοποιείς ήδη αυτά τα συμβάντα των φορμών, απλά πρόσθεσέ τους
τον βασικό κώδικα των παραπάνω διαδικασιών.
Ελπίζω να γίνει τώρα... 
Γιάννης
__________________ Αν δεν το ρωτούσες, δεν θα το μαθαίναμε ποτέ...! 
----------------------------------------------- Τελικά η γνώση, αντίθετα με ό,τι μέχρι σήμερα πίστευα, είναι η φυλακή της σκέψης.
Όταν η αφετηρία είναι η ελεύθερη σκέψη, δεν χρειάζεται πλέον να φτάσεις πουθενά! |