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

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

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

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 30-10-22, 21:47
Όνομα: Χρηστος
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2010, Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 19-02-2010
Περιοχή: Βραχατι Κορινθιας
Μηνύματα: 130
Προεπιλογή Υπόλοιπα

Καλησπέρα στην ομάδα
Θα ήθελα την βοήθεια σας για ένα πρόβλημα που αντιμετωπίζω σε ένα ερώτημα.
Στην βάση που ανέβασα στο ερώτημα τράπεζα αίματος θέλω στο υπόλοιπο των μονάδων
να είναι το πραγματικό π.χ όταν γίνεται χορήγηση μιας μοναδος από το απόθεμα μονάδων αίματος να αφαιρείται η χορηγηθεισα μονάδα π.χ (25-1=24)
,αλλά στην επόμενη χορήγηση μοναδος να αφαιρείται από το υπόλοιπο της προηγουμένης (24-2=22) και όχι από απόθεμα (25-2=23)
πιστευτώ να καταλάβατε τη θέλω
Ευχαριστώ για τον χρόνο σας
Χρήστος
Συνημμένα Αρχεία
Τύπος Αρχείου: accdb αιμοδοσία.accdb (464,0 KB, 8 εμφανίσεις)
Απάντηση με παράθεση
  #2  
Παλιά 31-10-22, 09:17
Όνομα: Γιάννης
Έκδοση λογισμικού Office: Ms-Office 2016
Γλώσσα λογισμικού Office: Αγγλική
 
Εγγραφή: 08-12-2020
Μηνύματα: 153
Προεπιλογή

Σε 1 ερώτημα δεν έχει νόημα αυτό που θες
Αυτό που χρειάζεσαι είναι μια επανασχεδίαση της τράπεζας που να έχει είσοδο και έξοδο (ή σήμανση κίνησης)
Είσοδο εισάγεις μονάδες αίματος με χρονική σήμανση πότε έγινε αυτό και εξαγωγή μονάδων αίματος πάλι με χρονική σήμανση
Οπότε εισάγεις π.χ 30/10/2022 10 μονάδες αίματος, εξάγεις 31/10/2022 5 μονάδες αίματος
Εσύ όπως το έχεις τώρα ουσιαστικά έχεις εισάγει με το χέρι ότι η Χ τράπεζα αίματος έχει Ψ μονάδες αίματος....και με βάση αυτήν την 1η τιμή προσπαθείς να καλύψεις την όλη μελλοντική κίνηση....κατα μία έννοια θα δουλέψει αλλά δεν είναι η σωστή φιλοσοφία. (γιατί σε εκείνες τις Ψ μονάδες δεν έχει την εννοια της κίνησης)
Απο εκεί και πέρα θα σχεδιάσεις μια φόρμα που θα κάνει την εισαγωγή εξαγωγή και θα μετράει κάθε φορά τις διαθέσιμες μονάδες
Απάντηση με παράθεση
  #3  
Παλιά 31-10-22, 10:49
Όνομα: Χρηστος
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2010, Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 19-02-2010
Περιοχή: Βραχατι Κορινθιας
Μηνύματα: 130
Προεπιλογή

ευχαριστω για την αμεση απαντηση σου..αλλα επειδη δεν γνωριζω και πολλα θα ηταν δυνατο να μου εδινες ενα παραδειγμα ?
και παλι ευχαριστω
Απάντηση με παράθεση
  #4  
Παλιά 02-11-22, 19:31
Όνομα: ΝΑΣΟΣ
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 14-10-2010
Μηνύματα: 455
Προεπιλογή

Καλησπέρα Χρήστο.
Ακολουθώντας τις συμβουλές του Γιάννη
στην επισυναπτόμενη βάση έχουμε:
1. Πίνακας "ΑΠΟΘΕΜΑ" όπου καταχωρούμε την Ομάδα αίματος και τις ποσότητες προηγουμένων ετών.
2. Πίνακας "ΚΙΝΗΣΗ" Ημερομηνία κίνησης, ομάδα αίματος, τύπος κίνησης εισαγωγή/εξαγωγή.
3. Ερώτημα "ΥΠΟΛΟΙΠΑ" όπου μας δείχνει τις υπόλοιπες μονάδες κατά ομάδα αίματος και έτος.
4. Ερώτημα προσάρτησης "ΠΡΟΣΑΡΤΗΣΗ_ΥΠΟΛΟΙΠΩΝ_ΣΤΟ_Α ΠΟΘΕΜΑ" όπου κάθε έτος ενημερώνουμε πίνακα "ΑΠΟΘΕΜΑ" με τα υπόλοιπα του έτους.
5. Στη φόρμα "ΚΙΝΗΣΗ" γίνεται αποτροπή εξαγωγής μονάδων αν δεν επαρκεί το υπόλοιπο. Επίσης
έχουμε άμεση ενημέρωση για το υπόλοιπο των μονάδων φιλτράροντας ομάδα αίματος και έτος.
Συνημμένα Αρχεία
Τύπος Αρχείου: zip αιμοδοσία1.zip (54,0 KB, 12 εμφανίσεις)

Τελευταία επεξεργασία από το χρήστη nasos23 : 03-11-22 στις 05:33.
Απάντηση με παράθεση
  #5  
Παλιά 06-11-22, 17:44
Όνομα: Χρηστος
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2010, Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 19-02-2010
Περιοχή: Βραχατι Κορινθιας
Μηνύματα: 130
Προεπιλογή

Φιλε Νάσο Ευχαριστώ
Μου έδωσες μια λύση
Απάντηση με παράθεση
  #6  
Παλιά 06-11-22, 17:55
Όνομα: ΝΑΣΟΣ
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 14-10-2010
Μηνύματα: 455
Προεπιλογή

Να είσαι καλά. Καλή συνέχεια
Απάντηση με παράθεση
  #7  
Παλιά 21-11-22, 15:10
Όνομα: Χρηστος
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2010, Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 19-02-2010
Περιοχή: Βραχατι Κορινθιας
Μηνύματα: 130
Προεπιλογή Υπολοιπα Ερωτημα

Φιλε Νάσο Καλησπέρα
Ξεύρω οτι είσαι πολύ απασχολημένος αλλά εαν θέλεις μπορείς να μου πεις που ακριβώς κανω λάθος στο ερωτημα ΥΠΟΛΟΙΠΑ
Ακολουθώντας τις συμβουλές σου έφτιαξα μια βαση οπως την εχω ανεβαση .. Αλλα επειδή δεν θέλω να εχω το απόθεμα αίματος οχι ανα ομαδα αλλα συγκεντρικά δηλ πχ 50 μονάδες απο τις οποιες θα αφαιρητε μονάδα οταν καλύπτουμε καποιον και θα προστίθενται μονάδες οταν γένεται αιμοληψία ..Στο ερώτημα ΥΠΟΛΟΙΠΑ μου βγάζει #σφαλμα η ασυμφωνία στον τυπο. Που κανω το λαθος
Ευχαριστώ Χρήστος
Συνημμένα Αρχεία
Τύπος Αρχείου: accdb Νέο Microsoft Access Database.accdb (864,0 KB, 9 εμφανίσεις)
Απάντηση με παράθεση
  #8  
Παλιά 21-11-22, 18:33
Όνομα: ΝΑΣΟΣ
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 14-10-2010
Μηνύματα: 455
Προεπιλογή

Καλησπέρα Χρήστο.
Το σφάλμα στο βγάζει γιατί υπάρχει ασυμφωνία στον υπολογισμό κείμενο και αριθμός.
Το πεδίο ΜοναδεςΑιματος είναι αριθμός και πρέπει να περικλείεται απο εισαγωγικά " ".
Επομένως αφαιρείς την απόστοφο ' ήτοι:
Καλυψη: Nz(DSum("ΜοναδεςΚαληψ";"ΚινησηΜ οναδων";"ΜοναδεςΑιματος=" & [ΜοναδεςΑιματος] & "AND ΤυποςΚινησης='2' and [Ετος]=" & [Ετος] & "");0)
Αιμοληψια: Nz(DSum("ΜοναδεςΚαληψ";"ΚινησηΜ οναδων";"ΜοναδεςΑιματος=" & [ΜοναδεςΑιματος] & " AND ΤυποςΚινησης ='1' and [Ετος]=" & [Ετος] & "");0)
Αποθεμα: Nz(DLookUp("ΑποθΠροηγΕτους";"Απο εμα";"ΜοναδεςΑιματος=" & [ΜοναδεςΑιματος] & "AND [Ετος]=" & [Ετος] & "");0)

Κώδικας:
SELECT DISTINCT ΚινησηΜοναδων.ΜοναδεςΑιματος, Nz(DSum("ΜοναδεςΚαληψ","ΚινησηΜοναδων","ΜοναδεςΑιματος=" & [ΜοναδεςΑιματος] &  
 "AND ΤυποςΚινησης='2' and [Ετος]=" & [Ετος] & ""),0) AS Καλυψη, 
Nz(DSum("ΜοναδεςΚαληψ","ΚινησηΜοναδων","ΜοναδεςΑιματος=" & [ΜοναδεςΑιματος] &
 " AND ΤυποςΚινησης ='1' and [Ετος]=" & [Ετος] & ""),0) AS Αιμοληψια, 
Nz(DLookUp("ΑποθΠροηγΕτους","Αποθεμα","ΜοναδεςΑιματος=" & [ΜοναδεςΑιματος] & 
 "AND [Ετος]=" & [Ετος] & ""),0) AS Αποθεμα, Nz([Αιμοληψια])-([Καλυψη])+[Αποθεμα] AS Υπολοιπο, ΚινησηΜοναδων.Ετος
FROM ΚινησηΜοναδων;

Τελευταία επεξεργασία από το χρήστη nasos23 : 21-11-22 στις 19:09.
Απάντηση με παράθεση
  #9  
Παλιά 21-11-22, 19:55
Όνομα: Χρηστος
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2010, Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 19-02-2010
Περιοχή: Βραχατι Κορινθιας
Μηνύματα: 130
Προεπιλογή

Φιλε Νάσο Ευχαριστώ για την γρηγορη απάντηση σου
Θα ήθελα να μαθω αν το SELECT DISTINCT ΚινησηΜοναδων.Μοναδεςαιμα ος το γραφω σε καθε κουτακι του ερωτήματος δηλ στο καληψη ,αιμοληψία ,απόθεμα. υπόλοιπο
ευχαριστώ για τον χρονο σου
φιλικα Χρηστος
Απάντηση με παράθεση
  #10  
Παλιά 21-11-22, 20:55
Όνομα: Χρηστος
Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2010, Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 19-02-2010
Περιοχή: Βραχατι Κορινθιας
Μηνύματα: 130
Προεπιλογή

και παλι συγνωμη για την ενοχληση
αλλα καθοτι λιγο μπερδεμενος μηπως ειναι δυνατο να βαλης τον κωδικα που μου εστειλες
στην βαση που εχω ανεβασει? ξερω ζητω πολλα αλλα και παλι συγνωμη
Φιλικα Χρηστος
Απάντηση με παράθεση
Απάντηση στο θέμα

Εργαλεία Θεμάτων
Τρόποι εμφάνισης

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

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


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

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
[ Ερωτήματα ] Υπόλοιπα παραγγελιών ΤΙΜΟΣ Access - Ερωτήσεις / Απαντήσεις 0 09-04-19 19:20
[Συναρτήσεις] υπόλοιπα αποθήκης προϊόντων-ανταλλακτικών ThodorisKak Excel - Ερωτήσεις / Απαντήσεις 2 21-01-17 12:34
[ Ερωτήματα ] Προοδευτικά υπόλοιπα ανά Πελάτη smasak Access - Ερωτήσεις / Απαντήσεις 30 11-02-15 09:39
[ Φόρμες ] προοδευτικά υπόλοιπα σε καρτέλα ευη79 Access - Ερωτήσεις / Απαντήσεις 7 18-08-14 07:21
[Εκτύπωση] Αυτόματη εκτύπωση το πρώτο αντίγραφο έγχρωμο τα υπόλοιπα ασπρόμαυρα rmaria Excel - Ερωτήσεις / Απαντήσεις 5 27-06-14 14:21


Η ώρα είναι 14:33.