Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια! |
![]() |
| Εργαλεία Θεμάτων | Τρόποι εμφάνισης |
#1
| |||
| |||
![]()
Για σας και πάλι αγαπητοί φίλοι και φίλες του forum!!! Λοιπόν έχω μια βάση και για να μπορέσω να εξηγήσω όσο μπορώ καλύτερα το πρόβλημα μου έχω ανεβάσει και τη βάση. Ήθελα έχοντας στην υποφορμα να υπάρχει μια συνθήκη ολοκληρώνοντας μονο όλα τα αναδυόμενα πεδία που βρίσκονται σε κατάσταση δεν ισχύει η Ακυρο το αναδυόμενο πεδίο της φόρμας να αλλάζει αυτομάτως μονο του και να βρίσκετε σε κατάσταση σε αναμονή. Όταν δε η φόρμα είναι σε κατάσταση ολοκληρωμένο δηλαδή θα πρέπει να είναι και σε όλα τα αναδυόμενα πεδία της υποφορμας σε κατάσταση ισχύει. Για καλύτερα όταν: φορμα υποφορμα ολοκληρωμενο ισχύει --------------------------------------------------------------------------- φορμα υποφορμα σε αναμονή δεν ισχύει Ακυρο -------------------------------------------------------------------------- Θα προτιμούσα να γίνετε αυτό αυτόματα αλλάζοντας στην ιποφορμα τα αναδυόμενα πεδία αν γίνετε βέβαια. Εννοείτε θα χρησιμοποιήσω κουμπί αποθήκευσης σχετικά με το χρόνο ανταπόκρισης της κεντρικής φόρμας. Απλά αυτό που με προβληματίζει είναι ότι η uποφορμα θα χρησιμοποιείτε και αλλου αλλάζοντας τα αναδυόμενα πεδία. Η υπάρχον βάση είναι δείγμα και όχι η εργασία που έχω κάνει ![]() ![]() ![]() |
#2
| |||
| |||
![]()
Καλησπέρα Αντώνη δες το συνημμένο. Ο κώδικας, αν όλες οι εγγραφές της δευτερεύουσας φόρμας έχουν στο πεδίο [Κατάσταση] τιμή « ισχύει», δίνει στο πεδίο [Κατάσταση] της κύριας φόρμας τιμή «ολοκληρωμενο», διαφορετικά «σε αναμονή». Για να τρέξει ο κώδικας, αν τροποποιήσουμε μια εγγραφή στη δευτερεύουσα φόρμα, θα πρέπει να την αποθηκεύσουμε. Η αποθήκευση γίνεται με τη μετακίνηση σε άλλη εγγραφή ή πατώντας στην εργαλειοθήκη το κουμπί Save. Η αποθήκευση της εγγραφής αφαιρεί από τον επιλογέα της εγγραφής το μολύβι το οποίο δείχνει ότι η εγγραφή έχει τροποποιηθεί, αλλά δεν έχει αποθηκευτεί. Κάνε δοκιμές. Ελπίζω να μπορέσεις να εφαρμόσεις το παράδειγμα και στην πραγματική σου ΒΔ. |
#3
| |||
| |||
![]()
Κατατοπιστικότατος όπως πάντα ! Δεν έχω λόγια να σε ευχαριστήσω. Προσπαθώ να το εμπεδώσω κάνοντας και αλλα τεστ. ![]() |
#4
| |||
| |||
![]()
Δεν τα κατάφερα ίσος έχω κάνει λάθος στο κλειδί !! το πεδίο id υπάρχει και στις 2 φόρμες,επίσης υπάρχει και το πεδίο Κατάσταση με ίδια ονομασία. Έχω μπερδευτεί γιατί άλλο το παράδειγμα που ανέβασα και άλλο αυτό που φτιάχνω. Dim frm As Form Set frm = Me.Parent If DCount("κατάσταση", "Πινακας2", "IDΠινακας1=" & frm.ID & _ "And κατάσταση<> ' ισχυει'") Then frm.κατάσταση= "σε αναμονή" Else frm.κατάσταση= "ολοκληρωμενο" End If frm.Dirty = False που ανήκει αυτό το πεδίο id στο Πινακας2 ή IDΠινακας1 ? και το πεδιο κατάσταση που ανήκει στο Πινακας2 ή IDΠινακας1 ? επίσης παίζει ρολο στα πεδία να υπάρχει τονισμός η κενο ? |
#5
| |||
| |||
![]()
1) Τα ονόματα των πεδίων, στον κώδικα και στους πίνακες, πρέπει να είναι ταυτόσημα. Συνεπώς ο τονισμός και τα κενά έχουν σημασία. 2) Στην πρόταση του κώδικα: If Dcount(….) Then, όλα τα πεδία ανήκουν στον πίνακα [Πινακας2]. 3) Το IDΠινακας1 είναι το πεδίο του πίνακα [Πινακας2], το οποίο συνδέεται με το πεδίο ID του πίνακα [Πινακας1]. 4) Στη φράση "And κατάσταση <>…, μετά τα εισαγωγικά πρόσθεσε ένα κενό. Θα γίνει: " And κατάσταση <>… 5) Αν τα ονόματα των πινάκων ή των πεδίων είναι μη έγκυρα (δεσμευμένες λέξεις, έχουν ενδιάμεσα κενά, κλπ), πρέπει να τα κλείσεις σε αγκύλες (πχ [Πίνακας 2]). |
#6
| |||
| |||
![]()
Κοίτα να δεις γαϊδούρια δεν είπα ευχαριστώ!! Ζητω συγγνώμη και ευχαριστώ πολύ! Βεβαια δεν το κατάφερα αλλα θα κάνω προσπάθεια! ![]() ![]() ![]() |
#7
| |||
| |||
![]()
Μια τρυπα στο νερό έκανα, και έχω ανεβάσει απόσπασμα της δουλειάς που κάνω! ![]() Ίσως έχω παραπάνω επιλογές στα combobox παίζει ρόλο? Εγώ έχω σηκώσει χερια και πόδια δεν μπορώ να το κάνω! κάτι κάτι λάθος γίνετε σε ονόματα πεδίον και δεν αποκρίνεται ο κώδικας. Μπορώ να έχω ξανά τη λύση στο παράδειγμα μου? ![]() ------------------------------------------------------------------------------------------- Δηλαδή μπορώ να προσθέσουμε στο κώδικα επιλέγοντας στο πεδίο Κατάσταση Εκδήλωσης επιλέγοντας να είναι Ολοκληρωμένη τότε να αλλάζουνε όλα τα πεδία στην υπoφόρμα σε κατάσταση Πληρώθηκε??? kapetang εσυ μπορείς να με βοηθήσεις !!!!!! ![]() |
#8
| |||
| |||
![]()
Καλησπέρα Αντώνη, το πεδίο [Κατάσταση Εκδήλωσης] της κύριας φόρμας, παίρνει 3 τιμές ("Σε εξέλιξη";"Ακυρη";"Ολοκληρωμέ νη"). Αν πάρει την τιμή «Ολοκληρωμένη», ζητάς, όλες οι εγγραφές στη δευτερεύουσα φόρμα, να πάρουν στο πεδίο [κατάσταση] τιμή «Πληρώθηκε». Ας υποθέσουμε ότι υλοποιούμε το παραπάνω. Αν τώρα στο πεδίο [Κατάσταση Εκδήλωσης] διαλέξω «Σε εξέλιξη» ή «Ακυρη» τι θα γίνει; Στην κύρια εγγραφή θα φαίνεται ότι υπάρχουν εκκρεμότητες, ενώ στις αντίστοιχες δευτερεύουσες όχι (όλα πληρωμένα). Μάλλον θα πρέπει να ξανασκεφτείς το θέμα. |
#9
| |||
| |||
![]()
Δηλαδή αν επιλέγω ολοκληρωμένη θα είναι το πεδίο πληρώθηκε! Αν βρίσκετε σε κατάσταση σε εξέλιξη η άκυρο τότε θα είναι σε εξέλιξη και στις 2 περιπτώσεις. κατάλαβα τι λες ok. έχουμε λοιπόν: ολοκληρωμένη - πληρώθηκε Σε εξέλιξη - Σε εξέλιξη Άκυρη - Σε εξέλιξη Σωστά? ![]() |
#10
| |||
| |||
![]()
Αντώνη, κάνε δοκιμές στο συνημμένο.
|
![]() |
« Προηγούμενο Θέμα
|
Επόμενο Θέμα »
| |
| ||||
Θέμα | Δημιουργός | Forum | Απαντήσεις | Τελευταίο Μήνυμα |
Αναδυόμενο πλαίσιο μηνύματος μετά από ορισμένο χρονικό διάστημα | dimitrisp | Access - Ερωτήσεις / Απαντήσεις | 2 | 08-12-14 18:51 |
[ Ερωτήματα ] ΗΕμφάνιση ημερολογίου σε αναδυόμενο παράθυρο της Access | dimitrisp | Access - Ερωτήσεις / Απαντήσεις | 9 | 18-09-14 20:23 |
Σύνταξη συνθήκης if | dmarop | Access - Ερωτήσεις / Απαντήσεις | 2 | 13-12-12 22:36 |
[ Φόρμες ] Αναδυόμενο Υπόμνημα | apostolos | Access - Ερωτήσεις / Απαντήσεις | 2 | 15-06-11 18:57 |
Μεταφορά δεδομένων απο πεδίο σε πεδίο | Meteora | Access - Ερωτήσεις / Απαντήσεις | 5 | 30-01-09 20:03 |
Η ώρα είναι 05:45.