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

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

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

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 20-11-12, 13:42
Όνομα: Ζαχαρίας
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 15-11-2012
Περιοχή: Ηράκλειο, Κρήτης
Μηνύματα: 13
Προεπιλογή Έκθεση με παραμέτρους.

Καλησπέρα σας. Συγχαρητήρια για την πολύ καλή δουλειά που κάνετε σε όλους εδώ μέσα.
Προσπαθώ να φτιάξω στην access το παρακάτω: Έχουμε μια μεταφορική εταιρεία που θέλει να καταχωρεί όταν ένας οδηγός έχει κάνει ένα δρομολόγιο και κάνει να λάβει χρήματα από την εταιρεία ως χρέωση και όταν πληρώνεται από την εταιρεία σαν πίστωση. Αυτό φαίνεται στις "κινήσεις οδηγών" που έχω γράψει. Αυτό που θέλω είναι:

1ον: Μια φόρμα με παραμέτρους:
"ΟΔΗΓΟ"
"ΕΥΡΟΣ ΗΜΕΡΟΜΗΝΙΑΣ"
"ΧΡΕΩΣΗ / ΠΙΣΤΩΣΗ"
και όταν επιλέγω τα κριτήρια να μου εμφανίζεται η έκθεση.
2ον: Να μου εμφανίζεται ένα συνολικό ποσό στην έκθεση το οποίο να είναι το αποτέλεσμα
ΧΡΕΩΣΗ-ΠΙΣΤΩΣΗ.

Επίσης θα ήθελα αν γίνεται το χρέωση / πίστωση να μου εμφανίζεται σε 2 στήλες.

Στο "νεο δρομολογιο" θέλω να κάνω το ίδιο απλά αν με βοηθήσει κάποιος στις κινήσεις θα το κάνω μετά και στο άλλο.
Απ' ότι κατάλαβα πρέπει να φτιάξω ένα ερώτημα με κριτήρια και η έκθεση να παίρνει τα στοιχεία της από εκείνο το ερώτημα όμως δεν τα κατάφερα με ένα άλλο παράδειγμα που βρήκα εδώ μέσα.

Ευχαριστώ πάρα πολύ προαιρετικά.

Keep up the good work. :) :)
Ζαχαρίας.
Συνημμένα Αρχεία
Τύπος Αρχείου: zip odigoi_copy.zip (162,2 KB, 31 εμφανίσεις)

Τελευταία επεξεργασία από το χρήστη Hayate : 22-11-12 στις 10:24.
Απάντηση με παράθεση
  #2  
Παλιά 20-11-12, 23:36
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 02-08-2011
Περιοχή: Μουρνιές Χανίων
Μηνύματα: 33
Προεπιλογή

φίλε Ζαχαρία θα σου πρότεινα να καταργήσεις το συνημμένο και να το επαναφέρεις
ΧΩΡΙΣ γνησία στοιχεία.
Αν είναι ορθά! (IBAN) κτλ. αν κατάλαβα λάθος συγνώμη.

Ευχαριστώ.
Απάντηση με παράθεση
  #3  
Παλιά 21-11-12, 00:36
Όνομα: Ζαχαρίας
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 15-11-2012
Περιοχή: Ηράκλειο, Κρήτης
Μηνύματα: 13
Προεπιλογή

Παράθεση:
Αρχική Δημοσίευση από dratsaki Εμφάνιση μηνυμάτων
φίλε Ζαχαρία θα σου πρότεινα να καταργήσεις το συνημμένο και να το επαναφέρεις
ΧΩΡΙΣ γνησία στοιχεία.
Αν είναι ορθά! (IBAN) κτλ. αν κατάλαβα λάθος συγνώμη.

Ευχαριστώ.
Είναι εντελώς τυχαία... Τώρα τι να σου πώ αν πέτυχα σωστά στοιχεία πάω για τζόκερ..
Απάντηση με παράθεση
  #4  
Παλιά 21-11-12, 11:43
Όνομα: Κώστας
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 22-01-2012
Περιοχή: Πειραιάς
Μηνύματα: 181
Προεπιλογή

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

Ζαχαρία,

σου στέλνω πίσω την Βάση με κάποιες αλλαγές.
θέλω να κοιτάξεις τις κινήσεις οδηγών και το νέο δρομολόγιο

κοίτα αν σου κάνει
Συνημμένα Αρχεία
Τύπος Αρχείου: zip odigoi_copy.zip (438,4 KB, 37 εμφανίσεις)
Απάντηση με παράθεση
  #5  
Παλιά 21-11-12, 14:44
Όνομα: Κώστας
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 22-01-2012
Περιοχή: Πειραιάς
Μηνύματα: 181
Προεπιλογή

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

Ζαχαρία,

σου στέλνω πίσω την Βάση με κάποιες αλλαγές.
θέλω να κοιτάξεις τις κινήσεις οδηγών και το νέο δρομολόγιο

κοίτα αν σου κάνει
όποιος κατέβασε την βάση
ας πάει στην φόρμα 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  
Παλιά 22-11-12, 11:41
Όνομα: Ζαχαρίας
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 15-11-2012
Περιοχή: Ηράκλειο, Κρήτης
Μηνύματα: 13
Προεπιλογή

Φίλε Κώστα σ' ευχαριστώ πάρα πολύ για την δουλειά και τον χρόνο που διέθεσες.
Γενικά θα ήθελα κάτι πιο απλό, ένα κουμπάκι να διαλέγω είτε ημερομηνίες, είτε οδηγό,
είτε χρέωση / πίστωση και να μου εμφανίζει τα αποτελέσματα.
Για μια ακόμη φορά σε ευχαριστώ και περιμένω και μια απάντηση γι αυτά που σου έστειλα.

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

Τελευταία επεξεργασία από το χρήστη Hayate : 22-11-12 στις 11:54.
Απάντηση με παράθεση
  #7  
Παλιά 22-11-12, 13:36
Όνομα: Κώστας
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 22-01-2012
Περιοχή: Πειραιάς
Μηνύματα: 181
Προεπιλογή

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

Ζαχαρία,

κοίτα την Βάση. Είναι με το δικό σου mainform.

Πραγματικά δεν καταλαβαίνω τι θέλεις να κάνεις.
Λογικά έτσι όπως τόχεις δομημένο,πάντα με αυτό που έστειλες,
το νέο δρομολόγιο είναι χρέωση και η πληρωμή πίστωση.

Αν θέλεις κάτι άλλο, για να βοηθήσουμε, γίνε πιο συγκεκριμένος.
Συνημμένα Αρχεία
Τύπος Αρχείου: zip odigoi_copy.zip (508,3 KB, 13 εμφανίσεις)
Απάντηση με παράθεση
  #8  
Παλιά 22-11-12, 13:49
Όνομα: Ζαχαρίας
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 15-11-2012
Περιοχή: Ηράκλειο, Κρήτης
Μηνύματα: 13
Προεπιλογή

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

Ζαχαρία,

κοίτα την Βάση. Είναι με το δικό σου mainform.

Πραγματικά δεν καταλαβαίνω τι θέλεις να κάνεις.
Λογικά έτσι όπως τόχεις δομημένο,πάντα με αυτό που έστειλες,
το νέο δρομολόγιο είναι χρέωση και η πληρωμή πίστωση.

Αν θέλεις κάτι άλλο, για να βοηθήσουμε, γίνε πιο συγκεκριμένος.
Οκ. Θα γίνω πιο συγκεκριμένος.

Οι κινήσεις οδηγών που γράφω και τα νέα δρομολόγια είναι 2 εντελώς διαφορετικά πράγματα.
Όταν πας σε μια κίνηση οδηγού περνάς μια καταχώρηση για κάτι που έκανε αυτός για εσένα και σε έχει χρεώσει η αν εσύ τον πλήρωσες για κάτι. Αντίστοιχα χρέωση / πίστωση.
Οπότε θέλω μια έκθεση όπως πολύ σωστά έφτιαξες που να δείχνει αθροιστικά την διαφορά που έχουμε με τον οδηγό για να ξέρω τι του χρωστάω.

Πάμε στο νέο δρομολόγιο τώρα.
Εκεί για κάθε καινούριο δρομολόγιο υπάρχει ένα αρχικό ποσό, ακολούθως υπάρχουν κάποια έξοδα και μένει ένα τελικό ποσό. Αν ρίξεις μια ματιά στην αρχική μου φόρμα θα το καταλάβεις.
Εκεί απλά θέλω να γνωρίζω αυτά τα ποσά για κάθε δρομολόγιο. Δεν θέλω κάποιο άθροισμα μεταξύ των δρομολογίων. Χρειάζομαι μια διαφορετική έκθεση εκεί με παράμετρο τον οδηγό και την ημερομηνία πάλι.

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

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

Ελπίζω να έγινα κατανοητός ξέρω ότι έχω γίνει αρκετά κουραστικός.

Χίλια ευχαριστώ και πάλι για τον χρόνο σου.
Απάντηση με παράθεση
  #9  
Παλιά 22-11-12, 14:52
Όνομα: Κώστας
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 22-01-2012
Περιοχή: Πειραιάς
Μηνύματα: 181
Προεπιλογή

Ζαχαρία,

Απέσυρα τις πετρατοπές που έφτιαξα.
Τώρα έχεις την mainform την δική σου
και τους πίνακες σου.
Στις κινήσεις, στο νέο δρομολόγιο
έχω από ένα κουμπι για τα reports.

Ελπίζω να σου κάνει.
Συνημμένα Αρχεία
Τύπος Αρχείου: zip odigoi_copy.zip (431,1 KB, 27 εμφανίσεις)
Απάντηση με παράθεση
  #10  
Παλιά 22-11-12, 15:31
Όνομα: Ζαχαρίας
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 15-11-2012
Περιοχή: Ηράκλειο, Κρήτης
Μηνύματα: 13
Προεπιλογή

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

Απέσυρα τις πετρατοπές που έφτιαξα.
Τώρα έχεις την mainform την δική σου
και τους πίνακες σου.
Στις κινήσεις, στο νέο δρομολόγιο
έχω από ένα κουμπι για τα reports.

Ελπίζω να σου κάνει.
Κώστα χαίρομαι γιατί έγινα κατανοητός :) :)
Αυτά που μου έχεις στείλει είναι αρκετά καλά. Πιστεύω να τα καταφέρω με τους δικούς μου πίνακες αν και δεν έχω βάλει id πεδία όπως είχες κάνει εσύ.
Δεν μπορώ όμως να κάνω καταχώρηση τώρα, το φτιάχνω αυτό μην σε απασχολεί. Ένα άλλο θέμα
αν βάλω 20/10/2012 έως 22/11/2012. Ο έλεγχος πετάει σφάλμα. Μπορείς να μου κάνεις μια ελαφριά μετατροπή σε αυτό που έχεις φτιάξει να έχω την επιλογή να διαλέξω μόνο τον οδηγό και να πατήσω οκ ή μόνο την ημερομηνία;; και αν μπορείς βγάλε μου αυτά τα 2 κουμπιά των εκθέσεων στην κεντρική φόρμα. Τσέκαρε επίσης το PM σου γι αυτό που σου είπα για τα δεδομένα.

Κώστα σ' ευχαριστώ πάρα πολύ. Είτε το τελειώσεις είτε όχι έκανες πάρα πολύ δουλειά για μένα.
Δεν ξέρω πως να σ' ευχαριστήσω.
Να 'σαι καλά!! Χίλια ευχαριστώ..
Απάντηση με παράθεση
Απάντηση στο θέμα

Ετικέτες
φόρμες


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

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


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

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