Forum - Έκθεση με παραμέτρους.

Forum (https://www.ms-office.gr/forum/)

- Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)

- - Έκθεση με παραμέτρους. (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/2189-ekthesi-me-parametroys.html)

Έκθεση με παραμέτρους.

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

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

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

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

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

Keep up the good work. :) :)
Ζαχαρίας.

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

Ευχαριστώ.

Παράθεση:

Αρχική Δημοσίευση από dratsaki (Μήνυμα 12929)

Είναι εντελώς τυχαία... Τώρα τι να σου πώ αν πέτυχα σωστά στοιχεία πάω για τζόκερ.. :dft011:

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

Ζαχαρία,

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

κοίτα αν σου κάνει

Παράθεση:

Αρχική Δημοσίευση από ασχετος (Μήνυμα 12939)

όποιος κατέβασε την βάση
ας πάει στην φόρμα 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

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

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

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

Ζαχαρία,

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

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

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

Παράθεση:

Αρχική Δημοσίευση από ασχετος (Μήνυμα 12952)

Οκ. Θα γίνω πιο συγκεκριμένος.

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

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

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

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

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

Χίλια ευχαριστώ και πάλι για τον χρόνο σου.

Ζαχαρία,

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

Ελπίζω να σου κάνει.

Παράθεση:

Αρχική Δημοσίευση από ασχετος (Μήνυμα 12954)

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

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