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

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

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

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 11-03-10, 23:29
Όνομα: Μάρω
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 09-03-2010
Περιοχή: Αθήνα
Μηνύματα: 287
Προεπιλογή RoundUp

Μπορεί να μου πει κάποιος αν υπάρχει στην Access αντίστοιχη συνάρτηση του RoundUp με 2 δεκαδικά ψηφία?

Ευχαριστώ
Απάντηση με παράθεση
  #2  
Παλιά 12-03-10, 01:14
amy Ο χρήστης amy δεν είναι συνδεδεμένος
Όνομα: Ανδρέας
Έκδοση λογισμικού Office: Ms-Office 2003
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 12-11-2009
Περιοχή: Πάτρα
Μηνύματα: 41
Προεπιλογή

VBA
Round(expression [,numdecimalplaces])
Round(yourexpression,2)
ACCESS
Round([field];2) και στα ελληνικά ---> Στρογγυλοποιημένη
Απάντηση με παράθεση
  #3  
Παλιά 12-03-10, 07:21
Όνομα: Μάρω
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 09-03-2010
Περιοχή: Αθήνα
Μηνύματα: 287
Προεπιλογή

Ανδρέα,
Αυτό το γνωρίζω, θέλω όμως όταν έχω 2,31 να το στρογγυλοποιεί σε 2,35
Αυτό γίνεται με την roundUp στο Excel ενώ αντίθετα η round μας δίνει 2,30


Καλημέρα
Μάρω
Απάντηση με παράθεση
  #4  
Παλιά 12-03-10, 09:19
Όνομα: Χρήστος Ελευθερίου
Έκδοση λογισμικού Office: Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 26-11-2009
Περιοχή: Άρτεμις
Μηνύματα: 100
Προεπιλογή

Μαρω μου καλημερα
Μαλλον νομιζω πως κανεις λαθος με την ROUNDUP στο Excel δεν κανει με τιποτα το 2,31 στρογγυλοποιηση σε 2,35. Το 2,3469 με στρογγυλοποιηση σε 2 δεκαδικα θα το κανει 2,35.

Τωρα οσον αφορα την ερωτηση σου αν υπαρχει στην ACCESS θα το αφησω στους πιο ειδικους να σου απαντησουν..
__________________
Φιλικά

Χρήστος
___________________________
Αυτά που δεν ξέρεις φτιάχνουν μία βιβλιοθήκη που καθένας μας θα ήταν υπερήφανος να έχει.
Αν η γνώση δημιουργεί προβλήματα,η άγνοια σίγουρα δεν μπορεί να τα λύσει.
Απάντηση με παράθεση
  #5  
Παλιά 12-03-10, 10:33
Όνομα: Μάρω
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 09-03-2010
Περιοχή: Αθήνα
Μηνύματα: 287
Προεπιλογή

Οκ Χρήστο, δικό μου λάθος στην διατύπωση
έχω το αποτέλεσμα ενός τύπου 640,325 και θέλω να μου δώσει το αποτέλεσμα 640,33
δεν ξέρω όμως γιατί με την Στρογγυλοποίηση μου δίνει 640,32
Έχεις καμιά ιδέα?


Μάρω
Απάντηση με παράθεση
  #6  
Παλιά 12-03-10, 13:13
Το avatar του χρήστη Tasos
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού Office: Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική
 
Εγγραφή: 21-10-2009
Μηνύματα: 2.035
Προεπιλογή

Γεια σας!

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

Αυτές οι μέθοδοι, μοιάζουν μεταξύ τους αλλά καμία δεν κάνει ακριβώς τη δουλειά της RounUp() της Excel (που είναι το ζητούμενο του θέματος)

Τι κάνουμε λοιπόν; Υπολογίζουμε στην Access με τη βοήθεια της Excel.

Πως;

  • Πατάμε ALT+F11 για να εμφανίσουμε τον VBE.
  • Εισάγουμε μια νέα λειτουργική μονάδα (Menu: Insert > Module) ή χρησιμοποιούμε τυχόν υπάρχουσα.
  • Προσθέτουμε (τσεκάρουμε) την αναφορά: Microsoft Excel XX.0 Object Library (Menu: Tools>References)
    όπου XX.0 = η έκδοση Excel που υπάρχει στον υπολογιστή.

Στο παράθυρο της λειτουργικής μονάδας περνάμε το παρακάτω:
Κώδικας:
Function XLRoundUp(Number#, Optional Num_Digits% = 0) As Double
    XLRoundUp = Excel.WorksheetFunction.RoundUp(Number, Num_Digits)
End Function
και αποθηκεύουμε.

Στο πεδίο της φόρμας ή του ερωτήματος που θα εμφανίζεται το αποτέλεσμα
περνούμε τον τύπο:

=XLRoundUp([MyNunber];Num_Digits) που συμπεριφέρεται όπως η Excel (είναι Excel)

όπου:
  • [MyNunber] = το πεδίο που περιέχει τον αριθμό που θα στρογγυλοποιηθεί προς τα πάνω
  • Num_Digits = ο αριθμός των ψηφίων, στα οποία θα στρογγυλοποιηθεί ο αριθμός

Έτσι, για τον αριθμό 640,325 ο τύπος: =XLRoundUp([MyNunber];2) θα μας επιστρέψει 640,33.

Φιλικά

Τάσος
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών

Τελευταία επεξεργασία από το χρήστη Tasos : 12-03-10 στις 13:48.
Απάντηση με παράθεση
  #7  
Παλιά 12-03-10, 14:19
Το avatar του χρήστη Meteora
Συντονιστής
Όνομα: Νίκος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 28-12-2008
Περιοχή: Θεσσαλονίκη
Μηνύματα: 1.033
Προεπιλογή

Καλημέρα στη παρέα καί όχι μόνο !

...Αν το ζήτημα ειναι να "σπρώξουμε" προς τα άνω την στρογγυλοποίηση αριθμών με χιλιοστό το 5 , μήπως μπορεί να γίνει ως εξής ;
  • Για αριθμούς με τρία δεκαδικά : =Round( τιμή πεδίου + 0,001 , 2)
Παιδιά, μια σκέψη καταθέτω ...

Υ.Σ. Έχω την αίσθηση (πιθανόν) οτι με την παραπάνω προτεινόμενη διαχείριση φτιάχνουμε - επι της ουσίας - μια RoundUp της αρεσκείας μας. Για αίσθηση μιλάω και όχι για βεβαιότητα...

Φιλικά / Νίκος Δ.
Απάντηση με παράθεση
  #8  
Παλιά 12-03-10, 14:50
Όνομα: Μάρω
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 09-03-2010
Περιοχή: Αθήνα
Μηνύματα: 287
Προεπιλογή

  • Προσθέτουμε (τσεκάρουμε) την αναφορά: Microsoft Excel XX.0 Object Library (Menu: Tools>References)
    όπου XX.0 = η έκδοση Excel που υπάρχει στον υπολογιστή.


Δεν το κατάλαβα η ξανθιά!!!! Πως το κάνουμε αυτό?
Απάντηση με παράθεση
  #9  
Παλιά 12-03-10, 15:06
Το avatar του χρήστη Meteora
Συντονιστής
Όνομα: Νίκος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 28-12-2008
Περιοχή: Θεσσαλονίκη
Μηνύματα: 1.033
Προεπιλογή

Μάρω δες επισυναπτόμενο !

Φιλικά / Νίκος Δ.
Συνημμένα Αρχεία
Τύπος Αρχείου: doc ΔΙΑΒΑΣΕ.doc (118,5 KB, 74 εμφανίσεις)
Απάντηση με παράθεση
  #10  
Παλιά 12-03-10, 15:05
Όνομα: Μάρω
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 09-03-2010
Περιοχή: Αθήνα
Μηνύματα: 287
Προεπιλογή

Νίκο γειά σου και σε εσένα,
η αλήθεια είναι οτι στα 10 δεδομένα που το δοκίμασα πέτυχε, αλλά ούτε και εγώ νιώθω ασφάλεια ότι είναι το σωστό.
Ίσως η σκέψη σου τελικά να είναι ορθή.
Αν βρώ αποδείξεις θα σου πω.


Φιλικά
Μάρω
Απάντηση με παράθεση
Απάντηση στο θέμα


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

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



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