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/3770-mi-desmeymeno.html)

Μη δεσμευμένο

Καλημέρα σε όλη την παρέα.
Έχω μια έκθεση στην οποία έχω ένα μη δεσμευμένο πεδίο (Κείμενο297) το οποίο θέλω να παίρνει τιμή
από το Ερώτημα ("Ερώτημα") και το πεδίο ("Εκπρόσωπος")
τι λάθος κάνω στον κώδικα???

Παράθεση:

Option Compare Database
Option Explicit

Private Sub Λεπτομέρεια_Format(Cancel As Integer, FormatCount As Integer)
Dim RST As Recordset, QrS As QueryTable

Set QrS = CurrentQuery
Set RST = QrS.Recordset("Ερώτημα")

Me!Κείμενο297 = RST.Fields("Εκπρόσωπος")

End Sub

και μου βγάζει το μήνυμα
"Μια προσαρμοσμένη μακροεντολή σε αυτήν την έκθεση δεν ήταν δυνατόν να εκτελεστεί και αποτρέπει την απόδοση της έκθεσης"

Να σημειώσω ότι για να τρέξει το Ερώτημα πρέπει να δώσω τιμή παραμέτρου.

Ευχαριστώ εκ των προτέρων,
Μάρω

Καλησπέρα Μάρω

Δοκίμασε με λατινικά το "Εκπρόσωπος" διότι μερικές φορές δεν το αναγνωρίζει με Ελληνικά.

Αλέξη καλησπέρα,
Άλλαξα και την ονομασία του πεδίου, και το ερώτημα σε Αγγλικά μα .........τίποτε

Μάρω

Καλησπέρα Μαρω

Μήπως δεν χρειάζεται το Option Explicit;

Αλέξη καλημέρα,
στην Access πάντα χρειάζεται η Option Explicit

Μάρω

Καλημέρα

Μάρω, δε γνωρίζω τι ακριβώς προσπαθείς να κάνεις, αλλά υποψιάζομαι ότι ακολουθείς λάθος δρόμο.

Θα πρότεινα να ανεβάσεις ένα δείγμα της βάσης σου.

Ο κώδικάς σου θα μπορούσε να προσαρμοστεί ως εξής:

Κώδικας:

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)

    Dim RST As Recordset, QrS As QueryDef
 

    Set QrS = CurrentDb.QueryDefs("Ερώτημα")

    QrS.Parameters("ΌνομαΠαραμέτρου") = ΤιμήΠαραμέτρου

    Set RST = QrS.OpenRecordset
 

    Me!Κείμενο297 = RST.Fields("Εκπρόσωπος")

End Sub

Γιώργος

Καλημέρα σε όλους,

Γιώργο, αυτό που λέω είναι ότι
έχω μια έκθεση "Στοιχεία" η οποία αντλεί τα δεδομένα της από τον ομώνυμο πίνακα,
και στην οποία έχω ένα μη δεσμευμένο πεδίο (Κείμενο297) το οποίο θέλω να παίρνει τιμή
από το Ερώτημα ("Ερώτημα") και το πεδίο ("Εκπρόσωπος")
Στην περίπτωση που το Ερώτημα δεν περιέχει παραμέτρους ο κώδικας

Παράθεση:

Private Sub Κεφαλίδα_σελίδας_Format(cancel As Integer, FormatCount As Integer)
Dim cDb As Database, RST As Recordset, QrS As QueryDef
Set cDb = CurrentDb
Set RST = cDb.OpenRecordset("Ερώτημα")

Me!Κείμενο297 = RST.Fields("Εκπροσωπος1")
End Sub

λειτουργεί κανονικά.

Στην περίπτωση "Στοιχεία2" & ("Ερώτημα2") λοιπόν αυτό που θέλω είναι να επιλέγω εγώ τον Εκπρόσωπο ( 1 ή 2 ) και ο ίδιος κώδικας μου κολλάει.
Δεν μπόρεσα να προσαρμόσω στον κώδικα το

Παράθεση:

QrS.Parameters("ΌνομαΠαραμέτρου") = ΤιμήΠαραμέτρου

Ανεβάζω συνημμένο

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

Καλημέρα

Μάρω, δες μια πρόταση στο συνημμένο.

Γιώργο για άλλη μια φορά :worthy:

Φιλικά,
Μάρω

Θα το δυσκολέψω όμως ακόμα λίγο,
έστω ότι θέλω να μου εμφανίζει και άλλα δεδομένα του Εκπρόσωπου όπως Επίθετο και Α.Τ.
τι κάνουμε???
Ξαναγράφουμε το Function? γιατί τότε θα μας ζητά συνέχεια να δώσουμε Νο
Αν προσθέσω άλλη γραμμή στο ίδιο Function μου βγάζει error

Φιλικά,
Μάρω

Μάρω, δες το συνημμένο

Γιώργο είναι ωραία η λύση που μου έδωσες αλλά τα στοιχεία του εκπρόσωπου στην έκθεση είναι σε διαφορετικά πεδία και δυστυχώς σε απόσταση μεταξύ τους.
Τι κάνουμε???

Φιλικά,
Μάρω

Καλησπέρα

Μάρω, δες το συνημμένο.

Αφού σου έβγαλα την ψυχή...... είναι σούπερ Γιωργο μου.
Δεν πειράζει όμως γιατί έμαθα και τους προηγούμενους τρόπους σου.
Να σαι πάντα καλά.

Φιλικά,
Μάρω

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