Θέμα: Φόρμες Εναλλαγή Φόρμας

Εμφάνιση ενός μόνο μηνύματος
  #2  
Παλιά 17-02-10, 16:22
Το avatar του χρήστη nisgia
nisgia Ο χρήστης nisgia δεν είναι συνδεδεμένος
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" με τα πραγματικά ονόματα των φορμών σου.
Αν χρησιμοποιείς ήδη αυτά τα συμβάντα των φορμών, απλά πρόσθεσέ τους
τον βασικό κώδικα των παραπάνω διαδικασιών.

Ελπίζω να γίνει τώρα...
Γιάννης
__________________
Αν δεν το ρωτούσες, δεν θα το μαθαίναμε ποτέ...!
-----------------------------------------------
Τελικά η γνώση, αντίθετα με ό,τι μέχρι σήμερα πίστευα, είναι η φυλακή της σκέψης.
Όταν η αφετηρία είναι η ελεύθερη σκέψη, δεν χρειάζεται πλέον να φτάσεις πουθενά!
Απάντηση με παράθεση