Ημερομηνία έναρξης και λήξης

[dimitrisp]

Καλησπέρα σε όλους
Θα ήθελα τη βοήθειά σας στο ακόλουθο θέμα:
Έχω μία φόρμα με δύο πεδία (ΗΜΕΡ_ΕΝΑΡΞΗΣ και ΗΜΕΡ_ΛΗΞΗΣ). Στα πεδία αυτά εισάγω ημερομηνίες και η διαφορά της εκάστοτε χρονικής περιόδου είναι πάντοτε σε μήνες. Για παράδειγμα,
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]

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

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

[dimitrisp]

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

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

[nasos23]

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

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]

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

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