21-11-14, 14:54
|
| Όνομα: ΝΑΣΟΣ Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2016 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 14-10-2010
Μηνύματα: 455
| |
Δημήτρη μια χαρά είναι η προσέγγισή σου.
Δεν βγάζει το σωστό αποτέλεσμα γιατί υπάρχει ένα μικρό λαθάκι.
Στη διαδικασία συμβάντος κανε αντικατάσταση την ΗΜΕΡ_ΛΗΞΗΣ με
ΗΜΕΡ_ΕΝΑΡΞΗΣ όπως βλέπεις παρακάτω με πράσινο χρώμα Παράθεση:
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
| |