[kapetang]

Μάρω, καλησπέρα!

Στη ΒΔ, που επισυνάπτω, προσπάθησα να προσεγγίσω το ζητούμενο.
Αποτελείται:

1. Από τον πίνακα «Periods» στον οποίο αποθηκεύονται οι περίοδοι (πεδία Από, Έως).
2. Τη φόρμα «frmRunSQL», που χρησιμοποιείται για την καταχώρηση των στοιχείων ορισμού των χρονικών περιόδων και την εκτέλεση του αναγκαίου κώδικα.

Ο κώδικας που δημιουργεί και αποθηκεύει τις χρονικές περιόδους είναι ο εξής:

Private Sub cmdRunSQL_Click()
    Dim strSQL As String, startDate As Date, endDate As Date
    If IsDate(Me.txtEnd) And IsDate(Me.txtStart) Then
        If Me.txtEnd <= Me.txtStart Then Exit Sub
        startDate = Me.txtStart
        Do
            endDate = DateAdd("m", Me.txtPeriod, startDate) - 1
            If endDate > Me.txtEnd Then endDate = Me.txtEnd
            strSQL = "INSERT INTO Periods ( Από, Έως ) Values(#" & _
            Format(startDate, "m/d/yyyy") & "#, #" & Format(endDate, "m/d/yyyy") & "# );"
            CurrentDb.Execute strSQL
            startDate = endDate + 1
        Loop Until endDate >= Me.txtEnd
    End If
End Sub

Ελπίζω να είναι αυτό που ζητάς

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