[Tasos]

Αλέξανδρε, Γιώργο καλημέρα!

Αλέξανδρε χαίρομαι που βοήθησα!

Γιώργο, στο παράδειγμα που ανέβασα στο προηγούμενο μήνυμα μου, μπορείς να χρησιμοποιήσεις τον
παρακάτω κώδικα σε μια απλή λειτουργική μονάδα για να τροποποιήσεις την Προέλευση Στοιχείου ελέγχου των πεδίων του υποσέλιδου της φόρμας
(για να μην γράφεις στα 31 πεδία χειροκίνητα).

Ο τροποποιημένος τύπος στην Προέλευση Στοιχείου ελέγχου των πεδίων επιστρέφει ημερομηνία μόνο όταν η δεύτερη υπάρχει στον πίνακα.

Option Compare Database
Option Explicit
Sub SetFieldFormulas()
    Dim ctrl As Access.Control, i As Integer
    DoCmd.OpenForm "Plano_Apusion", acDesign
    For Each ctrl In Forms!Plano_Apusion.Section(2).Controls
        If Len(ctrl.Name) < 4 And Left(ctrl.Name, 1) = "D" Then
            If TypeOf ctrl Is Access.TextBox Then
                i = i + 1
                ctrl.ControlSource = "=IIf(Nz(Dlookup(""[AttendanceID]""" & _
                ",""[AttendanceT]"",""[AttendanceDate] = #"" & Format(DateSerial([cboEtos],[FraMonths]," & _
                i & "),""m/d/yyyy"") & ""#""),0)=0,Null,DateSerial([cboEtos],[FraMonths]," & i & "))"
            End If
        End If
    Next
    'Αποθήκευσε τις αλλαγές
End Sub

Καλή συνέχεια!

Τάσος