ΔΟΜΗΣΗ ΕΚΦΡΑΣΗΣ ΜΕ ΗΜΕΡΟΜΗΝΙΕΣ

[kapetang]

Καλησπέρα στην παρέα

Λεωνίδα, στη ΒΔ που επισυνάπτω υπάρχει μία φόρμα που πιστεύω ότι προσομοιώνει το ζητούμενο.
Όταν πληκτρολογήσουμε το έτος και μεταφέρουμε την εστίαση σε άλλο πεδίο γίνεται αυτόματη ενημέρωση των πλαισίων κειμένου με τις ημερομηνίες έναρξης και λήξης της περιόδου συνδρομής.
Αυτόματη ενημέρωση γίνεται και όταν κάνουμε μία επιλογή στο πλαίσιο του τύπου της συνδρομής εφόσον είναι συμπληρωμένο το έτος.
Η λειτουργικότητα της φόρμας οφείλεται στον κώδικα:

Private Sub cboType_Click()
        txtEtos_AfterUpdate
End Sub

Private Sub txtEtos_AfterUpdate()
    If IsNull(Me!cboType) Or IsNull(Me!txtEtos) Then
        MsgBox "Πρέπει να συμπληρωθούν έγκυρες τιμές στα πλαίσια" _
        & vbCrLf & "ελέγχου του τύπου συνδρομής και του έτους.", vbOKOnly
        Exit Sub
    End If
    Select Case Me!cboType
        Case "Ετήσια"
            Me!TxtStart = "1/1/" & Me!txtEtos
            Me!txtEnd = "31/12/" & Me!txtEtos

        Case "Α Εξαμήνου"
            Me!TxtStart = "1/1/" & Me!txtEtos
            Me!txtEnd = "30/6/" & Me!txtEtos
   
        Case "Β Εξαμήνου"
            Me!TxtStart = "1/7/" & Me!txtEtos
            Me!txtEnd = "31/12/" & Me!txtEtos
    End Select
End Sub

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