Forum - Εκθέσεις If List

Forum (https://www.ms-office.gr/forum/)

- Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)

- - [ Εκθέσεις ] If List (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/1875-if-list.html)

Καλημέρα,
Θα ήθελα την βοήθεια σας

Χρησιμοποιώ την ακόλουθη συνάρτηση σε μία έκθεση (report) και θα ήθελα να έχω μία λίστα λέξεων ώστε να βλέπει τις λέξεις μέσα στην λίστα εάν υπάρχουν και να γίνεται η αναδίπλωση κειμένου ή όχι.

Κώδικας:



 =IIf(Left([Comment],5)="Offer",[Description] & Chr(13) & Chr(10) & [Comment],[Description] & " " & [Comment])

Σας ευχαριστώ
Θανάσης

Καλημέρα..

Την αναδίπλωση κειμένου την κάνει στις εκθέσεις αυτόματα η Access αρκεί το πεδίο να έχει ως τύπο "Memo" (υπόμνημα).

Τώρα εάν θέλεις να αυξομειώνεις το ύψος του πεδίου ή το πλάτος του ανάλογα την λέξη, τότε θα πρέπει να παίξεις με τα:

me.yourfield.width = 5000
me.yourfield.height = 500

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

:D

Ελπίζω να σε βοήθησα...

Σε ευχαριστώ για την άμεση απάντησή σου, αλλά δεν είναι αυτό που ζητώ.

Θέλω όταν βρίσκει κάποιες λέξεις που είναι στην λίστα να κάνει αναδίπλωση, να πηγαίνει στην επόμενη γραμμή.

Ευχαριστώ

Καλησπέρα στην παρέα

Θανάση, αν κατάλαβα καλά, έχεις μια λίστα λέξεων και θέλεις, όταν στο πεδίο [comment] περιέχεται κάποια από αυτές τις λέξεις, οι τιμές των πεδίων [Comment] και [Description] να εμφανίζονται σε ξεχωριστές γραμμές.

Αν υποθέσουμε ότι οι λέξεις είναι αποθηκευμένες στο πεδίο [fWrap] του πίνακα[List], δοκίμασε τον ακόλουθο τύπο:

Κώδικας:

 IIf(DCount("[fWrap]","List","[fWrap] Like '*" & Left([Comment],4) & "*'"),[Comment] & Chr(13) & Chr(10) &

 [Description],[Comment] & " " & [Description])

Στον τύπο το 4 θα το αντικαταστήσεις με τον αριθμό χαρακτήρων της μικρότερης λέξης.

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

Φιλικά/Γιώργος
ΥΓ Στην ελληνική έκδοση τα κόμματα (,) θα γίνουν ερωτηματικά (;)

Γιώργο καλησπέρα,

Δεν ξέρω πώς να σ' ευχαριστήσω, αυτό ακριβώς έψαχνα.
Δουλεύει άψογα.

Κια μια τελευταία ερώτηση.
Μήπως γνωρίζεις πως μπορούμε να το κάνουμε και στο Excel;

Σου εύχομαι καλό Σαββατοκύριακο.

Θανάσης

Φίλε Θανάση θα σου πρότεινα να ανοίξεις σχετικό θέμα στην ενότητα του excel.

Σ' ευχαριστώ και σου εύχομαι καλό Σαββατοκύριακο.

Θανάσης

Γιώργο καλησπέρα,

Θα σε παρακαλούσα εάν συνάρτηση που μου έδωσες μπορεί να μετατραπεί ώστε οπουδήποτε στα “comment” βρει μία λέξη από την λίστα να κάνει αναδίπλωση (αρχή, μέση ή τέλος) - από την λέξη κλειδί και μετά.
Σε κάθε λέξη κλειδί να γίνεται αναδίπλωση διότι υπάρχει περίπτωση να υπάρχουν στα “comment” δύο λέξεις κλειδιά, άρα στην κάθε λέξη κλειδί να κάνει αναδίπλωση.

Σε ευχαριστώ εκ των προτέρων.

Θανάσης

Κώδικας:

 
 

IIf(DCount("[fWrap]","List","[fWrap] Like '*" & Left([Comment],4) & "*'"),[Comment] & 

Chr(13) & Chr(10) & [Description],[Comment] & " " & [Description])

Καλησπέρα

Στη ΒΔ που επισυνάπτω υπάρχει μια προσομοίωση του ζητούμενου.

Η αναδίπλωση του κειμένου του πεδίου [Comment] γίνεται με τη βοήθεια της συνάρτησης «WrapComment», που υπάρχει στη λειτουργική μονάδα της έκθεσης.
Σημειώνω τα εξής:

1) Το πλαίσιο κειμένου txtComment είναι αδέσμευτο και έχει προέλευση τη συνάρτηση.

2) Οι ιδιότητες Can Grow (μπορεί να αυξάνει) και Can Shrink (μπορεί να συρρικνώνεται) των πεδίων στα οποία θα γίνεται αναδίπλωση πρέπει να είναι ορισμένες σε yes.

3) Ίδια ρύθμιση πρέπει να γίνει και στις λεπτομέρειες.

ΥΓ 1. Όταν ζητούμε βοήθεια θα πρέπει να απευθυνόμαστε σ’ όλα τα μέλη του φόρουμ.
2 Αν η απάντησή μου δε σε καλύπτει θα πρέπει να ανεβάσεις ένα δείγμα της βάσης σου.