Ανανέωση ιστοσελίδας

Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια!

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 18-05-12, 08:28
Όνομα: Θανάσης
Έκδοση λογισμικού Office: Ms-Office 2013
Γλώσσα λογισμικού Office: Αγγλική
 
Εγγραφή: 13-02-2010
Μηνύματα: 62
Προεπιλογή If List

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

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

Κώδικας:
 =IIf(Left([Comment],5)="Offer",[Description] & Chr(13) & Chr(10) & [Comment],[Description] & " " & [Comment])
Σας ευχαριστώ
Θανάσης
Απάντηση με παράθεση
  #2  
Παλιά 18-05-12, 08:57
Super Moderator
Όνομα: Αγγελος
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 29-04-2010
Μηνύματα: 111
Προεπιλογή

Καλημέρα..

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

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

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

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

:D

Ελπίζω να σε βοήθησα...
__________________
Always Look on the Bright Side of Life!
Απάντηση με παράθεση
  #3  
Παλιά 18-05-12, 09:06
Όνομα: Θανάσης
Έκδοση λογισμικού Office: Ms-Office 2013
Γλώσσα λογισμικού Office: Αγγλική
 
Εγγραφή: 13-02-2010
Μηνύματα: 62
Προεπιλογή

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

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

Ευχαριστώ
Απάντηση με παράθεση
  #4  
Παλιά 18-05-12, 16:51
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.674
Προεπιλογή

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

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

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

Κώδικας:
 IIf(DCount("[fWrap]","List","[fWrap] Like '*" & Left([Comment],4) & "*'"),[Comment] & Chr(13) & Chr(10) &
 [Description],[Comment] & " " & [Description])
Στον τύπο το 4 θα το αντικαταστήσεις με τον αριθμό χαρακτήρων της μικρότερης λέξης.

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

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

Τελευταία επεξεργασία από το χρήστη kapetang : 18-05-12 στις 16:54. Αιτία: Προσθήκη υστερόγραφου
Απάντηση με παράθεση
  #5  
Παλιά 18-05-12, 17:50
Όνομα: Θανάσης
Έκδοση λογισμικού Office: Ms-Office 2013
Γλώσσα λογισμικού Office: Αγγλική
 
Εγγραφή: 13-02-2010
Μηνύματα: 62
Προεπιλογή

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

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

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

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

Θανάσης
Απάντηση με παράθεση
  #6  
Παλιά 18-05-12, 18:06
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.674
Προεπιλογή

Φίλε Θανάση θα σου πρότεινα να ανοίξεις σχετικό θέμα στην ενότητα του excel.
Απάντηση με παράθεση
  #7  
Παλιά 18-05-12, 18:18
Όνομα: Θανάσης
Έκδοση λογισμικού Office: Ms-Office 2013
Γλώσσα λογισμικού Office: Αγγλική
 
Εγγραφή: 13-02-2010
Μηνύματα: 62
Προεπιλογή

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

Θανάσης
Απάντηση με παράθεση
  #8  
Παλιά 07-06-12, 19:23
Όνομα: Θανάσης
Έκδοση λογισμικού Office: Ms-Office 2013
Γλώσσα λογισμικού Office: Αγγλική
 
Εγγραφή: 13-02-2010
Μηνύματα: 62
Προεπιλογή

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

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

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

Θανάσης


Κώδικας:
 

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

Τελευταία επεξεργασία από το χρήστη Tasos : 07-06-12 στις 23:44.
Απάντηση με παράθεση
  #9  
Παλιά 08-06-12, 21:50
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.674
Προεπιλογή

Καλησπέρα

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

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

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

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

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

ΥΓ 1. Όταν ζητούμε βοήθεια θα πρέπει να απευθυνόμαστε σ’ όλα τα μέλη του φόρουμ.
2 Αν η απάντησή μου δε σε καλύπτει θα πρέπει να ανεβάσεις ένα δείγμα της βάσης σου.
Συνημμένα Αρχεία
Τύπος Αρχείου: mdb WrapReport.mdb (292,0 KB, 40 εμφανίσεις)
Απάντηση με παράθεση
Απάντηση στο θέμα


Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
Allow List Edit.. γιώργοςΚ Access - Ερωτήσεις / Απαντήσεις 0 12-01-16 18:48
List Box σε συνεχή φόρμα γιώργοςΚ Access - Ερωτήσεις / Απαντήσεις 0 02-12-13 15:21
[Συναρτήσεις] Επιλογή από Drop-down list aristos Excel - Ερωτήσεις / Απαντήσεις 2 02-10-13 12:03
[VBA] List Box με πολλαπλές στήλες anestaki Excel - Ερωτήσεις / Απαντήσεις 3 17-02-13 22:45


Η ώρα είναι 21:44.