Κλείσιμο ερωτημάτων όταν δεν υπάρχουν κουμπιά κλεισίματος

[mdragon]

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

If KeyCode = vbKeyEscape Then DoCmd.Close acQuery

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



Ευχαριστώ,
Μάρω

[kapetang]

Καλησπέρα

Μάρω, αν δεν πάρεις καλύτερη λύση, δοκίμασε το εξής:

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

Καλό βράδυ και καλές γιορτές

Γιώργος

[Tasos]

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

Αγαπητή Μάρω, η δημιουργία μιας μακροεντολής με το όνομα "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".,

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

Φιλικά

Τάσος

[mdragon]

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





Φιλικά,
Μάρω