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

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

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

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 10-10-11, 17:29
Όνομα: ΓΙΩΡΓΟΣ
Έκδοση λογισμικού Office: Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 15-10-2010
Περιοχή: Σύρος
Μηνύματα: 25
Exclamation Λειτουργικότητα Ερωτήματος

Καλησπέρα σε όλους! Συνεχίστε την καλή δουλειά! Θα ήθελα τη βοήθειά σας στο εξής:

Ας υποθέσουμε οτι σε μια βάση δεδομένων Access 2010 έχουμε δημιουργήσει ένα απλό ερώτημα το οποίο εμφανίζει τις εγγραφές από το συνδεδεμένο πίνακα. Το αν έχουμε εισάγει κριτήρια στο ερώτημα δεν παίζει ρόλο. Οταν εμφανίζονται οι ανάλογες εγγραφές, η πρώτη στήλη είναι το ID (μοναδικό αναγνωριστικό). Εφ'όσον αυτή η τιμή είναι μοναδική και αντιστοιχεί σε μία συγκεκριμένη εγγραφή, υπάρχει δυνατότητα να τη μετατρέψουμε σε υπερσύνδεση για την αντίστοιχη εγγραφή; Με λίγα λόγια, κάνοντας κλικ στο ID να μας ανοίγει τη συγκεκριμένη εγγραφή (σε μορφή Φόρμας που έχουμε ήδη δημιουργήσει);

Ευχαριστώ,

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

Καλημέρα Γιώργο.
Ακόμα και στη Access 2010 δεν υποστηρίζονται συμβάντα που έχουν σχέση με το ποντίκι ή το πληκτρολόγιο.
Γι αυτό αλλά και γι άλλους τεχνικούς λόγους που δεν είναι επί του παρόντος δε γίνεται να κάνεις
κλικ σε κελί πίνακα ή ερωτήματος και να εκτελείται οποιοσδήποτε κώδικας.

Αυτό που μπορείς να κάνεις είναι να δημιουργήσεις μια φόρμα βασισμένη στο συγκεκριμένο ερώτημα με προεπιλεγμένη προβολή "Φύλλο δεδομένων"
(δεν διαφέρει από την εμφάνιση ενός ερωτήματος) και στο συμβάν "Με το κλικ" του πεδίου [ID]
να αντιστοιχήσεις μια μακροεντολή που θα ανοίγει τη φόρμα με κριτήριο το πεδίο [ID].

Αν αντί για μακροεντολή θέλεις να χρησιμοποιήσεις κώδικα VBA τότε ο κώδικας θα πρέπει να είναι κάπως έτσι:

Κώδικας:
Private Sub ID_Click()
    If Not Me.NewRecord Then
        DoCmd.OpenForm "Form1", acNormal, , "ID=" & Me.ID, , acDialog
    End If
End Sub
Καλή συνέχεια!

Τάσος
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών
Απάντηση με παράθεση
  #3  
Παλιά 11-10-11, 12:27
Όνομα: ΓΙΩΡΓΟΣ
Έκδοση λογισμικού Office: Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 15-10-2010
Περιοχή: Σύρος
Μηνύματα: 25
Προεπιλογή

Τάσο, καλημέρα!
Σ'ευχαριστώ για την ανταπόκριση, θα το δοκιμάσω έτσι όπως λες.
Αν χρειαστεί, θα επανέλθω.

Γιώργος
Απάντηση με παράθεση
Απάντηση στο θέμα


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

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


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

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
Δημιουργία ερωτήματος ΜΑΝΟ Access - Ερωτήσεις / Απαντήσεις 22 22-01-17 23:29
[ Ερωτήματα ] Κριτήρια ερωτήματος dimitrisp Access - Ερωτήσεις / Απαντήσεις 10 23-10-16 11:45
[ Ερωτήματα ] Κριτήριο ερωτήματος dimitrisp Access - Ερωτήσεις / Απαντήσεις 4 22-11-15 14:24
[ Ερωτήματα ] Συγχώνευση Ερωτήματος ΠΑΝΟΣ Access - Ερωτήσεις / Απαντήσεις 5 15-04-11 10:42
[ Ερωτήματα ] Φιλτράρισμα Ερωτήματος Free_Ghost Access - Ερωτήσεις / Απαντήσεις 10 28-10-10 13:27


Η ώρα είναι 09:38.