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

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

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

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 15-01-14, 18:22
Όνομα: Αποστόλης
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 14-01-2014
Μηνύματα: 13
Προεπιλογή

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

Tasos επειδή αυτή τη στιγμή είμαι σε pc με access 2003 δεν μπορώ να ανοίξω το αρχείο. :(
Συνημμένα Αρχεία
Τύπος Αρχείου: mdb βδ1.mdb (180,0 KB, 15 εμφανίσεις)
Απάντηση με παράθεση
  #2  
Παλιά 15-01-14, 18:43
Το avatar του χρήστη Tasos
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού Office: Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική
 
Εγγραφή: 21-10-2009
Μηνύματα: 2.035
Προεπιλογή

Καλησπέρα!

Αποστόλη, δες το συνημμένο σε *.mdb.

Τάσος
Συνημμένα Αρχεία
Τύπος Αρχείου: mdb TestSum.mdb (348,0 KB, 18 εμφανίσεις)
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών
Απάντηση με παράθεση
  #3  
Παλιά 15-01-14, 19:05
Όνομα: Αποστόλης
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 14-01-2014
Μηνύματα: 13
Προεπιλογή

Tasos πολύ καλό το παράδειγμα που έκανες. μόνο που όταν πάω να το τρέξω μου λεεί ότι "στην έκφραση υπάρχει μη ορισμένη συνάρτηση FORMAT" αν την ξετικάρω μόνο με αφήνει να τρέξω το ερώτημα. φαντάζομαι ότι με κάποια τροποίηση θα μπορεί να μου ζητάει και το όνομα ή το αμκα του πελάτη ώστε να βρίσκω συγκεντρωτικές χρεώσεις ανα άτομο ε?

το τελευταίο άλυτο πρόβλημα που έχω όμως (και για μένα το πιο δύσκολο) είναι το προηγούμενο που ανέβασα...αυτό με την αυτόματη άθροιση.έχεις καμία ιδέα?
Απάντηση με παράθεση
  #4  
Παλιά 15-01-14, 20:50
Όνομα: Στέλιος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 22-05-2009
Περιοχή: Αθήνα
Μηνύματα: 169
Προεπιλογή

Αποστόλη στο συνημμένο εμφαίνεται ο ενδεδειγμένος τρόπος να καταχωρείς δεδομένα. Αυτό που περιγράφεις δεν γίνεται εκτός και αν η συναλαγή με το άτομο γίνεται μόνο μια φορά και οι συναλλαγές είναι συγκεκριμένες πχ τρείς δόσεις.
Συνημμένα Αρχεία
Τύπος Αρχείου: mdb βδ1.mdb (364,0 KB, 10 εμφανίσεις)
Απάντηση με παράθεση
  #5  
Παλιά 15-01-14, 21:14
Το avatar του χρήστη Tasos
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού Office: Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική
 
Εγγραφή: 21-10-2009
Μηνύματα: 2.035
Προεπιλογή

Αποστόλη, θα πρέπει να μπεις στον VBE me ALT + F11, να επιλέξεις Tools >References και να αφαιρέσεις τυχόν τσεκαρισμένα στοιχεία που περιέχουν τη λέξη "MISSING".

Δεν κοίταξα ακόμα το αρχείο σου αλλά δες πρώτα το αρχείο του Στέλιου.

Τάσος
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών
Απάντηση με παράθεση
  #6  
Παλιά 16-01-14, 01:04
Όνομα: Αποστόλης
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 14-01-2014
Μηνύματα: 13
Προεπιλογή

Τασο αυριο θα φτιαξω το ερωτημα μου με το μπουσουλαπου μου εδωσες και αν εχω καποιο θεματακι σου λεω. :)

Στελιο θα το δω το αρχειο αυριο γιατι τωρα μπαινω απο κιν.παντως ειναι αδικο να γινεται τοσο ευκολα συο excel ενα αθροισμα πεδιων και να μξγι εται στην access
Απάντηση με παράθεση
  #7  
Παλιά 16-01-14, 01:50
Όνομα: Στέλιος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 22-05-2009
Περιοχή: Αθήνα
Μηνύματα: 169
Προεπιλογή

Αποστόλη
Στην Access είναι λίγα τα πράγματα που δεν γίνονται.
Προσπάθησα να σου εξηγήσω πως ε΄ναι η σωστή σχδίαση μιας σχεσιακής βάσης δεδομένων. Τώρα αν θές μόνο ένα πίνακα δες το ερώτημα στην συνημμένη βάση.
Το άθροισμα των πεδίων που θές υπολογίζεται με απλές πράξεις. Η τιμή δεν καταχωρείται στον πίνακα, μπορεί να γίνει και αυτό αλλά δεν έχει νόημα να καταχωρείς υπολογιζόμενα πεδία σε πίνακες, είναι σπατάλη χώρου.
Ελπίζω να σε κάλυψα.
Συνημμένα Αρχεία
Τύπος Αρχείου: mdb βδ1.mdb (364,0 KB, 13 εμφανίσεις)
Απάντηση με παράθεση
  #8  
Παλιά 16-01-14, 16:51
Όνομα: Αποστόλης
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 14-01-2014
Μηνύματα: 13
Προεπιλογή

Tasos σχετικά με το κώδικα sql pου μου έδωσες στο αρχείο testsum θέλω μια μικρή βοήθεια. Θα ήθελα να ζητάει έτος,αρχικο μήνα, τελικό μήνα όπως το έκανες εσυ αλλά και αμκα ώστε να μου επιστρέφει για το άτομο που ζητάω συνολική χρέωση, πίστωση και υπόλοιπο. Σου επισυνάπτω και τη βάση δεδομένων ώστε να καταλάβεις τι ζητάω και να το τροποποίησεις στα δικά μου πεδία...

σόρρυ για το πρήξιμο αλλά με αυτή τη λεπτομέρεια τελειώνω το project. :)

Υ.Γ. το αρχείο στείλτο αν θέλεις σε *.accdb
επειδη το αρχείο της βάσης ήταν μεγάλο το ανέβασα εδω
ΚΛΙΝΙΚΗ.accdb - Speedy Share - upload your files here

Τελευταία επεξεργασία από το χρήστη tolkap : 16-01-14 στις 21:12.
Απάντηση με παράθεση
  #9  
Παλιά 16-01-14, 21:35
Το avatar του χρήστη Tasos
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού Office: Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική
 
Εγγραφή: 21-10-2009
Μηνύματα: 2.035
Προεπιλογή

Καλησπέρα!

Αποστόλη, άνοιξε το ερώτημα σε προβολή SQL και αντικατέστησε τον κώδικα SQL που περιέχει με τον με τον παρακάτω:
Κώδικας:
 PARAMETERS [Όρισε Έτος] Short, [Όρισε αρχικό μήνα] Short, [Όρισε τελικό μήνα] Short, [Όρισε κωδικό ΑΜΚΑ] Text ( 255 );
SELECT Year([ΗΜΕΡΟΜΗΝΙΑ]) AS ΈΤΟΣ, Format(DateSerial(Year([ΗΜΕΡΟΜΗΝΙΑ]),Nz([Όρισε αρχικό μήνα],1),1),"mmmm") & 
IIf(Nz([Όρισε αρχικό μήνα],1)=Nz([Όρισε τελικό μήνα],12),""," - " & Format(DateSerial(Year([ΗΜΕΡΟΜΗΝΙΑ]),
Nz([Όρισε τελικό μήνα],12),1),"mmmm")) AS ΠΕΡΙΟΔΟΣ, Πίνακας1.ΑΣΘΕΝΗΣ, Sum(Πίνακας2.ΠΟΣΟ) AS ΣΥΝΟΛΙΚΟ_ΠΟΣΟ
FROM Πίνακας1 INNER JOIN Πίνακας2 ON Πίνακας1.AMKA = Πίνακας2.[ΑΜΚΑ]
WHERE (((Month([ΗΜΕΡΟΜΗΝΙΑ])) Between Nz([Όρισε αρχικό μήνα],1) And Nz([Όρισε τελικό μήνα],12)))
GROUP BY Year([ΗΜΕΡΟΜΗΝΙΑ]), Πίνακας1.AMKA, Πίνακας1.ΑΣΘΕΝΗΣ, DatePart("yyyy",[ΗΜΕΡΟΜΗΝΙΑ])
HAVING (((Year([ΗΜΕΡΟΜΗΝΙΑ])) Between Nz([Όρισε Έτος],1900) And Nz([Όρισε Έτος],2100)) AND 
((Πίνακας1.AMKA)=[Όρισε κωδικό ΑΜΚΑ]));
Φιλικά

Τάσος
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών
Απάντηση με παράθεση
  #10  
Παλιά 16-01-14, 21:41
Όνομα: Αποστόλης
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 14-01-2014
Μηνύματα: 13
Προεπιλογή

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


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

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


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

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
[ Φόρμες ] Ενημέρωση πινάκων από Φόρμα pkelgr Access - Ερωτήσεις / Απαντήσεις 4 15-02-16 14:28
[ Φόρμες ] Ενημέρωση πινάκων από φόρμα pixelman Access - Ερωτήσεις / Απαντήσεις 4 03-11-15 10:27
Ενημέρωση πινάκων rmaria Access - Ερωτήσεις / Απαντήσεις 0 01-02-14 01:04
Ενημέρωση πινάκων από φόρμα pkelgr Access - Ερωτήσεις / Απαντήσεις 1 12-01-14 14:39
ενημερωση πινακων απο σκανερ sakis Access - Ερωτήσεις / Απαντήσεις 2 02-02-10 20:08


Η ώρα είναι 13:49.