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

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

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

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 15-05-13, 23:57
Όνομα: Κώστας
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 22-01-2012
Περιοχή: Πειραιάς
Μηνύματα: 181
Προεπιλογή

Την καλημέρα μου στο 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
Αν το πεδίο [Ημερομηνία_λήξης_διπλώματο ς] είναι κενό (πργαγματικά κενό και όχι να έχει spaces) τότε τ'οτε το πεδίο [cbo_end_dpl] ότι τιμή και να του δώσεις θα πάρει τιμή null

Αν το πεδίο [cbo_end_dpl] είναι κενό τότε δεν θα γίνει τίποτα αλλιώς θα προσθέση στην ημερομηνία την επιλογή σου.

Για το 2
αυτήν την ώρα που σου γράφω έχω την βάση που έστειλα και τρέχει μια χαρά.
Πρόσεξε αν τυχόν και μεταφέρεις τον κώδικα στα ονόματα των πεδίων.

Για το 3
φτιάξτε την φόρμα και στείλε δείγμα.


ΣΟΥ ΣΤΕΛΝΩ ΔΕΙΓΜΑ

Σημείωση:
[B]Ήμαρτον με τα ελληνικά ονόματα στα πεδία και μάλιστα με κενά... ΗΜΑΡΤΟΝ[/B
]
Συνημμένα Αρχεία
Τύπος Αρχείου: zip Σχολή kellisg.zip (253,5 KB, 40 εμφανίσεις)
Απάντηση με παράθεση
  #2  
Παλιά 16-05-13, 22:04
Όνομα: Βαγγέλης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 08-05-2013
Μηνύματα: 62
Προεπιλογή

Παράθεση:
Αρχική Δημοσίευση από ασχετος Εμφάνιση μηνυμάτων

Για το 2
αυτήν την ώρα που σου γράφω έχω την βάση που έστειλα και τρέχει μια χαρά.
Πρόσεξε αν τυχόν και μεταφέρεις τον κώδικα στα ονόματα των πεδίων.

Για το 3
φτιάξτε την φόρμα και στείλε δείγμα.


ΣΟΥ ΣΤΕΛΝΩ ΔΕΙΓΜΑ

Σημείωση:
[B]Ήμαρτον με τα ελληνικά ονόματα στα πεδία και μάλιστα με κενά... ΗΜΑΡΤΟΝ[/B
]
Για το 1 θέλω στην ημερομηνία λήξης να προσθέτω κατα το δοκούν το 1,3,5,15 κτλ δεν υπάρχει ακριβής κανόνας. Απλά μετά θέλω να ενημερώνεται το αντίστοιχο πεδίο στον πίνακα Διπλώματα όπου ανήκει!!

Κώστα για το 2 είδα στο παράδειγμα που έστειλες και όντως δουλεύει όπως θέλω. Θα το μεταφέρω στο κανονικό και θα δω. Ελπίζω να μην αντιμετωπίσω πρόβλημα.

Για το 3 υπάρχει ήδη η φόρμα Μαθημάτων στα αριστερά που δείχνει όλα τα αντικείμενα. Έτσι θέλω να είναι απλά θα την βάλω ως υποφόρμα στη φόρμα Διπλωμάτων.

Για τα ελληνικά φίλε τα χρησιμοποίησα αλλά κατάλαβα "αργά" ότι ήταν λάθος ιδέα...

Ευχαριστώ πολύ για το 2.
Απάντηση με παράθεση
  #3  
Παλιά 18-05-13, 20:38
Όνομα: Κώστας
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 22-01-2012
Περιοχή: Πειραιάς
Μηνύματα: 181
Προεπιλογή

Την καλησπέρα μου στο forum.

Βαγγέλη,
κοίτα το συνημμένο αρχείο.

1. Στον πίνακα μαθημάτων έκανα το πεδίο "΄Ωρες" τύπου αριθμό,
στην φόρμα πρόσθεσα ένα txt πεδίο και με την function ValueToTime
εμφανίζει την διαφορά ώρας.
2. Τα κεφάλαια τα έφτιαξα σε ένα πίνακα, θεωρία και πρακτικά
τώρα με βάση τις επιλογές σου εμφανίζονται τα αντίστοιχα

Αν έχω ξεχάσει κάτι πες το
Συνημμένα Αρχεία
Τύπος Αρχείου: zip Σχολή kellisg.zip (264,8 KB, 56 εμφανίσεις)
Απάντηση με παράθεση
  #4  
Παλιά 23-05-13, 16:00
Όνομα: Βαγγέλης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 08-05-2013
Μηνύματα: 62
Προεπιλογή

Πως μπορω να ενημερωσω ενα κελι ενος πινακα απο ενα πλαισιο κειμενου το οποιο δινει αποτελεσμα μονο του (κανει πραξη σε σχεσημε ενα αλλο κελι π.χ. Σε μια φορμα σε ενα πλαισιο κειμενου δινω τιμη 5€, σε ενα δευτερο πλαισιο κειμενου δινω το φπα 23% και σε ενα τριτο πλαισιο κειμενου υπολογιζεται το συνολικο ποσο.) Πως γινεται το τριτο πλαισιο κειμενου να ενημερωνει τον πινακα;;
Ευχαριστω
Απάντηση με παράθεση
  #5  
Παλιά 24-05-13, 17:15
Όνομα: Κώστας
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 22-01-2012
Περιοχή: Πειραιάς
Μηνύματα: 181
Προεπιλογή

Παράθεση:
Αρχική Δημοσίευση από kellis Εμφάνιση μηνυμάτων
Πως μπορω να ενημερωσω ενα κελι ενος πινακα απο ενα πλαισιο κειμενου το οποιο δινει αποτελεσμα μονο του (κανει πραξη σε σχεσημε ενα αλλο κελι π.χ. Σε μια φορμα σε ενα πλαισιο κειμενου δινω τιμη 5€, σε ενα δευτερο πλαισιο κειμενου δινω το φπα 23% και σε ενα τριτο πλαισιο κειμενου υπολογιζεται το συνολικο ποσο.) Πως γινεται το τριτο πλαισιο κειμενου να ενημερωνει τον πινακα;;
Ευχαριστω
Καλό απόγευμα στο forum
Βαγγέλη,

1. τα πεδία της φόρμας δεν ανήκουν στον πίνακα;
2. αν ανήκουν, όπως καταλαβαίνεις γράφουν στον πίνακα. αν δεν ανήκουν τι θέλςεις να κάνουν, στον πίνακα και σε ποιόν πίνακα, update ή insert

Το καλύτερο είναι να δημοσιεύσεις μια test database
Απάντηση με παράθεση
  #6  
Παλιά 26-05-13, 18:02
Όνομα: Βαγγέλης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 08-05-2013
Μηνύματα: 62
Προεπιλογή

Κώστα καλησπέρα σε εσένα και το forum,

Παράθεση:
Αρχική Δημοσίευση από ασχετος Εμφάνιση μηνυμάτων
Την καλησπέρα μου στο forum.
Βαγγέλη,
κοίτα το συνημμένο αρχείο.
1. Στον πίνακα μαθημάτων έκανα το πεδίο "΄Ωρες" τύπου αριθμό, στην φόρμα πρόσθεσα ένα txt πεδίο και με την function ValueToTime εμφανίζει την διαφορά ώρας.
2. Τα κεφάλαια τα έφτιαξα σε ένα πίνακα, θεωρία και πρακτικά
τώρα με βάση τις επιλογές σου εμφανίζονται τα αντίστοιχα
Αν έχω ξεχάσει κάτι πες το
καταρχήν φαίνεται να δουλεύει έτσι όπως θέλω. Δεν είχα πολύ χρόνο να το δω λεπτομερώς. Θα το κοιτάξω με προσοχή και θα σου πω αν είναι κάτι. Αλλά να προσθέσω κάτι εδώ… κοίτα το σχέδιο 1 για να καταλάβεις τι θέλω να κάνω

Παράθεση:
Αρχική Δημοσίευση από ασχετος Εμφάνιση μηνυμάτων
Καλό απόγευμα στο forum
Βαγγέλη,
1. τα πεδία της φόρμας δεν ανήκουν στον πίνακα;
2. αν ανήκουν, όπως καταλαβαίνεις γράφουν στον πίνακα. αν δεν ανήκουν τι θέλςεις να κάνουν, στον πίνακα και σε ποιόν πίνακα, update ή insert
Το καλύτερο είναι να δημοσιεύσεις μια test database
Το έχω δημοσιεύσει ήδη.
Στη Φόρμα Διπλωμάτων στη καρτέλα Στοιχεία Διπλώματος υπάρχει πεδίο:
1) Ημερομηνία έκδοσης Διπλώματος και
2) Ημερομηνία λήξης Διπλώματος.
Τη Ημερομηνία έκδοσης Διπλώματος τη γράφω εγώ το Ημερομηνία λήξης Διπλώματος
συμπληρώνεται μόνο του (+ 5 έτη πχ). Θέλω λοιπόν το δεύτερο πεδίο να ενημερώνει το
αντίστοιχο πεδίο στον Πίνακα Διπλώματα.
Όσον αφορά την Ημερομηνία λήξης Διπλώματος που είχαμε πει την προηγούμενη φορά, θέλω πατώντας ένα κουμπί να προσθέτει τα ανάλογα χρόνια (1,3,5,15). Σε αυτό που μου έστειλες αν πχ Ημερομηνία έκδοσης Διπλώματος είναι 24/5/2013 και επιλέξω 1 προσθέτει 1, αν μετά το αλλάξω σε 3 προσθέτει 3 στο προηγούμενο και όχι στο αρχικό.
κοίτα το σχέδιο 2,3 για να καταλάβεις τι θέλω να κάνω

Επίσης…

Έκανα αντιγραφή του κώδικα που μου έστειλες για την εκτύπωση αλλά βγάζει 2 αντίγραφα του συγκεκριμένου παραστατικού, ενώ θέλω 1!!!! Φτιάχνεται;

Και..

Θέλω να αθροίσω όλα τα Αρχική Αξία, Έκπτωση, Καθαρή Αξία, ΦΠΑ, Τελική Αξία από τη φόρμα Αποδείξεων
Την Αρχική Αξία την έκανα με πλαίσιο κειμένου και τη συνάρτηση: =Άθροισμα([Αξία 1]+[Αξία 2]+[Αξία 3]+[Αξία 4]) και δουλεύει μια χαρά. Αν όμως κάνω το ίδιο αλλά με αυτή τη συνάρτηση: =Άθροισμα([Αρχική Αξία]) μου βγάζει σφάλμα. Είναι λόγω του ότι το Αρχική Αξία είναι πεδίο που υπολογίζεται; Και πως μπορούμε να το ξεπεράσουμε;
κοίτα το σχέδιο 4 για να καταλάβεις τι θέλω να κάνω

Ευχαριστώ!!!!!!!
Συνημμένα Αρχεία
Τύπος Αρχείου: zip Επιφάνεια εργασίας.zip (217,7 KB, 43 εμφανίσεις)
Απάντηση με παράθεση
  #7  
Παλιά 27-05-13, 23:43
Όνομα: Κώστας
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 22-01-2012
Περιοχή: Πειραιάς
Μηνύματα: 181
Προεπιλογή

την καλημέρα μου στο forum.

Βαγγέλη μου γράφεις:
Τη Ημερομηνία έκδοσης Διπλώματος τη γράφω εγώ το Ημερομηνία λήξης Διπλώματος
συμπληρώνεται μόνο του (+ 5 έτη πχ). Θέλω λοιπόν το δεύτερο πεδίο να ενημερώνει το
αντίστοιχο πεδίο στον Πίνακα Διπλώματα.


Μα η Ημερομηνία λήξης Διπλώματος είναι πεδίο του πίνακα τουλάχιστον στην DB που δημοσίευσες.

Στην φόρμα Διπλωμάτων στο tab Στοιχεία Δπλωμάτων τπ πρδίο Ημερομηνία λήξης Διπλώματος είναι πεδίο του πίνακα.
Αγου λοιπόν είναι πεδίο του πίνακα έστβ ότι έχει ημερομηνία 13/05/2013 και του προσθέσεις 1 χρόνο, τότε θα γίνει update και θα δείχνει 13/05/2014. Η προηγουμένη τιμή δηλ. 13/05/2103 μετά την ενημέρωση δεν υπάρχει.

Μήπως θέλεις κάτι άλλο, πραγματικά δεν καταλαβαίνω.
Απάντηση με παράθεση
  #8  
Παλιά 28-05-13, 00:38
Όνομα: Βαγγέλης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 08-05-2013
Μηνύματα: 62
Προεπιλογή

Παράθεση:
Αρχική Δημοσίευση από ασχετος Εμφάνιση μηνυμάτων
την καλημέρα μου στο forum.

Βαγγέλη μου γράφεις:
Τη Ημερομηνία έκδοσης Διπλώματος τη γράφω εγώ το Ημερομηνία λήξης Διπλώματος
συμπληρώνεται μόνο του (+ 5 έτη πχ). Θέλω λοιπόν το δεύτερο πεδίο να ενημερώνει το
αντίστοιχο πεδίο στον Πίνακα Διπλώματα.


Μα η Ημερομηνία λήξης Διπλώματος είναι πεδίο του πίνακα τουλάχιστον στην DB που δημοσίευσες.

Στην φόρμα Διπλωμάτων στο tab Στοιχεία Δπλωμάτων τπ πρδίο Ημερομηνία λήξης Διπλώματος είναι πεδίο του πίνακα.
Αγου λοιπόν είναι πεδίο του πίνακα έστβ ότι έχει ημερομηνία 13/05/2013 και του προσθέσεις 1 χρόνο, τότε θα γίνει update και θα δείχνει 13/05/2014. Η προηγουμένη τιμή δηλ. 13/05/2103 μετά την ενημέρωση δεν υπάρχει.

Μήπως θέλεις κάτι άλλο, πραγματικά δεν καταλαβαίνω.
Κώστα στη Φόρμα ενημερώνεται και φαίνεται κανονικά όπως λες. Στον πίνακα όμως μέσα στην αντίστοιχη στήλη δεν το γράφει!
Εκεί θέλω να κάνει ενημέρωση.

Όσον αφορά τη Φόρμα μαθημάτων και αυτό που έφτιαξες με τον Τύπο Μαθήματος, την Κατηγορία και το Κεφάλαιο είναι αυτό ακριβώς που θέλω, αλλά δε μπορώ να το μεταφέρω στη κανονική βάση (αυτή που σου στέλνω είναι κουτσουρεμένη λόγω μεγέθους).

Πιστεύω οι φωτόγραφίες που έστειλα να είναι κατατοπιστικές για αυτό που θέλω.
Απάντηση με παράθεση
  #9  
Παλιά 28-05-13, 15:00
Όνομα: Κώστας
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 22-01-2012
Περιοχή: Πειραιάς
Μηνύματα: 181
Προεπιλογή

Καλό μεσημέρι στο forum.

Βαγγέλη,μου γράφεις :
1 Κώστα στη Φόρμα ενημερώνεται και φαίνεται κανονικά όπως λες. Στον πίνακα όμως μέσα στην αντίστοιχη στήλη δεν το γράφει!
Εκεί θέλω να κάνει ενημέρωση.
ΚΑΙ
2 Όσον αφορά τη Φόρμα μαθημάτων και αυτό που έφτιαξες με τον Τύπο Μαθήματος, την Κατηγορία και το Κεφάλαιο είναι αυτό ακριβώς που θέλω, αλλά δε μπορώ να το μεταφέρω στη κανονική βάση (αυτή που σου στέλνω είναι κουτσουρεμένη λόγω μεγέθους).

1. Δεν καταλαβαίνω τι βλέπεις αλλά η φωτογραφία που επισυνάπτω
κάνει αυτό που θέλεις. Η φόρμα ενημερώνει τον πίνακα

2. Πρέπει να φτιάξεις την βάση σου, αν έστείλες "κουτσουρεμένη" βάση αλλά μέρος της. δηλ. έτσι χωρίς κλειδιά ή με κλειδιά συνδέσεων διαφορετικού τύπου, τότε είναι λάθος η βάση π.χ. έστειλες βάση στην οποία ο πίνακας τύπος μαθήματος έχει το πεδίο τύπου αριθμός και οι πίνακες κεφαλαία θεωρίας ή πρακτικής έχουν πεδίο σύνδεσης αλφαριθμητικό. Για αυτό το έφτιαξα, αλλιώς δεν υπάρχει περίπτωση να πάρεις αυτό που θέλεις.

3. Για τις Ώρες. Σου έστειλα μία function που μετρατέπει αριθμό σε διάφορες μορφές ωρών ή ημερών και ωρών. Μελέτησε το και θα καταλάβεις, Η Access δεν έχει ενσωματωμένη function για τέτοιες καταστάσεις.

Αν έχεις χρόνο ή διάθεση φτιάξε μια βάση που να είναι εντάξει και δημισιευσέ την. Θα Βοηθήσουμε.
Συνημένες Εικόνες
Τύπος Αρχείου: jpg Διαχείρηση Διπλωμάτων.jpg (64,3 KB, 15 εμφανίσεις)

Τελευταία επεξεργασία από το χρήστη ασχετος : 28-05-13 στις 15:54.
Απάντηση με παράθεση
  #10  
Παλιά 30-05-13, 22:20
Όνομα: Βαγγέλης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 08-05-2013
Μηνύματα: 62
Προεπιλογή

Κώστα το έφτιαξα όπως μου είπες και είναι ολόκληρο.

Κοίτα αν μπορείς να κάνεις αυτά που σου έγραψα και στα προηγούμενα post (με τις εικόνες).
Σου επισυνάπτω ένα excel με το πως πρέπει να είναι ή φόρμα μαθημάτων (έχει σε κάποια κελιά συναρτήσεις. θα δεις)
Επίσης κοίτα αν γίνεται το όνομα, το επώνυμο και το πατρώνυμο να μπαίνει στην "Αίτηση εκτύπωσης άδειας οδήγησης" θα τη βρεις στο
YME.gr
Εδώ χρησιμοποιούμε το όνομα, το επώνυμο και το πατρώνυμο κάθε γράμμα σε κάθε κουτάκι.

Τέλος μια διευκρίνιση, εγώ για φωτογραφία σε κάθε πελάτη χρησιμοποιώ το συνημμένο.
Υπάρχει κάτι άλλο που μπορούμε να κάνουμε για να μην γίνεται βαριά η βάση?
Ευχαριστώ για το χρόνο σου!!!
Συνημμένα Αρχεία
Τύπος Αρχείου: xlsx Συγκεντρωτική Μαθημάτων!!.xlsx (14,2 KB, 14 εμφανίσεις)
Τύπος Αρχείου: zip Σχολή Οδηγών.zip (302,1 KB, 15 εμφανίσεις)
Απάντηση με παράθεση
Απάντηση στο θέμα


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

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


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

Θέμα Δημιουργός 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.