Ανανέωση ιστοσελίδας
ms-office.gr > Forum > Microsoft Access > Access - Ερωτήσεις / Απαντήσεις > Συνθήκη επιλογής δεδομένων μεταξύ δύο ημερομηνιών

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

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

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 10-03-15, 11:49
Όνομα: ΣΑΚΗΣ
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 24-02-2013
Μηνύματα: 320
Προεπιλογή Συνθήκη επιλογής δεδομένων μεταξύ δύο ημερομηνιών

Καλημέρα, έχω τα εξής δεδομένα:
Σε report έχω έσοδα και ημερομηνίες αυτών και έξοδα και ημερομηνίες.
Με την εξής συνθήκη ,

Private Sub elegxos_Click()
Dim SDate As Variant
Dim EDate As Variant
SDate = InputBox("Δώστε αρχική ημερομηνία", "ηη/μμ/εεεε")
EDate = InputBox("Δώστε τελική ημερομηνία", "ηη/μμ/εεεε")

If Not IsDate(SDate) Or Not IsDate(EDate) Then
MsgBox ("Απαιτούνται και οι δύο ημερομηνίες!"), vbInformation, "Έλεγχος"
Exit Sub
End If

Dim sinthiki
sinthiki = "[Ημερομηνία Εξ] Between #" & Format(SDate, "mm\/dd\/yyyy") & "#" & _
" and #" & Format(EDate, "mm\/dd\/yyyy") & "#"


DoCmd.OpenReport "rptExoda", acViewReport, , sinthiki

παίρνω δεδομένα μόνο από τα έξοδα την οριζόμενη ημερομηνία.
Πως μπορώ να συνδέσω τις συνθήκες ώστε να παίρνω δεδομένα και από τα έσοδα ([Ημερομηνία Εσ]);
Απάντηση με παράθεση
  #2  
Παλιά 11-03-15, 16:49
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.674
Προεπιλογή

Καλησπέρα

Σάκη, θα συμβούλευα να ανεβάσεις ένα δείγμα της ΒΔ και να διευκρινίσεις αναλυτικότερα το ζητούμενο.

Φιλικά/Γιώργος
Απάντηση με παράθεση
  #3  
Παλιά 12-03-15, 08:51
Όνομα: ΣΑΚΗΣ
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 24-02-2013
Μηνύματα: 320
Προεπιλογή

Καλημέρα Γιώργο, σου επισυνάπτω ένα δείγμα της ΒΔ.
Αν κλικάρεις στα button ΦΠΑ και ΚΕΡΔΗ και βάζοντας ημερολογιακά διαστήματα π.χ. Φεβρουαρίου θα δεις ότι εμφανίζει μόνο εγγραφές ΕΣΟΔΩΝ διότι δεν μπορώ στον κώδικα να ορίσω συνθήκη που να συμπεριλαμβάνει και την Ημερομηνία Εξόδων(πεδίο [Ημερομηνία Εξ]).
Συνημμένα Αρχεία
Τύπος Αρχείου: zip Έλεγχος Εσόδων-Εξόδων.zip (70,9 KB, 48 εμφανίσεις)
Απάντηση με παράθεση
  #4  
Παλιά 12-03-15, 10:21
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.674
Προεπιλογή

Καλημέρα

Σάκη, αν κατάλαβα το ζητούμενο, η συνθήκη θα πρέπει να διαμορφωθεί ως εξής:
Κώδικας:
 sinthiki = "[Ημερομηνία Εσ] Between #" & Format(SDate, "mm\/dd\/yyyy") & "#" & _
             " and  #" & Format(EDate, "mm\/dd\/yyyy") & "# OR " & _
               "[Ημερομηνία Εξ] Between #" & Format(SDate, "mm\/dd\/yyyy") & "#" & _
             " and  #" & Format(EDate, "mm\/dd\/yyyy") & "# "
Η παραπάνω συνθήκη μπορεί επίσης να διαμορφωθεί και συντομότερα:
Κώδικας:
     sinthiki = "[Ημερομηνία Εσ] Between #" & Format(SDate, "mm\/dd\/yyyy") & "#" & _
             " and  #" & Format(EDate, "mm\/dd\/yyyy") & "#"
    sinthiki = sinthiki & " OR " & Replace(sinthiki, "Εσ]", "Εξ]")
Με την παραπάνω συνθήκη εμφανίζονται οι εγγραφές στις οποίες οι ημερομηνίες εξόδων ή εσόδων βρίσκονται στο διάστημα που επιλέγουμε

Φιλικά/Γιώργος
Απάντηση με παράθεση
  #5  
Παλιά 12-03-15, 11:30
Όνομα: ΣΑΚΗΣ
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 24-02-2013
Μηνύματα: 320
Προεπιλογή

Γιώργο για άλλη μια φορά σε ευχαριστώ.Εγώ προσπάθησα να φτιάξω την πρώτη συνθήκη αλλά σε αυτό το σημείο σύνδεσης "OR " & _ " έκανα λάθος και δεν δούλευε.
Δουλεύει μία χαρά.
Απάντηση με παράθεση
Απάντηση στο θέμα


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

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


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

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
ΑΘΡΟΙΣΜΑ ΑΞΙΩΝ ΜΕΤΑΞΥ ΔΥΟ ΗΜΕΡΟΜΗΝΙΩΝ smasak Access - Ερωτήσεις / Απαντήσεις 1 25-10-16 10:13
[ Ερωτήματα ] Πρόβλημα στην αναζήτηση μεταξύ ημερομηνιών ADREAS Access - Ερωτήσεις / Απαντήσεις 2 09-09-16 12:10
[ Ερωτήματα ] Κριτήριο επιλογής χρονικού διαστήματος μεταξύ δύο πεδίων mousatos Access - Ερωτήσεις / Απαντήσεις 3 20-08-13 20:30
NETWORKDAYS - Υπολογισμός διαφοράς μεταξύ δύο ημερομηνιών Tasos Ημερομηνία & ώρα 0 11-10-11 14:34
Αφαίρεση μεταξύ ημερομηνιών Jim Access - Ερωτήσεις / Απαντήσεις 12 28-09-10 10:32


Η ώρα είναι 07:28.