Πρέπει να έχεις υπόψην , ότι ουσιαστικά το String που δίνεις ώς κριτήριο, θα πρέπει να έχει SQL σύνταξη.
Η Αccess δεν κάτι κάτι παραπάνω, από το να δίνει στο query που φέρνει τα δεδομένα του Report ένα WHERE clause με το string που δίνεις ώς stLinkCriteria.
Για τον λόγο αυτό δεν μπορώ να φανταστώ κάποιον άλλο τρόπο για να δουλέψει, εκτός από αυτόν που προτείνει ο συνάδελφος.
KoYkoY wrote: |
Αν αναφέρεσαι σε τρία διαφορετικά πεδία πρέπει να το γράψεις αλλιώς.
Dim stLinkCriteria As String
stLinkCriteria = " [ΌνομαΑριθμητικούΠεδίουΈκθεσης1]=" & Me![ΌνομαΑριθμητικούΠεδίουΦόρμας1] & " AND [ΌνομαΑριθμητικούΠεδίουΈκθεσης2]=" & Me![ΌνομαΑριθμητικούΠεδίουΦόρμας2] & " AND [ΌνομαΠεδίουΈκθεσης]=""" & Me![ΌνομαΠεδίουΦόρμας] & """"
DoCmd.OpenReport "ΌνομαΈκθεσης", acViewPreview, , stLinkCriteria
|
|
Τώρα σε ότι αφορά την ακριβής σύνταξη, μπορείς να κάνεις το εξής "κολπάκι".
Άνοιξε το Report σε Design View και στις Ιδιότητες->Δεδομένα πάτα το κουμπάκι στην Προέλευση Εγγραφών, Θα σου ανοίξει το query designer. Δώσε εκεί τα κριτήρια που θέλεις και έπειτα δές την SQL που παράγει. Οτι έχει γράψει στο WHERE είναι και το String που θέλεις ώς κριτήριο.