[kapetang]

Καλησπέρα σε όλους

Χρήστο στο αρχείο που επισυνάπτω υπάρχει μια φόρμα που πιστεύω ότι έχει τη λειτουργικότητα που θέλεις.
Έβαλα 5 πεδία αλλά μπορείς να προσθέσεις όσα θέλεις, αντικαθιστώντας στον κώδικα το 5 με τον πραγματικό αριθμό των πεδίων.
Η λειτουργία της φόρμας οφείλεται στον παρακάτω κώδικα.

Function SetValue() As Variant
    Dim i As Integer
    SetValue = Null
    For i = 1 To 5
        If Not IsNull(Me.Controls("a" & i)) Then
            SetValue = Me.Controls("a" & i)
            Exit For
        End If
    Next
        
End Function

Private Sub a1_Exit(Cancel As Integer)
    Me!a6 = SetValue
End Sub

Private Sub a2_Exit(Cancel As Integer)
    Me!a6 = SetValue
End Sub

Private Sub a3_Exit(Cancel As Integer)
    Me!a6 = SetValue
End Sub

Private Sub a4_Exit(Cancel As Integer)
    Me!a6 = SetValue
End Sub

Private Sub a5_Exit(Cancel As Integer)
    Me!a6 = SetValue
End Sub

Private Sub Form_Current()
    Me!a6 = SetValue
End Sub

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