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/4274-problima-stin-anazitisi-metaksi-imerominion.html)

ADREAS 08-09-16 11:38

Πρόβλημα στην αναζήτηση μεταξύ ημερομηνιών
 
Καλημέρα σας όλους σας

Πρώτη ημέρα εγγραφής και πρώτη ερώτηση !!!!

Έφτιαξα έναν πίνακα στον οποίο μεταξύ των άλλων έχω τοποθετήσει και ημερομηνίες σε στυλ ΗΗ/ΜΜ/ΕΕΕΕ.

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


Private Sub searchdate_Click()

Call Search
End Sub
Sub Search()
Dim strCriteria, task As String

Me.Refresh
If IsNull(Me.searchdatefrom) Or IsNull(Me.searchdateto) Then
MsgBox "Παρακαλώ εισάγετε ημερομηνίες", vbInformation, "Απαιτείται εισαγωγή ημερομηνίας"
Me.searchdatefrom.SetFocus
Else
strCriteria = "([DATE_PRAXIS] >= #" & Me.searchdatefrom & "# And [DATE_PRAXIS] <=#" & Me.searchdateto & "#)"
task = "select * from tblIDPRAXIS where (" & strCriteria & ") order by [DATE_PRAXIS]"
DoCmd.ApplyFilter task


End If

End Sub

Meteora 08-09-16 13:28

Καλησπέρα

Οι ημερομηνίες απαιτούν-εν γένει- ευαίσθητες διαχειρίσεις. Χρησιμοποιώ τη συνάρτηση DateSerial(2016,3,7) για να δηλώσω 7-Μαρτίου-2016 ή γενικά την DateSerial(Year(πεδίο), Month(πεδίο) , Day(πεδίο)), όταν αντλώ δεδομένα από πεδίο ημερομηνίας... Την συνάρτηση DateSerial καταλαβαίνουν όλοι οι υπολογιστές.

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

Με εκτίμηση / Νίκος

Καλώς μας ήλθες Ανδρέα.

ADREAS 09-09-16 11:10

Ευχαριστώ πολύ για την βοήθεια.

Τελικά, επειδή δεν τα κατάφερα με τον κώδικα, έφτιαξα ένα ερώτημα και δουλεύει κανονικά με αυτό.


Η ώρα είναι 06:55.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2