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/1426-leitoyrgikotita-erotimatos.html)

Λειτουργικότητα Ερωτήματος

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

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

Ευχαριστώ,

Γιώργος

Καλημέρα Γιώργο.
Ακόμα και στη 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

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

Τάσος

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

Γιώργος