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/842-diskolo-problima-me-imerominies-se-erotimata.html)

Δύσκολο πρόβλημα με ημερομηνίες σε ερωτήματα!

Καλησπέρα σε όλους σας εδώ στο φορουμ,είμαι νέος στην παρέα σας και θέλω να πω ότι πραγματικά δίνετε μεγάλη βοήθεια σε πολλούς χρήστες του Ms Office έμπειρους και άπειρους καθημερινά.

Με μεγάλη μου χαρά διάβασα το post του Meteora και του Kapetang που αφορά στον τρόπο με τον οποίο χειρίζεται η Access τις ημερομηνίες.Είμαι μέτριος χρήστης της Access και ασχολούμαι καιρο τώρα φτιάχνοντας μικροεφαρμογές στον ελεύθερό μου χρόνο.Ψάψνω και βρίσκω αρκετά νέα πράγματα κάθε φορά που αντιμετωπίζω κάποιο πρόβλημα με τις τεχνικές της Access.

Ωστόσο,ίσως το δυσκολότερο πρόβλημα μου έχει παρουσιαστεί τωρα και όσο και αν έχω ψαξει στο internet δεν έχω καταφέρει να βρω λύση.

Το πρόβλημά μου έχει να κάνει με ημερομηνίες μέσα σε ερωτήματα.Χρησιμοποιώ 3 ερωτήματα το ένα μεσα στο άλλο για να εμφανίσω κάποια ΄"σύνθετα" δεδομένα από διάφορους πίνακες.Στο 3 ερώτημα χρησιμοποιώ το 2ο ερώτημα όπως είναι ,απλά σε 1-2 από τα πεδία αυτού του ερωτήματος κάνω concatenate τις εγγραφές του με βάση το id ενός πελάτη.Είναι ένας πολύ χρήσιμος κώδικας (δε θυμάμαι ακριβώς που το είχα βρει) και μέχρι τώρα μου δούλευε πολύ όμορφα σε όσα ερωτήματα το είχα χρησιμοποιήσει.

Το πρόβλημα δημιουργείται μόλις αποφασίζω ότι θέλω να φιλτράρω τα δεδομένα αυτά ώστε να εμφανίζονται για μια συγκεκριμένη περίοδο που την ορίζω με 2 txt_boxes σε μια φόρμα.Χρησιμοποιώ δηλαδή στα κριτήρια του 2ου ερωτήματος στο πεδίο της ημερομηνίας το Between txtdate1 and txtdate2.Προφανώς η access δεν αναγνωρίζει σωστά τις ημερομηνίες και μόλις τρέχω το 3 ερώτημα η access τρελαινεται και μου βγάζει το μήνυμα λάθους :

RUN TIME ERROR 80040e10 Δεν έχει οριστεί τιμή για μία ή περισσότερες παραμέτρους

και μόλις ανοίγω το debugger είναι highlighted η γραμμή
rs.Open SQL, cnn, adOpenForwardOnly, adLockReadOnly

παρακατω σας παραθέτω τον κώδικα των 2 ερωτημάτων (2ου και 3ου,το πρώτο δεν έχει νόημα να το γράφω δεν είναι κάτι το ιδιαίτερο) καθώς και τον κώδικα του Conc στο Module.

Public Function Conc(Fieldx, Identity, Value, Source) As Variant
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim SQL As String
Dim vFld As Variant

Set cnn = CurrentProject.Connection
Set rs = New ADODB.Recordset
vFld = Null

SQL = " SELECT DISTINCT [" & Fieldx & "] as Fld " & _
" FROM [" & Source & "] " & _
" WHERE [" & Identity & "]= ' " & Value & " ' "

' open recordset.
rs.Open SQL, cnn, adOpenForwardOnly, adLockReadOnly

' concatenate the field.
Do While Not rs.EOF
If Not IsNull(rs!Fld) Then

'If InStr("vFld", "rs!Fld") = 0 Then

vFld = vFld & ", " & rs!Fld

End If
rs.MoveNext
Loop
' remove leading comma and space.
vFld = Mid(vFld, 3)

Set cnn = Nothing
Set rs = Nothing

' return concatenated string.
Conc = vFld
End Function

2o query

SELECT 1st_query.customer_id, 1st_query.surname, 1st_query.name, 1st_query.account_number, actions.action_internal_code, activity_codes.activity_name, 1st_query.details,actions.action_date, actions.action_internal_code AS CODE
FROM 1st_query INNER JOIN (activity_codes RIGHT JOIN actions ON activity_codes.activity_code = actions.action_internal_code) ON 1st_query.account_number = actions.ypothesi_id
WHERE (((actions.action_internal_code) Not In ('002','003')) AND ((actions.action_date) Between Format([Forms]![new_actions]![txt_box_start_date],"dd/mm/yyyy") And Format([Forms]![new_actions]![txt_box_end_date],"dd/mm/yyyy")));

3o query

SELECT 2nd_query.customer_id AS ID, 2nd_query.surname AS SURNAME, 2nd_query.name AS NAME, Conc("2nd_query.account_number","2nd_query.custome r_id",2nd_query.customer_id,"2nd_query") AS ACCOUNT, Conc("2nd_query.activity_name","2nd_query.customer _id",2nd_query.customer_id,"2nd_query") AS ACTION, 2nd_query.details AS DETAILS, 2nd_query.action_date
FROM 2nd_query;

όλα μου τα πεδία από τους πίνακες είναι text και ημερομηνίες ,τίποτα αριθμητικό.όσο κι αν έχω προσπαθήσει να μετατρέψω τη γραμμή :

((actions.action_date) Between Format([Forms]![new_actions]![txt_box_start_date],"dd/mm/yyyy") And Format([Forms]![new_actions]![txt_box_end_date],"dd/mm/yyyy")));
δεν έχω καταφέρει τίποτα,αφήστε που με τον κώδικα vba σχετικά με τισ ημερομηνίες στο άλλο topic μπερδεύτηκα περισσότερο με τις # τα "" διπλά και μονά.

Ο κώδικας των ερωτημάτων είναι όπως φαίνεται στο query designer .Δοκίμασα και χωρίς το Format() αλλά τίποτα.

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

Σας ευχαριστώ εκ των προτέρων.

Μιχάλη καλωσόρισες στο φόρουμ.

Τελείως πρόχειρα προτείνω να δοκιμάσεις τα εξής:
Στη σχεδίαση της φόρμας όρισε ως μορφή στα πλαίσια κειμένου που πληκτρολογείς τις ημερομηνίες «Σύντομη ημερομηνία» και στα κριτήρια του 2ου ερωτήματος μη χρησιμοποιείς καμία συνάρτηση (δηλαδή, Between [Forms]![new_actions]![txt_box_start_date] And [Forms]![new_actions]![txt_box_end_date]). Με ανοιχτή τη φόρμα άνοιξε το ερώτημα και δες αν εμφανίζει σωστά τις εγγραφές.
Αν δεν εμφανίζονται σωστά χρησιμοποίησε τη συνάρτηση CDate (δηλαδή, Between CDate([Forms]![new_actions]![txt_box_start_date]) And CDate([Forms]![new_actions]![txt_box_end_date])) και ξαναδοκίμασε.
Αν δε λυθεί το πρόβλημα θα σου πρότεινα να ανεβάσεις ένα δείγμα της βάσης σου για να τη δούμε καλύτερα.

Φιλικά/Γιώργος

Καλησπέρα Μιχάλη και καλωσόρισες στο φόρουμ!

Έχω την αίσθηση (μπορεί να κάνω και λάθος) ότι η λύση στο πρόβλημα σου λύνεται με
σχετικά λιγότερες διαδικασίες.

Θα σου ήταν εύκολο να επισυνάψεις ένα παράδειγμα με κάποια δεδομένα για να δούμε που
ακριβώς υπάρχει το πρόβλημα;

Περιμένουμε απάντηση σου.

Φιλικά

Τάσος

παιδια,ψαχνω από το πρωι χωρις πλακα να βρω τη λυση,τιποτα δε δουλευει ουτε με ανοιχτες ουτε με κλειστες φορμες τα χω δοκιμασει ολα.

το μονο που μου δουλεψε (12.50 το βραδυ και παω για υπνο δεν την παλευω αλλο για αποψε) ήταν αυτο:
Between Eval("[Forms]![energeies]![txt_box_apo]") And Eval("[Forms]![energeies]![txt_box_ews]")

ηταν το μονο που μου δουλεψε αλλα και παλι μονο μεσα απο τη φορμα,τρεχοντας το ερωτημα απο το database window δε δουλεψε με καμια κυβερνηση.με αυτο τον τροπο δε χρειαστηκε να πειραξω τιποτα στις ημερομηνιες ουτε format τιποτα.

κατι ειναι κι αυτο παντως.εχετε να προτεινετε κατι αλλο?

Καλημέρα σε όλους!

Αγαπητέ Μιχάλη,

Όπως βλέπεις, στο φόρουμ αυτό υπάρχει ανταπόκριση σε σύγκριση μ αυτό:
weird problem with dates in query!

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

Μας αναφέρεις ένα σύμπτωμα που οι πιθανές αιτίες που το προκαλούν ανέρχονται σε δεκάδες!

Ποια απ όλες αυτές τις αιτίες να πάρουμε σαν βάση και να σου δώσουμε την κατάλληλη απάντηση;

Δεν βλέπουμε τον υπολογιστή σου! Ούτε είμαστε σε θέση να αναπαράγουμε το πρόβλημα βασισμένοι στην περιγραφή σου.

Το μόνο που βλέπω είναι ότι οι μορφές (Format) των ημερομηνιών στα ερωτήματα δεν είναι σωστές.

Βοήθησε μας να σε βοηθήσουμε!:001_smile:

Φιλικά

Τάσος

Καλησπερα και παλι,η αληθεια ειναι οτι εχω απευθυνθει και σε ξενα φορουμ προσπαθωντας να βρω απαντησεισ σε θεματα που κατα καιρους αντιμετωπιζω.

Σας ανεβασα ενα δειγμα απο τη βαση.

αν εχετε χρονο ριξτε της μια ματια.

ευχαριστω.

Καλημέρα Μιχάλη!

Μην δίνεις στα πεδία σου ονόματα που είναι δεσμευμένα είτε από την VB είτα από την SQL !!!
Δεν υφίσταται να χρησιμοποιείς πεδίο με το όνομα "Name"!!
Μετονόμασε τα ερωτήματα σου σε πχ. Qry1, Qry2 κτλ.
Στο ερώτημα "3" σε κάποια γράφεις:

Conc("card_number";"bank_customer_code";[customer_code];"Q2")

Αυτό το "bank_customer_code" δεν υπάρχει πουθενά για να μπορέσει να το επεξεργαστεί η συνάρτηση Conc() κι έτσι εισπράτεις το μήνυμα λάθους.

Επισης που είναι το card_number και το activity_name ??

Περίγραψε μας τι ακριβώς θέλεις να επιτύχεις. Ίσως να υπάρχει απλότερος τρόπος στη λύση του ζητούμενου σου

Φιλικά

Τάσος

Καλημέρα στην παρέα

Μιχάλη, πέρα από τις επισημάνσεις του φίλου Τάσου, θέλω να τονίσω ότι η βάση που ανέβασες δεν μπορεί να λειτουργήσει, επειδή παρουσιάζει σοβαρές αδυναμίες στη σχεδίαση.
Γενικά θα πρέπει:

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

Φιλικά/Γιώργος

Τάσο συγγνώμη έχεις δικιο,ξεχασα να αλλαξω καποια πεδια πανω στο πειραγμα.

Ανεβασα το σωστο τωρα.

Αν του αφαιρεσεις απο το qry2 στο κριτηριο to Between [Forms]![energeies]![txt_box_apo] And [Forms]![energeies]![txt_box_ews] ,το 3ο ερωτημα δουλευει μια χαρα είτε απο τη φόρμα μέσα είτε από database window τρεχοντάς το.

Γενικά το να βαζεις μέσα σε κριτηρια σε qry txt box controls απο φορμες είναι μια τακτική που χρησιμευει αρκετά για να φιλτράρεις δεδομένα δυναμικά με παρέμβαση από το χρήστη.Σε άλλες περιπτώσεις που τα txt boxes περιεχουν απλα κειμενο τα ερωτήματα δουλευόυν μια χαρά.

Μήπως υπάρχει κάποιος άλλος εναλλακτικός τρόπος - τεχνική για να κανω κατι παρόμοιο?Π.Χ. να βάζω το recordsource του ερωτήματος μέσα σε event φόρμας ή control σε φορμα με vba.Ουσιαστικά όμως είναι ακριβώς το ίδιο με αυτό που έκανα και νομίζω είναι λίγο πιο απλό και πιο εύχρηστο το να δουλεύεις πάνω στο qry designer.

Αυτό βασικά που μου κάνει αυτή η conc συνάρτηση είναι το ακόλουθο.

ΟΝΟΜΑ ΑΡΙΘΜΟΣ
ΜΙΧΑΛΗΣ 1
ΜΙΧΑΛΗΣ 3
ΜΙΧΑΛΗΣ 4
ΤΑΣΟΣ 1
ΤΑΣΟΣ 3
ΤΑΣΟΣ 3

να γίνεται ως εξής:

ΟΝΟΜΑ ΑΡΙΘΜΟΣ
ΜΙΧΑΛΗΣ 1,3,4
ΤΑΣΟΣ 1,3

Πιθανόν να μπορούσε και να γίνει χωρίς custom συναρτηση με vba,και να το έφτιαχνα κάπως μεσα στο qry απευθείας αλλά ίσως να χρειαζόμουν κι αλλο επιπλέον qry για να κάνω ότι κάνει η conc.

Πάντως θα ήταν πολύ χρήσιμο να υπήρχε εδώ συγκεντρωμένη (σε ελληνικό όχι ξένο site) μία συλλογή με χρήσιμα παραδείγματα-τεχνικές που συνηθίζονται να χρησιμοποιούνται σε εφαρμογές access.(κάτι παρόμοιο με τη βάση Solutions9.mdb thw microsoft αλλά με πρισσότερα παραδειγματα.)

Ευχαριστώ για το χρόνο και τη βοήθειά σου Τάσο.

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

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

Στη βάση που μόλις ανέβασα το πρόβλημα είναι συγκεκριμένο.Δε νομίζω ότι έχει να κάνει με τις σχέσεις και τη σχεδίαση γενικότερα.

Σας ανεβάσω και τη βάση με τις σχέσεις.

Καλησπέρα στην παρέα

Μιχάλη το ερώτημα QR2 είναι παραμετρικό. Έτσι όταν χρησιμοποιούμε τα αντικείμενα του ADO (ή του DAO) για να το ανοίξουμε πρέπει να δώσουμε τις τιμές των παραμέτρων (δεν τις παίρνει αυτόματα από τα χειριστήρια της φόρμας).
Για τη λύση του προβλήματος αντί να δοθούν οι τιμές των παραμέτρων, τις αφαίρεσα (διέγραψα τα κριτήρια) από το QR2 και τις πρόσθεσα στο QR3, που ανοίγει χωρίς να χρησιμοποιηθεί κώδικας ADO ή DAO.
Στη ΒΔ, που επισυνάπτω, το Qry3 ανοίγει κανονικά και μάλλον το πρόβλημα έχει λυθεί.
Οι σχέσεις των πινάκων βοηθούν στη κατανόηση της δομής και της λογικής της βάσης.

Φιλικά/Γιώργος

Καπετανιε είσαι τεραστιος!

Η λύση ήταν τόσο απλή μπροστα στα μάτια μου,αλλα ξερεις είναι από αυτές τις στιγμες που όσο και να σπας το κεφάλι σου το μυαλό δε ξεθολώνει με τίποτα.Ισα ισα που βάζοντάς το στο qry3 μπορω να προσθέσω πιο ευκολα κι αλλο κριτηριο από οτι αν το βαζα στο 2.

Σε ευχαριστώ.Πάντως βάζοντάς το Between Eval.... στο qry2 δουλευει όπως ειπα και χτες χωρίς να ξέρω ακριβώς τι κάνει η Eval.

Επίσης δεν καταλαβα γιατι στο 2 χρησιμοποιουνται αντικειμενα(ή κωδικας?) το ado h dao ενω στο 3 όχι.Μπορεις να μου το εξηγησεις?

Μιχάλη Καλημέρα

Το ερώτημα Qry3 έχει υπολογιζόμενα πεδία που χρησιμοποιούν τη συνάρτηση Con() η οποία ανοίγει το Qry2 χρησιμοποιώντας αντικείμενα του μοντέλου ADO. Συνεπώς αν το Qry2 έχει κριτήρια (παραμέτρους) θα πρέπει να δώσουμε τις τιμές τους στον κώδικα της συνάρτησης (δεν παίρνονται αυτόματα από την ανοιχτή φόρμα).
Το Qry3 χρησιμοποιείται ως προέλευση εγγραφών στην υποφόρμα, δεν ανοίγει μέσω του μοντέλου αντικειμένων ADO ή DAO και συνεπώς δε χρειάζεται να δοθούν οι τιμές των παραμέτρων (λαμβάνονται αυτόματα από την ανοιχτή φόρμα).
Πάντως αν ανοίξουμε το Qry2 (με ανοιχτή τη φόρμα) από το παράθυρο της βάσης δεδομένων και όχι μέσω του Qry3 θα πάρει τις τιμές των παραμέτρων από τη φόρμα και θα ανοίξει κανονικά.
Η συνάρτηση Eval() αποτιμά μία συμβολοσειρά (string) και επιστρέφει μία αριθμητική τιμή ή μια συμβολοσειρά. Λεπτομέρειες δίνονται στη βοήθεια (στο παράθυρο του κώδικα > πληκτρολογούμε Eval > με τον κέρσορα στο Eval πατούμε το F1).

Φιλικά/Γιώργος

Σε ευχαριστω για τη βοηθεια kapetang,

με αλλα λογια , πριν απο το qry μέσα στο οποιο χρησιμοποιουνται συναρτησεις ενσωματωμενες ή και custom όπως η conc (που χρησιμοποιούν ado,dao) δεν μπορεί να χρησιμοποιηθεί αυτή η μέθοδος με κριτηρια Forms!....txtbox...

Μπορεί να χρησιμοποιηθεί ή μέσα στο ίδιο το qry (στο οποίο χρησιμοποείται η conc) ή μέσα σε επόμενο qry πχ. qry4.Πάντωςσίγουρα όχι πρίν γιατι θα χτυπάει.

Καλησπέρα guys!

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

Στην περίπτωσή σου λοιπόν φίλε Μιχάλη, θα μπορούσαμε να διατηρούμε σε μια μονάδα κώδικα τα εξής:

Κώδικας:

Option Compare Database

Option Explicit
 

Private mdtmDateFrom As Date

Private mdtmDateTo As Date
 

Function DateFrom(Optional dtmDate As Date = 0) As Date

    If dtmDate > 0 Then mdtmDateFrom = dtmDate

    DateFrom = mdtmDateFrom

End Function
 

Function DateTo(Optional dtmDate As Date = 0) As Date

    If dtmDate > 0 Then mdtmDateTo = dtmDate

    DateTo = mdtmDateTo

End Function

Ενώ στη λειτουργική μονάδα κώδικα της φόρμας "energeies" τις παρακάτω εκφράσεις:

Κώδικας:

Private Sub Form_Load()

    txt_box_apo_AfterUpdate

    txt_box_ews_AfterUpdate

End Sub
 

Private Sub txt_box_apo_AfterUpdate()

    DateFrom Nz(Me.txt_box_apo, 0)

End Sub
 

Private Sub txt_box_ews_AfterUpdate()

    DateTo Nz(Me.txt_box_ews, 0)

End Sub

Έτσι, το ερώτημα "qry2" πλέον υλοποιείται με το παρακάτω SQL κείμενο:

Κώδικας:

SELECT qry1.customer_code, qry1.surname, qry1.name1, qry1.number1, 

status_energeiwn.action_code, activity_codes.activity_name, status_energeiwn.action_date

FROM activity_codes INNER JOIN (qry1 INNER JOIN status_energeiwn 

ON qry1.number1=status_energeiwn.ypothesi_id) 

ON activity_codes.activity_code=status_energeiwn.action_code

WHERE (((status_energeiwn.action_date) Between DateFrom() And DateTo()));

Το πλεονέκτημα είναι πως οι συναρτήσεις DateFrom() και DateTo() είναι προσβάσιμες από οποιοδήποτε σημείο της εφαρμογής
ενώ οι μεταβλητές επιπέδου μονάδας mdtmDateFrom και mdtmDateTo διατηρούν τις τελευταίες επιλογές μας.
Έτσι οι παράμετροι στα ερωτήματα θα έχουν πάντα μια τιμή ημερομηνίας, ακόμη κι αν αυτή είναι μηδενική,
χωρίς πια να μας απασχολεί αν είναι ανοιχτή η φόρμα που την έθεσε ή όχι.

Επίσης, για τη συνένωση των τιμών ενός πεδίου, θα μπορούσες να χρησιμοποιήσεις και τη μέθοδο
GetString() του αντικειμένου ADODB.Recordset.

Στο συνημμένο αρχείο που σου επιστρέφω θα βρεις την εφαρμογή όλων των παραπάνω
και ελπίζω να σου φανούν χρήσιμα.

Φιλικά, Γιάννης.

σε ευχαριστω πολύ!