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/3160-emfanisi-kyriakes-kai-argies.html)

steliosgr 16-05-14 13:18

Εμφάνιση Κυριακές και Αργίες.
 
Καλησπέρα σε όλα τα μέλη του απίστευτου αυτού forum γνώσεων. Θα ήθελα την βοήθεια σας , σε μία φόρμα με πεδίο ημερομηνίας ονόματος ΗΜΕΡΟΜ καταχωρώ μόνο Σάββατα Κυριακές και αργίες. Για αποφύγω λάθος καταχώρηση έχω ενσωματώσει το παράδειγμα
http://www.ms-office.gr/forum/access...ma-access.html
και πριν από ενημέρωση του ΗΜΕΡΟΜ

If IsHoliday(ΗΜΕΡΟΜ) = True Then
μια διαδικασία
Else
Dim iWeekNo As Integer
iWeekNo = Weekday(ΗΜΕΡΟΜ)
If iWeekNo = 2 Or iWeekNo = 3 Or iWeekNo = 4 Or iWeekNo = 5 Or iWeekNo = 6 Then
μια διαδικασία
Me.Undo
End If
End If
θα ήθελα σε μια έκθεση να εξάγονται μόνο οι Κυριακές και οι αργίες. Προφανώς χρειάζεται κάποιο ερώτημα η συνάρτηση αλλά δεν έχω τις κατάλληλες γνώσεις ευχαριστώ.

kapetang 17-05-14 14:13

Καλησπέρα

Στέλιο, αν υποθέσουμε ότι ο πίνακας με τα στοιχεία λέγεται tbl, θα μπορούσες να στηρίξεις την έκθεση στο παρακάτω ερώτημα:

Κώδικας:

SELECT * FROM [tbl]
WHERE Weekday([ΗΜΕΡΟΜ])=1 Or IsHoliday([ΗΜΕΡΟΜ]);

Το ερώτημα επιστρέφει όλα τα πεδία (στήλες) του πίνακα tbl και από τις εγγραφές (γραμμές) μόνο αυτές που η μέρα της ημερομηνίας είναι αργία ή Κυριακή.

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

steliosgr 17-05-14 17:24

Καλησπέρα.
 
Γιώργο σ' ευχαριστώ πολύ για την απάντηση, φτιάχνω ένα ερώτημα όπως μου υποδεικνύεις και εκτελώντας το μου γράφει Η έκφραση αυτή δεν έχει πληκτρολογηθεί σωστά ή είναι πολύ περίπλοκη για να αποτιμηθεί .Για παράδειγμα, ίσως μια αριθμητική έκφραση περιέχει πάρα πολλά περίπλοκα στοιχεία. Προσπαθήστε να απλοποιήσετε την έκφραση εκχωρώντας μέρη της σε μεταβλητές
Αν αφήσω μόνο Weekday([ΗΜΕΡΟΜ])=1 δουλεύει μια χαρά όμως με το IsHoliday([ΗΜΕΡΟΜ])<>ψεύδές εμφανίζει το ανωτέρω μήνυμα.

kapetang 17-05-14 18:05

Στέλιο δοκίμασε IsHoliday([ΗΜΕΡΟΜ])=-1.
Αν εξακολουθεί να δίνει λάθος ανέβασε ένα δείγμα της ΒΔ.

steliosgr 18-05-14 11:54

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

kapetang 18-05-14 14:32

1 Συνημμένο(α)
Καλησπέρα

Στέλιο η επισυναπτόμενη ΒΔ αποτελεί προσομοίωση του ζητούμενου.

Περιέχει:

1) Τη λειτουργική μονάδα fncArgies με τον κώδικα ορισμού των επίσημων αργιών και τη συνάρτηση IsHolday.

2) Τον πίνακα Dates που περιέχει τις ημερομηνίες των αργιών και των Σαββατοκύριακων.

3) Τη φόρμα Dates στην οποία γίνεται η καταχώρηση των δεδομένων και ελέγχεται αν η ημερομηνία αντιστοιχεί σε αργία ή Σαββατοκύριακο.

4) Το ερώτημα qryArgies που εμφανίζει μόνο τις Κυριακές και τις αργίες.

Ελπίζω να μπορέσεις να την προσαρμόσεις στα δεδομένα σου.

Αν δεν τα καταφέρεις ανέβασε το δείγμα.

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

steliosgr 19-05-14 15:31

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


Η ώρα είναι 08:49.

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


Search Engine Optimization by vBSEO 3.3.2