24-07-15, 07:57
|
| Όνομα: Μάρω Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 09-03-2010 Περιοχή: Αθήνα
Μηνύματα: 287
| |
Καλημέρα σε όλους,
Γιώργο, αυτό που λέω είναι ότι
έχω μια έκθεση "Στοιχεία" η οποία αντλεί τα δεδομένα της από τον ομώνυμο πίνακα,
και στην οποία έχω ένα μη δεσμευμένο πεδίο (Κείμενο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("ΌνομαΠαραμέτρου") = ΤιμήΠαραμέτρου
| Ανεβάζω συνημμένο
Ευχαριστώ, Μάρω |