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/3430-hmerominia-enarksis-kai-liksis.html)

dimitrisp 20-11-14 20:33

Ημερομηνία έναρξης και λήξης
 
1 Συνημμένο(α)
Καλησπέρα σε όλους
Θα ήθελα τη βοήθειά σας στο ακόλουθο θέμα:
Έχω μία φόρμα με δύο πεδία (ΗΜΕΡ_ΕΝΑΡΞΗΣ και ΗΜΕΡ_ΛΗΞΗΣ). Στα πεδία αυτά εισάγω ημερομηνίες και η διαφορά της εκάστοτε χρονικής περιόδου είναι πάντοτε σε μήνες. Για παράδειγμα,
20-11-2014 έως 20-5-2014: διαφορά = 6 μήνες ή 15-11-14 έως 15-3-2014: διαφορά = 4 μήνες κλπ.
Είναι δυνατόν μετά την εισαγωγή της "ΗΜΕΡ_ΕΝΑΡΞΗΣ" να προσθέτω τους μήνες που θέλω (πχ, 2,5,6,8 κοκ) και να προκύπτει η "ΗΜΕΡ_ΛΗΞΗΣ" ;
[Δηλαδή, 20-11-2014 (έναρξη) + 6 (μήνες) = 20-5-2014 (λήξη)]...

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

Με εκτίμηση
Δημήτρης

nasos23 20-11-14 23:42

1 Συνημμένο(α)
Καλησπέρα σε όλους.
Δημήτρη για να πάρουμε το αποτέλεσμα χρησιμοποιούμε τη συνάρτηση
DateAdd( "m",number, date ) και την προσαρμόζουμε αναλόγως.

Μια μικρή τροποποίηση της βάση σου στο συνημμένο.

dimitrisp 21-11-14 13:47

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

Φιλικά/Δημήτρης

nasos23 21-11-14 14:54

Δημήτρη μια χαρά είναι η προσέγγισή σου.
Δεν βγάζει το σωστό αποτέλεσμα γιατί υπάρχει ένα μικρό λαθάκι.
Στη διαδικασία συμβάντος κανε αντικατάσταση την ΗΜΕΡ_ΛΗΞΗΣ με
ΗΜΕΡ_ΕΝΑΡΞΗΣ όπως βλέπεις παρακάτω με πράσινο χρώμα
Παράθεση:

Private Sub cbo_end_dpl_AfterUpdate()
If IsNull(Me.ΗΜΕΡ_ΛΗΞΗΣ) Then
Me.cbo_end_dpl = ""
Exit Sub
End If

If IsNull(Me.cbo_end_dpl) Or Me.cbo_end_dpl = "" Or IsNull(Me.ΗΜΕΡ_ΛΗΞΗΣ) Then
Exit Sub
Else
Me.ΗΜΕΡ_ΛΗΞΗΣ = DateAdd("m", Me.cbo_end_dpl, Me.ΗΜΕΡ_ΕΝΑΡΞΗΣ)
End If
End Sub

dimitrisp 21-11-14 17:02

Φίλε, Νάσο, τελικώς έχεις δίκιο. Ο Κώδικας λειτουργεί άψογα και δίνει το επιθυμητό αποτέλεσμα, μετά από τη διόρθωση που πρότεινες.
Και πάλι σ'ευχαριστώ και εύχομαι καλή συνέχεια και καλό Σαββατοκύριακο..

Φιλικά/Δημήτρης


Η ώρα είναι 01:11.

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


Search Engine Optimization by vBSEO 3.3.2