| Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια! |
![]() |
| | Εργαλεία Θεμάτων | Τρόποι εμφάνισης |
| |
|
#1
| |||
| |||
|
Την καλημέρα μου στο forum. Βαγγέλη, μου γράφεις τα κάτωθι. 1)Ο κανόνας είναι λίγο περίπλοκο για να το αποτυπώσουμε σε κώδικα πιστεύω. Γενικά τα διπλώματα πλεον λήγουν ανά 25 χρόνια και αν είναι επαγγελματικό είναι ανά 5 χρόνια. Αλλά υπάρχουν πάντα και κάποιες εξαιρέσεις. Εγώ απλά θέλω να το επιλέγω εγώ ανάλογα την κάθε περίπτωση. 2)Είδα στον κώδικα αυτό που έχεις γράψει αλλά πατώντας το κουμπί εκτύπωση δεν κάνει κάτι. 3)Έχεις δίκιο μπορείς να το δεις στη φόρμα μαθημάτων που υπάρχει. Για το 1 Στη φόρμα Διαχείριση Διπλωμάτων και δίπλα στο πεδίο [ημερομηνία έκδοσης διπλώματος] δημιούργησε ένα πεδίο combo μην το συνδέσεις με πίνακα αλλά βάλε στον μάγο τις τιμές ( με την σειρά) κενό,1,2,3,15 και στις ιδιότητες του πεδίου στο name βάλε cbo_end_dpl Μόλις το δημιουργήσεις και το ονοματίσεις, πήγαινε στις ιδιότητες και στο tab συμβάντα και στο συμβάν AfterUpdate γράψε τον παρακάτω κώδικα. Κώδικας: If IsNull(Me.Ημερομηνία_λήξης_διπλώματος) Then
Me.cbo_end_dpl = ""
Exit Sub
End If
If IsNull(Me.cbo_end_dpl) Or Me.cbo_end_dpl = "" Or IsNull(Me.Ημερομηνία_λήξης_διπλώματος) Then
Exit Sub
Else
Me.Ημερομηνία_λήξης_διπλώματος = DateAdd("yyyy", Me.cbo_end_dpl, Me.Ημερομηνία_λήξης_διπλώματος)
End If
Αν το πεδίο [cbo_end_dpl] είναι κενό τότε δεν θα γίνει τίποτα αλλιώς θα προσθέση στην ημερομηνία την επιλογή σου. Για το 2 αυτήν την ώρα που σου γράφω έχω την βάση που έστειλα και τρέχει μια χαρά. Πρόσεξε αν τυχόν και μεταφέρεις τον κώδικα στα ονόματα των πεδίων. Για το 3 φτιάξτε την φόρμα και στείλε δείγμα. ΣΟΥ ΣΤΕΛΝΩ ΔΕΙΓΜΑ Σημείωση: [B]Ήμαρτον με τα ελληνικά ονόματα στα πεδία και μάλιστα με κενά... ΗΜΑΡΤΟΝ[/B ] |
|
#2
| |||
| |||
| Παράθεση:
Κώστα για το 2 είδα στο παράδειγμα που έστειλες και όντως δουλεύει όπως θέλω. Θα το μεταφέρω στο κανονικό και θα δω. Ελπίζω να μην αντιμετωπίσω πρόβλημα. Για το 3 υπάρχει ήδη η φόρμα Μαθημάτων στα αριστερά που δείχνει όλα τα αντικείμενα. Έτσι θέλω να είναι απλά θα την βάλω ως υποφόρμα στη φόρμα Διπλωμάτων. Για τα ελληνικά φίλε τα χρησιμοποίησα αλλά κατάλαβα "αργά" ότι ήταν λάθος ιδέα... Ευχαριστώ πολύ για το 2. |
|
#3
| |||
| |||
|
Την καλησπέρα μου στο forum. Βαγγέλη, κοίτα το συνημμένο αρχείο. 1. Στον πίνακα μαθημάτων έκανα το πεδίο "΄Ωρες" τύπου αριθμό, στην φόρμα πρόσθεσα ένα txt πεδίο και με την function ValueToTime εμφανίζει την διαφορά ώρας. 2. Τα κεφάλαια τα έφτιαξα σε ένα πίνακα, θεωρία και πρακτικά τώρα με βάση τις επιλογές σου εμφανίζονται τα αντίστοιχα Αν έχω ξεχάσει κάτι πες το |
|
#4
| |||
| |||
|
Πως μπορω να ενημερωσω ενα κελι ενος πινακα απο ενα πλαισιο κειμενου το οποιο δινει αποτελεσμα μονο του (κανει πραξη σε σχεσημε ενα αλλο κελι π.χ. Σε μια φορμα σε ενα πλαισιο κειμενου δινω τιμη 5€, σε ενα δευτερο πλαισιο κειμενου δινω το φπα 23% και σε ενα τριτο πλαισιο κειμενου υπολογιζεται το συνολικο ποσο.) Πως γινεται το τριτο πλαισιο κειμενου να ενημερωνει τον πινακα;; Ευχαριστω |
|
#5
| |||
| |||
| Παράθεση:
Βαγγέλη, 1. τα πεδία της φόρμας δεν ανήκουν στον πίνακα; 2. αν ανήκουν, όπως καταλαβαίνεις γράφουν στον πίνακα. αν δεν ανήκουν τι θέλςεις να κάνουν, στον πίνακα και σε ποιόν πίνακα, update ή insert Το καλύτερο είναι να δημοσιεύσεις μια test database |
|
#6
| |||
| |||
|
Κώστα καλησπέρα σε εσένα και το forum, Παράθεση:
Παράθεση:
Στη Φόρμα Διπλωμάτων στη καρτέλα Στοιχεία Διπλώματος υπάρχει πεδίο: 1) Ημερομηνία έκδοσης Διπλώματος και 2) Ημερομηνία λήξης Διπλώματος. Τη Ημερομηνία έκδοσης Διπλώματος τη γράφω εγώ το Ημερομηνία λήξης Διπλώματος συμπληρώνεται μόνο του (+ 5 έτη πχ). Θέλω λοιπόν το δεύτερο πεδίο να ενημερώνει το αντίστοιχο πεδίο στον Πίνακα Διπλώματα. Όσον αφορά την Ημερομηνία λήξης Διπλώματος που είχαμε πει την προηγούμενη φορά, θέλω πατώντας ένα κουμπί να προσθέτει τα ανάλογα χρόνια (1,3,5,15). Σε αυτό που μου έστειλες αν πχ Ημερομηνία έκδοσης Διπλώματος είναι 24/5/2013 και επιλέξω 1 προσθέτει 1, αν μετά το αλλάξω σε 3 προσθέτει 3 στο προηγούμενο και όχι στο αρχικό. κοίτα το σχέδιο 2,3 για να καταλάβεις τι θέλω να κάνω Επίσης… Έκανα αντιγραφή του κώδικα που μου έστειλες για την εκτύπωση αλλά βγάζει 2 αντίγραφα του συγκεκριμένου παραστατικού, ενώ θέλω 1!!!! Φτιάχνεται; Και.. Θέλω να αθροίσω όλα τα Αρχική Αξία, Έκπτωση, Καθαρή Αξία, ΦΠΑ, Τελική Αξία από τη φόρμα Αποδείξεων Την Αρχική Αξία την έκανα με πλαίσιο κειμένου και τη συνάρτηση: =Άθροισμα([Αξία 1]+[Αξία 2]+[Αξία 3]+[Αξία 4]) και δουλεύει μια χαρά. Αν όμως κάνω το ίδιο αλλά με αυτή τη συνάρτηση: =Άθροισμα([Αρχική Αξία]) μου βγάζει σφάλμα. Είναι λόγω του ότι το Αρχική Αξία είναι πεδίο που υπολογίζεται; Και πως μπορούμε να το ξεπεράσουμε; κοίτα το σχέδιο 4 για να καταλάβεις τι θέλω να κάνω Ευχαριστώ!!!!!!! |
|
#7
| |||
| |||
|
την καλημέρα μου στο forum. Βαγγέλη μου γράφεις: Τη Ημερομηνία έκδοσης Διπλώματος τη γράφω εγώ το Ημερομηνία λήξης Διπλώματος συμπληρώνεται μόνο του (+ 5 έτη πχ). Θέλω λοιπόν το δεύτερο πεδίο να ενημερώνει το αντίστοιχο πεδίο στον Πίνακα Διπλώματα. Μα η Ημερομηνία λήξης Διπλώματος είναι πεδίο του πίνακα τουλάχιστον στην DB που δημοσίευσες. Στην φόρμα Διπλωμάτων στο tab Στοιχεία Δπλωμάτων τπ πρδίο Ημερομηνία λήξης Διπλώματος είναι πεδίο του πίνακα. Αγου λοιπόν είναι πεδίο του πίνακα έστβ ότι έχει ημερομηνία 13/05/2013 και του προσθέσεις 1 χρόνο, τότε θα γίνει update και θα δείχνει 13/05/2014. Η προηγουμένη τιμή δηλ. 13/05/2103 μετά την ενημέρωση δεν υπάρχει. Μήπως θέλεις κάτι άλλο, πραγματικά δεν καταλαβαίνω. |
|
#8
| |||
| |||
| Παράθεση:
Εκεί θέλω να κάνει ενημέρωση. Όσον αφορά τη Φόρμα μαθημάτων και αυτό που έφτιαξες με τον Τύπο Μαθήματος, την Κατηγορία και το Κεφάλαιο είναι αυτό ακριβώς που θέλω, αλλά δε μπορώ να το μεταφέρω στη κανονική βάση (αυτή που σου στέλνω είναι κουτσουρεμένη λόγω μεγέθους). Πιστεύω οι φωτόγραφίες που έστειλα να είναι κατατοπιστικές για αυτό που θέλω. |
|
#9
| |||
| |||
|
Καλό μεσημέρι στο forum. Βαγγέλη,μου γράφεις : 1 Κώστα στη Φόρμα ενημερώνεται και φαίνεται κανονικά όπως λες. Στον πίνακα όμως μέσα στην αντίστοιχη στήλη δεν το γράφει! Εκεί θέλω να κάνει ενημέρωση. ΚΑΙ 2 Όσον αφορά τη Φόρμα μαθημάτων και αυτό που έφτιαξες με τον Τύπο Μαθήματος, την Κατηγορία και το Κεφάλαιο είναι αυτό ακριβώς που θέλω, αλλά δε μπορώ να το μεταφέρω στη κανονική βάση (αυτή που σου στέλνω είναι κουτσουρεμένη λόγω μεγέθους). 1. Δεν καταλαβαίνω τι βλέπεις αλλά η φωτογραφία που επισυνάπτω κάνει αυτό που θέλεις. Η φόρμα ενημερώνει τον πίνακα 2. Πρέπει να φτιάξεις την βάση σου, αν έστείλες "κουτσουρεμένη" βάση αλλά μέρος της. δηλ. έτσι χωρίς κλειδιά ή με κλειδιά συνδέσεων διαφορετικού τύπου, τότε είναι λάθος η βάση π.χ. έστειλες βάση στην οποία ο πίνακας τύπος μαθήματος έχει το πεδίο τύπου αριθμός και οι πίνακες κεφαλαία θεωρίας ή πρακτικής έχουν πεδίο σύνδεσης αλφαριθμητικό. Για αυτό το έφτιαξα, αλλιώς δεν υπάρχει περίπτωση να πάρεις αυτό που θέλεις. 3. Για τις Ώρες. Σου έστειλα μία function που μετρατέπει αριθμό σε διάφορες μορφές ωρών ή ημερών και ωρών. Μελέτησε το και θα καταλάβεις, Η Access δεν έχει ενσωματωμένη function για τέτοιες καταστάσεις. Αν έχεις χρόνο ή διάθεση φτιάξε μια βάση που να είναι εντάξει και δημισιευσέ την. Θα Βοηθήσουμε. Τελευταία επεξεργασία από το χρήστη ασχετος : 28-05-13 στις 15:54. |
|
#10
| |||
| |||
|
Κώστα το έφτιαξα όπως μου είπες και είναι ολόκληρο. Κοίτα αν μπορείς να κάνεις αυτά που σου έγραψα και στα προηγούμενα post (με τις εικόνες). Σου επισυνάπτω ένα excel με το πως πρέπει να είναι ή φόρμα μαθημάτων (έχει σε κάποια κελιά συναρτήσεις. θα δεις) Επίσης κοίτα αν γίνεται το όνομα, το επώνυμο και το πατρώνυμο να μπαίνει στην "Αίτηση εκτύπωσης άδειας οδήγησης" θα τη βρεις στο YME.gr Εδώ χρησιμοποιούμε το όνομα, το επώνυμο και το πατρώνυμο κάθε γράμμα σε κάθε κουτάκι. Τέλος μια διευκρίνιση, εγώ για φωτογραφία σε κάθε πελάτη χρησιμοποιώ το συνημμένο. Υπάρχει κάτι άλλο που μπορούμε να κάνουμε για να μην γίνεται βαριά η βάση? Ευχαριστώ για το χρόνο σου!!! |
![]() |
« Προηγούμενο Θέμα
|
Επόμενο Θέμα »
| |
| ||||
| Θέμα | Δημιουργός | Forum | Απαντήσεις | Τελευταίο Μήνυμα |
| [ Πίνακες ] Ενημέρωση πίνακα από φόρμα | caudillo | Access - Ερωτήσεις / Απαντήσεις | 4 | 21-07-15 22:41 |
| Αθροίσματα σε φόρμα και ενημέρωση πεδίου σε πίνακα. | steliosgr | Access - Ερωτήσεις / Απαντήσεις | 1 | 23-03-14 10:07 |
| [ Φόρμες ] Ενημέρωση Πίνακα που δεν σχετίζεται με την φόρμα | stelianta | Access - Ερωτήσεις / Απαντήσεις | 4 | 20-02-12 11:51 |
| [ Φόρμες ] Ενημέρωση Πίνακα από Φόρμα | marpapa | Access - Ερωτήσεις / Απαντήσεις | 5 | 12-09-11 21:58 |
| Ενημέρωση πίνακα απο μη συνδεδεμένη φόρμα | Meteora | Access - Ερωτήσεις / Απαντήσεις | 1 | 04-03-09 07:34 |
Η ώρα είναι 04:49.



Υβριδικός τρόπος

