Ανανέωση ιστοσελίδας
ms-office.gr > Forum > Microsoft Access > Access - Ερωτήσεις / Απαντήσεις > Κλείσιμο ερωτημάτων όταν δεν υπάρχουν κουμπιά κλεισίματος

Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια!

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 22-12-10, 20:28
Όνομα: Μάρω
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 09-03-2010
Περιοχή: Αθήνα
Μηνύματα: 287
Προεπιλογή Κλείσιμο ερωτημάτων όταν δεν υπάρχουν κουμπιά κλεισίματος

Καλησπέρα σε όλους και χρόνια πολλά
Έστω σε μια access έχω στις επιλογές παραθύρου εγγράφου επιλέξει έγγραφα με καρτέλες χωρίς εμφάνιση καρτελών εγγράφου, και έχω επίσης το παράθυρο περιήγησης κλειστό.
Πώς μπορώ να κλείσω τα ερωτήματα που ανοίγω???
Προσπάθησα να φτιάξω μία εντολή ..... με μεγάλη αποτυχία

If KeyCode = vbKeyEscape Then DoCmd.Close acQuery

Καμιά γνώμη???



Ευχαριστώ,
Μάρω
Απάντηση με παράθεση
  #2  
Παλιά 22-12-10, 22:51
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.674
Προεπιλογή

Καλησπέρα

Μάρω, αν δεν πάρεις καλύτερη λύση, δοκίμασε το εξής:
  1. Κάνε κλικ στο κουμπί προβολή σχεδίασης της κεντρικής καρτέλας της κορδέλας για να εμφανίσεις το ερώτημα σε προβολή σχεδίασης.
  2. Στη συνέχεα κάνε δεξί κλικ στο ερώτημα και στο μενού συντόμευσης πάτησε κλείσιμο.
Καλό βράδυ και καλές γιορτές

Γιώργος
Απάντηση με παράθεση
  #3  
Παλιά 24-12-10, 14:44
Το avatar του χρήστη Tasos
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού Office: Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική
 
Εγγραφή: 21-10-2009
Μηνύματα: 2.011
Προεπιλογή

Καλημέρα σε όλους και χρόνια πολλά!

Αγαπητή Μάρω, η δημιουργία μιας μακροεντολής με το όνομα "AutoKeys" όπου θα δέσμευες τον συνδυασμό πλήκτρων CTRL +Q (^Q στην Access) θα σου πρόσφερε αρκετή βοήθεια.

Αφού δημιουργήσεις τη μακροεντολή πέρασε την επιλογή "Εκτέλεση κώδικα" και σαν όνομα συνάρτησης δώσε: CloseQryHwnd() και αποθήκευσε.

Κατόπιν σε μια λειτουργική μονάδα πέρασε τον παρακάτω κώδικα:

Κώδικας:
Function CloseQryHwnd()
    Dim Qryname As String, Qry As QueryDef
    On Error Resume Next
    Qryname = Screen.ActiveDatasheet.Name
    If Qryname <> vbNullString Then
        For Each Qry In CurrentDb.QueryDefs
            If Qry.Name = Qryname Then
                DoCmd.Close acQuery, Qryname, acSaveNo
                Exit For
            End If
        Next
    End If
End Function
Κάνε επανεκκίνηση στης εφαρμογής και δοκίμασε να κλείσεις τα παράθυρα των ερωτημάτων σου με τον προγραμματισμένο συνδυασμό πλήκτρων ( CTRL +Q ).

Αν αντιμετωπίσεις πρόβλημα αυτό σημαίνει ότι έχεις ταυτόχρονα μια η περισσότερες (μη αναδυόμενες) φόρμες ανοιχτές....(Νομίζω ότι πρόκειται για Bug της Access (2007 - 2010).
Στην περίπτωση αυτή:
1. Άνοιξε τις φόρμες αυτές σε προβολή σχεδίασης κάνε μια μικροαλλαγή, αναίρεσε την αλλαγή αυτή (Undo) και αποθήκευσε τις.
2. Από το κουμπί Μετατροπή μακροεντολών σε Visual Basic μετέτρεψε την AutoKeys σε συνάρτηση VBA και αποθήκευσε.
Με την επόμενη επανεκκίνηση της εφαρμογής όλα θα λειτουργούν όπως αναμένεται και μπορείς πια να διαγράψεις τη νέα λειτουργική μονάδα:
"Μακροεντολή που μετατράπηκε - AutoKeys".,

Καλή συνέχεια!

Φιλικά

Τάσος
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών
Απάντηση με παράθεση
  #4  
Παλιά 27-12-10, 08:40
Όνομα: Μάρω
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 09-03-2010
Περιοχή: Αθήνα
Μηνύματα: 287
Προεπιλογή

Καλημέρα και χρόνια πολλά σε όλους.
Γιώργο σε ευχαριστώ αλλά τελικά με καλύπτει η βοήθεια του Τάσου
που πάλι το έκανε το θαύμα του.





Φιλικά,
Μάρω
Απάντηση με παράθεση
Απάντηση στο θέμα


Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
Κλείσιμο αναδυόμενης φόρμας όταν κλείνει η κύρια φόρμα athanassiab Access - Ερωτήσεις / Απαντήσεις 4 27-04-15 20:26
[Γενικά] Κουμπιά ενημέρωσης στηλών es19 Excel - Ερωτήσεις / Απαντήσεις 10 21-09-12 01:19
Κουμπιά αποθήκευσης και επαναφοράς anestaki Excel - Ερωτήσεις / Απαντήσεις 4 05-04-12 18:16
[ Εκθέσεις ] Όταν δεν υπάρχουν δεδομένα... Meteora Access - Ερωτήσεις / Απαντήσεις 5 19-02-10 15:40


Η ώρα είναι 20:26.