Forum

Forum (https://www.ms-office.gr/forum/)
-   Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)
-   -   [ Φόρμες ] Εναλλαγή Φόρμας (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/422-enallagi-formas.html)

Free_Ghost 17-02-10 14:28
Εναλλαγή Φόρμας
 
1 Συνημμένο(α)
Σήμερα τοποθέτησα επιτέλους την εφαρμογή μου για να δουλέψω της άδειες και ξαφνικά προέκυψε άλλο πρόβλημα και δώστου από την αρχή η αλλιώς Help.....

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

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

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

nisgia 17-02-10 16:22
Γεια σου φίλε Χρήστο!

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

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

Free_Ghost 17-02-10 16:57
Δυστυχώς δεν μου δούλεψε υποψιάζομαι ότι έβαλα τον κώδικα σε λάθος σημείο ..

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

nisgia 17-02-10 17:20
1 Συνημμένο(α)
Κάνοντας διπλό κλικ στο εικονίδιο της κάθε φόρμας στο Project Explorer
δεξιά ανοίγει το παράθυρο κώδικα της αντίστοιχης φόρμας.

Συνημμένο Αρχείο 197

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

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

Free_Ghost 18-02-10 07:00
Δυστυχώς απο χθές το βράδυ παιδεύομαι και αυτόν τον Project Explorer όπως το δείχνη η φωτογραφία και δεν μπορώ να τον βρώ...

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

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

Free_Ghost 18-02-10 07:33
Τελικά το βρήκα πώς το βρήκα δεν ξέρω να μου πείς να ξαναπάω δύσκολα..:032:

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

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

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

Με εκτίμηση

Τάσος

nisgia 18-02-10 19:58
Τα παράθυρα του VBE
 
1 Συνημμένο(α)
Παράθεση:
Αρχική Δημοσίευση από Free_Ghost (Μήνυμα 1677)
Τελικά το βρήκα πώς το βρήκα δεν ξέρω να μου πείς να ξαναπάω δύσκολα..:032:
Φίλε χρήστο, εγώ φταίω που θεώρησα δεδομένο ότι το παράθυρο του Project Explorer θα είναι ανοιχτό.

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

Συνημμένο Αρχείο 199

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


Η ώρα είναι 18:33.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2