Ανανέωση ιστοσελίδας
ms-office.gr > Forum > Microsoft Access > Access - Ερωτήσεις / Απαντήσεις > [ Συναρτήσεις ] Παράσταση σε Πλαίσιο κειμένου

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

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

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 25-01-19, 13:46
Όνομα: Βαγγέλης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 09-05-2013
Μηνύματα: 62
Προεπιλογή Παράσταση σε Πλαίσιο κειμένου

Γεια σας, Καλή χρονιά να έχουμε,
Θα ήθελα βοήθεια σχετικά με ένα πλαίσιο κειμένου σε μια έκθεση.

Τυπώνω μια απόδειξη η οποία παίρνει δεδομένα από ένα πίνακα. Ο πίνακας αυτός έχει διαφορετικούς τύπους δεδομένων (Αυτόματη αρίθμηση, Σύντομο κείμενο, Υπολογίστηκε, Νομισματική μονάδα κτλ.).

Φτιάχνω λοιπόν ένα πλαίσιο κειμένου στο οποίο γράφω την εξής παράσταση:
="123456789"+";"+[ΑΦΜ]+";"+[ΑΦΜ]+";"+YEAR(now())+";"+Month(now())+";"+DAY(now())+" ;"+ Hour(now())+";"+Minute(now())+";"+"174"+";"+"Α"+" ;"+[Αριθμός Παραστατικού]+";"+";"+";"+[Καθαρή Αξία]+";"+";"+";"+";"+";"+[ΦΠΑ Ποσό]+";"+";"+[Τελική Αξία]+";"'+"1"+"[>]"

Το [ΑΦΜ] είναι Σύντομο κείμενο και προέρχεται από τον πίνακα,
τα YEAR(now())+";"+Month(now())+";"+DAY(now())+";"+ Hour(now())+";"+Minute(now()) προέρχονται από άλλο πλαίσιο κειμένου πάνω στην έκθεση,
τα [Αριθμός Παραστατικού]+[Καθαρή Αξία]+[ΦΠΑ Ποσό]+[Τελική Αξία] είναι Υπολογίστηκε και προέρχονται από τον πίνακα.

Όταν λοιπόν προσθέτω το κάθε πεδίο "..." που χρειάζομαι μου τα εμφανίζει. Όταν όμως προσθέσω κάποιο το οποίο είναι τύπου (Αυτόματη αρίθμηση, Υπολογίστηκε, Νομισματική μονάδα), μου βγάζει σφάλμα "#Τύπος?".

Πώς μπορώ να τα προσθέσω όλα τα πεδία και να δείχνει αυτή την ακολουθία;

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

Καλησπέρα

Θα πρότεινα να αντικαταστήσεις τον τελεστή της πρόσθεσης (+) με τον τελεστή της συνένωσης (&).
Απάντηση με παράθεση
  #3  
Παλιά 25-01-19, 19:43
Όνομα: Βαγγέλης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 09-05-2013
Μηνύματα: 62
Προεπιλογή

Γιώργο φαίνεται να δουλεύει αυτό. Αντικατέστησα το + με το & όπως είπες και μου τα δείχνει.
Εάν χρειαστεί να κάνω κάτι ακόμα θα ξαναστείλω.
Αυτό το χρειάζομαι για να ξέρουν και οι υπόλοιποι συμφορουμίτες για γραμμή τύπου "Ε" στην εφορία.

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

Καλή συνέχεια Βαγγέλη να είσαι καλά.
Απάντηση με παράθεση
  #5  
Παλιά 26-01-19, 22:12
Όνομα: Βαγγέλης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 09-05-2013
Μηνύματα: 62
Προεπιλογή

Γεια σας και πάλι,
Όπως πρότεινε ο Γιώργος αντικατέστησα το + με το & και δουλεύει όπως θέλω.
Η καινούρια ερώτηση είναι η εξής:
Χρησιμοποιώντας τη συνάρτηση =Month(Now()) μου επιστρέφει τον μήνα. Τώρα που έχουμε 1 μου επιστρέφει το 1. Εγώ άλλαξα τη μορφή, έβαλα 00, και επιστρέφει 01 το οποίο και θέλω.
Επίσης σε άλλο πεδίο αναφέρεται η Καθαρή Αξία, το ΦΠΑ Ποσό και η Τελική Αξία με δυο δεκαδικά ψηφία.
Όταν λοιπόν χρησιμοποιώ στο νέο πλαίσιο κειμένου τη συνάρτηση ="[<]" & "123456789" & ";" & [ΑΦΜ] & ";" & [ΑΦΜ] & ";" & [Ημερομηνία και Ώρα] & ";" & "174" & ";" & "Α" & ";" & [Αριθμός Παραστατικού] & ";" & ";" & ";" & [Καθαρή Αξία] & ";" & ";" & ";" & ";" & ";" & [ΦΠΑ Ποσό] & ";" & ";" & [Τελική Αξία] & ";" & "1" & "[>]" θέλω και εδώ να τα ποσά να είναι με 2 δεκαδικά ψηφία και για την ημερομηνία και την ώρα να είναι το έτος με 4 ψηφία και τα υπόλοιπα με 2 ψηφία
Συνημμένα Thumbnails
Παράσταση σε Πλαίσιο κειμένου-access.png  
Συνημμένα Αρχεία
Τύπος Αρχείου: zip Database1.zip (27,5 KB, 2 εμφανίσεις)
Απάντηση με παράθεση
  #6  
Παλιά 27-01-19, 08:27
Όνομα: ΝΑΣΟΣ
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 14-10-2010
Μηνύματα: 443
Προεπιλογή

Καλημέρα σε όλους.
Βαγγέλη για (Office Ελληνικά) με τις αλλαγές στα παρακάτω πεδία:
Μήνας = Format(Now();"μμ")
Μέρα = Format(Now();"ηη")
Ώρα = Format(Now();"ωω")
Λεπτά= Format(Now();"λλ")

στο πεδίο Ημερομηνία και Ώρα θα έχεις τις διψήφιες ενδείξεις.

Τέλος στο πεδίο συνένωσης κάνε τη διαμόρφωση:
Κείμενο415 =[Ημερομηνία και Ώρα] & ";" & " " & Format([καθαρη αξια];"Νομισματική μονάδα") & ";" & " " & Format([φπα ποσο];"Νομισματική μονάδα") & ";" & " " & Format([τελική αξια];"Νομισματική μονάδα")
Συνημμένα Αρχεία
Τύπος Αρχείου: zip Database1(1).zip (29,0 KB, 12 εμφανίσεις)
Απάντηση με παράθεση
  #7  
Παλιά 04-04-19, 16:01
Όνομα: Βαγγέλης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 09-05-2013
Μηνύματα: 62
Προεπιλογή

Σε συνέχεια της βοήθειας σας, θα ήθελα να ρωτήσω εάν γίνεται στο πεδίο συνένωσης τα ποσά που εμφανίζονται να χωρίζονται με τελεία "." αντι για κόμμα "," (πχ Format([φπα ποσο];"Νομισματική μονάδα", να φαίνεται 2.00 αντί για 2,00);

Παράθεση:
Αρχική Δημοσίευση από nasos23 Εμφάνιση μηνυμάτων
Καλημέρα σε όλους.
Βαγγέλη για (Office Ελληνικά) με τις αλλαγές στα παρακάτω πεδία:
Μήνας = Format(Now();"μμ")
Μέρα = Format(Now();"ηη")
Ώρα = Format(Now();"ωω")
Λεπτά= Format(Now();"λλ")

στο πεδίο Ημερομηνία και Ώρα θα έχεις τις διψήφιες ενδείξεις.

Τέλος στο πεδίο συνένωσης κάνε τη διαμόρφωση:
Κείμενο415 =[Ημερομηνία και Ώρα] & ";" & " " & Format([καθαρη αξια];"Νομισματική μονάδα") & ";" & " " & Format([φπα ποσο];"Νομισματική μονάδα") & ";" & " " & Format([τελική αξια];"Νομισματική μονάδα")
Απάντηση με παράθεση
  #8  
Παλιά 04-04-19, 22:47
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.674
Προεπιλογή

Καλησπέρα

Βαγγέλη θα μπορούσες να χρησιμοποιήσεις τη συνάρτηση Replace για να αντικαταστήσεις το "," με την "."

Οι παραστάσεις Format θα πάρουν την μορφή:

Replace(Format([φπα ποσο];"Νομισματική μονάδα"),",",".")
Απάντηση με παράθεση
  #9  
Παλιά 05-04-19, 18:22
Όνομα: Βαγγέλης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 09-05-2013
Μηνύματα: 62
Προεπιλογή

Καλησπέρα Γιώργο,
χρησιμοποίησα τη συνάρτηση που μου έγραψες αλλά δεν λειτουργεί. Επιστρέφει πρόβλημα μη έγκυρης σύνταξης. Επίσης όταν πληκτρολογούμε μια συνάρτηση σου βγάζει τις προτεινόμενες ανάλογα τα γράμματα που έχεις πατήσει. Αυτήν (replace) δεν την δείχνει.
Απάντηση με παράθεση
  #10  
Παλιά 05-04-19, 19:05
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.674
Προεπιλογή

Βαγγέλη το πρόβλημα οφείλεται στον "εξελληνισμό" της access.

Η συνάρτηση Replace υπάρχει, αν δεν τη βρίσκεις με αυτό το όνομα, πιθανόν στα "ελληνικά" να τη βάφτισαν Αντικατάσταση ή κάτι παρόμοιο.

Επίσης τα κόμματα, που χωρίζουν τα ορίσματα, άλλαξέ τα σε ερωτηματικά.
Απάντηση με παράθεση
Απάντηση στο θέμα


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

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


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

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
Αποτέλεσμα ερωτήματος σε πλαίσιο κειμένου ΚΩΣΤΑΣ2 Access - Ερωτήσεις / Απαντήσεις 2 07-03-15 23:02
Λειτουργία πλαίσιο κειμένου για μεταφορά kellis Access - Ερωτήσεις / Απαντήσεις 4 20-10-14 15:13
[ Φόρμες ] Σύνθετο πλαίσιο κειμένου asterix Access - Ερωτήσεις / Απαντήσεις 5 26-09-14 20:17
[Γενικά] Πλαίσιο κειμένου Activex gfevran Excel - Ερωτήσεις / Απαντήσεις 2 20-01-14 11:46
[ Φόρμες ] Ενημέρωση πλαίσιο κειμένου ΚΩΣΤΑΣ2 Access - Ερωτήσεις / Απαντήσεις 5 20-06-11 21:27


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