[ Φόρμες ] Μη δεσμευμένο

[mdragon]

Καλημέρα σε όλη την παρέα.
Έχω μια έκθεση στην οποία έχω ένα μη δεσμευμένο πεδίο (Κείμενο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

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

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




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

[alex]

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

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

[mdragon]

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





Μάρω

[alex]

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

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

[mdragon]

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



Μάρω

[kapetang]

Καλημέρα

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

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

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

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

Γιώργος

[mdragon]

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

Γιώργο, αυτό που λέω είναι ότι
έχω μια έκθεση "Στοιχεία" η οποία αντλεί τα δεδομένα της από τον ομώνυμο πίνακα,
και στην οποία έχω ένα μη δεσμευμένο πεδίο (Κείμενο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("ΌνομαΠαραμέτρου") = ΤιμήΠαραμέτρου

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



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

[kapetang]

Καλημέρα

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

[mdragon]

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



Φιλικά,
Μάρω

[mdragon]

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



Φιλικά,
Μάρω