[ Φόρμες ] Εναλλαγή Φόρμας

[Free_Ghost]

Σήμερα τοποθέτησα επιτέλους την εφαρμογή μου για να δουλέψω της άδειες και ξαφνικά προέκυψε άλλο πρόβλημα και δώστου από την αρχή η αλλιώς Help.....

Η εφαρμογή έχει δύο φόρμες ξεκινάει με την Α και έχω ένα κουμπί εναλλαγής πατώντας το κουμπί πήγαινε στην Β εκεί πατώντας το αντίστοιχο κουμπί πήγαινε στην Α...

Όταν όμως έκανα την Α φόρμα αναδυόμενη ανοίγει την δεύτερη αλλά χαμηλά δεν καλύπτη την πρώτη για να δουλέψεις στην δεύτερη...
Η λύση μου είναι όταν ανοίγει η μία να κλείνει η άλλη, και ακριβώς εδώ είναι το πρόβλημα μου πώς το πετυχαίνω με το πλήκτρο εναλλαγής...

Επισυνάπτω ένα μικρό παράδειγμα...

[nisgia]

Γεια σου φίλε Χρήστο!

Επανέφερε την Α φόρμα σε κανονική (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" με τα πραγματικά ονόματα των φορμών σου.
Αν χρησιμοποιείς ήδη αυτά τα συμβάντα των φορμών, απλά πρόσθεσέ τους
τον βασικό κώδικα των παραπάνω διαδικασιών.

Ελπίζω να γίνει τώρα...
Γιάννης

[Free_Ghost]

Δυστυχώς δεν μου δούλεψε υποψιάζομαι ότι έβαλα τον κώδικα σε λάθος σημείο ..

Τη εννοείς λέγοντας " στις λειτουργικές μονάδες των φορμών "

[nisgia]

Κάνοντας διπλό κλικ στο εικονίδιο της κάθε φόρμας στο Project Explorer
δεξιά ανοίγει το παράθυρο κώδικα της αντίστοιχης φόρμας.

FormsModule.JPG

Εκεί θα επικολλήσεις τους παραπάνω κώδικες όπως περιγράφω.
Επίσης, πιθανότατα θα πρέπει να αλλάξεις και τα ονόματα των φορμών.

Για ξαναδοκίμασε...

[Free_Ghost]

Δυστυχώς απο χθές το βράδυ παιδεύομαι και αυτόν τον Project Explorer όπως το δείχνη η φωτογραφία και δεν μπορώ να τον βρώ...

Εγώ έχω Officee 2003 Ελληνικό και δεν ξέρω ποιο αντιστοιχεί και πώς εμφανίζεται...

Καμμια Ιδέα απο κάποιον φίλο που το ξέρει..

[Free_Ghost]

Τελικά το βρήκα πώς το βρήκα δεν ξέρω να μου πείς να ξαναπάω δύσκολα..

Εβαλα τον κώδικα όπως είπες φίλε Γιάννη και δούλεψε..

Ευχαριστώ συνεχίζω να ειδώ θα μου προκύψη καμια άλλη χαζή λεπτομέρεια..

[Tasos]

Καλημέρα!
Φίλε Χρήστο χαίρομαι που προχώρησες στο έργο σου!
Αν θέλετε και εσύ και όσοι χρησιμοποιούν πολλές φόρμες στις εφαρμογές τους
ρίξτε μια ματιά σ αυτό το θέμα:
http://www.ms-office.gr/forum/access....html#post1679

Με εκτίμηση

Τάσος

[nisgia]

Αρχική Δημοσίευση από Free_Ghost

Τελικά το βρήκα πώς το βρήκα δεν ξέρω να μου πείς να ξαναπάω δύσκολα..

Φίλε χρήστο, εγώ φταίω που θεώρησα δεδομένο ότι το παράθυρο του Project Explorer θα είναι ανοιχτό.

Για να το βρίσκεις εύκολα από εδώ και πέρα, ρίξε μια ματιά στην παρακάτω εικόνα να δεις που κρύβεται.

VBE.PNG

Όπως βλέπεις, από το μενού View του VBE μπορείς να ανοίξεις και άλλα χρήσιμα παράθυρα όπως
το Object Browser, το Immediate το Properties κτλ.
Επίσης, τα περισσότερα παράθυρα διαθέτουν και συντομεύσεις πληκτρολογίου για το γρήγορο άνοιγμά τους.