Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια! |
| Εργαλεία Θεμάτων | Τρόποι εμφάνισης |
#1
| |||
| |||
Έκθεση με παραμέτρους.
Καλησπέρα σας. Συγχαρητήρια για την πολύ καλή δουλειά που κάνετε σε όλους εδώ μέσα. Προσπαθώ να φτιάξω στην access το παρακάτω: Έχουμε μια μεταφορική εταιρεία που θέλει να καταχωρεί όταν ένας οδηγός έχει κάνει ένα δρομολόγιο και κάνει να λάβει χρήματα από την εταιρεία ως χρέωση και όταν πληρώνεται από την εταιρεία σαν πίστωση. Αυτό φαίνεται στις "κινήσεις οδηγών" που έχω γράψει. Αυτό που θέλω είναι: 1ον: Μια φόρμα με παραμέτρους: "ΟΔΗΓΟ" "ΕΥΡΟΣ ΗΜΕΡΟΜΗΝΙΑΣ" "ΧΡΕΩΣΗ / ΠΙΣΤΩΣΗ" και όταν επιλέγω τα κριτήρια να μου εμφανίζεται η έκθεση. 2ον: Να μου εμφανίζεται ένα συνολικό ποσό στην έκθεση το οποίο να είναι το αποτέλεσμα ΧΡΕΩΣΗ-ΠΙΣΤΩΣΗ. Επίσης θα ήθελα αν γίνεται το χρέωση / πίστωση να μου εμφανίζεται σε 2 στήλες. Στο "νεο δρομολογιο" θέλω να κάνω το ίδιο απλά αν με βοηθήσει κάποιος στις κινήσεις θα το κάνω μετά και στο άλλο. Απ' ότι κατάλαβα πρέπει να φτιάξω ένα ερώτημα με κριτήρια και η έκθεση να παίρνει τα στοιχεία της από εκείνο το ερώτημα όμως δεν τα κατάφερα με ένα άλλο παράδειγμα που βρήκα εδώ μέσα. Ευχαριστώ πάρα πολύ προαιρετικά. Keep up the good work. :) :) Ζαχαρίας. Τελευταία επεξεργασία από το χρήστη Hayate : 22-11-12 στις 10:24. |
#2
| |||
| |||
φίλε Ζαχαρία θα σου πρότεινα να καταργήσεις το συνημμένο και να το επαναφέρεις ΧΩΡΙΣ γνησία στοιχεία. Αν είναι ορθά! (IBAN) κτλ. αν κατάλαβα λάθος συγνώμη. Ευχαριστώ. |
#3
| |||
| |||
Είναι εντελώς τυχαία... Τώρα τι να σου πώ αν πέτυχα σωστά στοιχεία πάω για τζόκερ.. |
#4
| |||
| |||
Την καλημέρα μου στο forum. Ζαχαρία, σου στέλνω πίσω την Βάση με κάποιες αλλαγές. θέλω να κοιτάξεις τις κινήσεις οδηγών και το νέο δρομολόγιο κοίτα αν σου κάνει |
#5
| |||
| |||
Παράθεση:
ας πάει στην φόρμα frm_truckroute σε προβολή σχεδίασης και στο φύλλο ιδιοτήτων στο tab συμβάν του πεδίου notes να αντικαταστάση τον κώδικα με τον παρακάτω Κώδικας: On Error Resume Next Dim sql As String Dim squ As String Dim dcs As String Dim dt As Date Dim x As String Dim dl As Variant dl = DLookup("[fkidtruckroute]", "tbl_Transaction", "[fkidtruckroute]=" & Me.idtruckroute & _ "AND [fkidodigoutrans]=" & Me.fkidodigou) If IsNull(Me.dateend) Then dt = DateAdd("d", 1, Me.datestart) Else dt = Me.dateend End If x = "0" dcs = IIf(IsNull(Str(Me.datestart)), "Δρομολόγιο από χωρίς ημερομηνία ", "Δρομολόγιο από " & Str(Me.datestart)) & " έως και " & _ IIf(IsNull(Str(dt)), " Δρομολόγιο έως χωρίς ημερομηνία ", Str(dt)) & _ IIf(IsNull(Me.trucknum), " χωρίς αριθμό "," με τον τράκτορα" & Me.trucknum) & _ " με σημείωση " & IIf(IsNull(Me.notes), "@", Me.notes) sql = "INSERT INTO tbl_Transaction (fkidodigoutrans, fkidtruckroute, datetrans, dscr, xp, amount)" & _ "SELECT tbl_TruckRoute.fkidodigou," & _ " tbl_TruckRoute.idtruckroute," & _ " tbl_TruckRoute.datestart,'" & dcs & "'," & x & "," & _ " tbl_TruckRoute.totalmoney" & _ " FROM tbl_TruckRoute" & _ " WHERE tbl_TruckRoute.idtruckroute=" & Me.idtruckroute & _ " AND tbl_TruckRoute.fkidodigou=" & Me.fkidodigou squ = "UPDATE tbl_Transaction" & _ " SET tbl_Transaction.datetrans =#" & Me.datestart & "#," & _ " tbl_Transaction.dscr ='" & dcs & "'," & _ " tbl_Transaction.xp ='" & x & "'," & _ " tbl_Transaction.amount =" & Me.totalmoney & _ " WHERE tbl_Transaction.fkidodigoutrans=" & Me.fkidodigou & _ " AND tbl_Transaction.fkidtruckroute=" & Me.idtruckroute If IsNull(dl) Then CurrentDb.Execute sql Else CurrentDb.Execute squ End If |
#6
| |||
| |||
Φίλε Κώστα σ' ευχαριστώ πάρα πολύ για την δουλειά και τον χρόνο που διέθεσες. Γενικά θα ήθελα κάτι πιο απλό, ένα κουμπάκι να διαλέγω είτε ημερομηνίες, είτε οδηγό, είτε χρέωση / πίστωση και να μου εμφανίζει τα αποτελέσματα. Για μια ακόμη φορά σε ευχαριστώ και περιμένω και μια απάντηση γι αυτά που σου έστειλα. Για όποιον είδε αυτό που έκανε ο ασχετος να πω ότι θέλω 2 διαφορετικές εκθέσεις. Η μία είναι με τις πληρωμές των οδηγών όπου θέλω να γίνεται η πράξη μεταξύ χρέωσης και πίστωσης που είπα παραπάνω και η άλλη είναι με τα δρομολόγια που δεν θέλω αθροιστική πράξη. Κάθε δρομολόγιο είναι ξεχωριστό. Τελευταία επεξεργασία από το χρήστη Hayate : 22-11-12 στις 11:54. |
#7
| |||
| |||
Καλό μεσημέρι στο Forum. Ζαχαρία, κοίτα την Βάση. Είναι με το δικό σου mainform. Πραγματικά δεν καταλαβαίνω τι θέλεις να κάνεις. Λογικά έτσι όπως τόχεις δομημένο,πάντα με αυτό που έστειλες, το νέο δρομολόγιο είναι χρέωση και η πληρωμή πίστωση. Αν θέλεις κάτι άλλο, για να βοηθήσουμε, γίνε πιο συγκεκριμένος. |
#8
| |||
| |||
Παράθεση:
Οι κινήσεις οδηγών που γράφω και τα νέα δρομολόγια είναι 2 εντελώς διαφορετικά πράγματα. Όταν πας σε μια κίνηση οδηγού περνάς μια καταχώρηση για κάτι που έκανε αυτός για εσένα και σε έχει χρεώσει η αν εσύ τον πλήρωσες για κάτι. Αντίστοιχα χρέωση / πίστωση. Οπότε θέλω μια έκθεση όπως πολύ σωστά έφτιαξες που να δείχνει αθροιστικά την διαφορά που έχουμε με τον οδηγό για να ξέρω τι του χρωστάω. Πάμε στο νέο δρομολόγιο τώρα. Εκεί για κάθε καινούριο δρομολόγιο υπάρχει ένα αρχικό ποσό, ακολούθως υπάρχουν κάποια έξοδα και μένει ένα τελικό ποσό. Αν ρίξεις μια ματιά στην αρχική μου φόρμα θα το καταλάβεις. Εκεί απλά θέλω να γνωρίζω αυτά τα ποσά για κάθε δρομολόγιο. Δεν θέλω κάποιο άθροισμα μεταξύ των δρομολογίων. Χρειάζομαι μια διαφορετική έκθεση εκεί με παράμετρο τον οδηγό και την ημερομηνία πάλι. Αυτά λοιπόν τα 2 δεν έχουν σχέση μεταξύ τους. Για να το καταλάβεις πιο απλά στο ένα έχουμε να κάνουμε με τον οδηγό στο άλλο είναι λεφτά του αυτοκινήτου. Επίσης έτσι όπως το άλλαξες δεν μπορώ να κάνω καινούρια καταχώρηση τώρα. Όπως το είχες πριν μπορούσα με μια μικρή τροποποίηση να χρησιμοποιήσω και την δική μου φόρμα απλά γράφανε στους παλιούς πίνακες. Εγώ θέλω ένα κουμπί στην κεντρική φόρμα να κάνει καταχώρηση στις κινήσεις, ένα στο δρομολόγιο και αντίστοιχα 2 κουμπιά για τις εκθέσεις. Ελπίζω να έγινα κατανοητός ξέρω ότι έχω γίνει αρκετά κουραστικός. Χίλια ευχαριστώ και πάλι για τον χρόνο σου. |
#9
| |||
| |||
Ζαχαρία, Απέσυρα τις πετρατοπές που έφτιαξα. Τώρα έχεις την mainform την δική σου και τους πίνακες σου. Στις κινήσεις, στο νέο δρομολόγιο έχω από ένα κουμπι για τα reports. Ελπίζω να σου κάνει. |
#10
| |||
| |||
Παράθεση:
Αυτά που μου έχεις στείλει είναι αρκετά καλά. Πιστεύω να τα καταφέρω με τους δικούς μου πίνακες αν και δεν έχω βάλει id πεδία όπως είχες κάνει εσύ. Δεν μπορώ όμως να κάνω καταχώρηση τώρα, το φτιάχνω αυτό μην σε απασχολεί. Ένα άλλο θέμα αν βάλω 20/10/2012 έως 22/11/2012. Ο έλεγχος πετάει σφάλμα. Μπορείς να μου κάνεις μια ελαφριά μετατροπή σε αυτό που έχεις φτιάξει να έχω την επιλογή να διαλέξω μόνο τον οδηγό και να πατήσω οκ ή μόνο την ημερομηνία;; και αν μπορείς βγάλε μου αυτά τα 2 κουμπιά των εκθέσεων στην κεντρική φόρμα. Τσέκαρε επίσης το PM σου γι αυτό που σου είπα για τα δεδομένα. Κώστα σ' ευχαριστώ πάρα πολύ. Είτε το τελειώσεις είτε όχι έκανες πάρα πολύ δουλειά για μένα. Δεν ξέρω πως να σ' ευχαριστήσω. Να 'σαι καλά!! Χίλια ευχαριστώ.. |
Ετικέτες |
φόρμες |
« Προηγούμενο Θέμα
|
Επόμενο Θέμα »
| |
Παρόμοια Θέματα | ||||
Θέμα | Δημιουργός | Forum | Απαντήσεις | Τελευταίο Μήνυμα |
[ Εκθέσεις ] checkbox σε έκθεση | kosta | Access - Ερωτήσεις / Απαντήσεις | 4 | 05-04-14 12:19 |
[Γράφημα] Δημιουργία γραφήματων κουκίδων με 3 παραμέτρους | Βασίλης Καραχάλιος | Excel - Ερωτήσεις / Απαντήσεις | 7 | 02-12-12 22:11 |
Έκθεση σε pdf | Χρήστος | Access - Ερωτήσεις / Απαντήσεις | 0 | 07-03-12 20:11 |
Φ.Π.Α. 23% σε έκθεση | tzvangel | Access - Ερωτήσεις / Απαντήσεις | 2 | 30-09-11 20:36 |
[ Εκθέσεις ] Φίλτρο σε Έκθεση | ΤΖΙΜΗΣ | Access - Ερωτήσεις / Απαντήσεις | 5 | 24-07-11 15:55 |
Η ώρα είναι 20:19.