[Tasos]

Καλησπέρα Δημήτρη!

Δοκίμασε:

    If Not IsNull(Me.staffcbo) Then
        Set F = Me![Το_Όνομα της_Υποφόρμας].Form ' Το_Όνομα της_Υποφόρμας = το όνομα του αντικειμένου
                                                'Δευτερεύουσας φόρμας  ΜΕΣΑ στην κύρια φόρμα.
        Set rs = F.RecordsetClone
        rs.MoveFirst
        rs.Move F.SelTop - 1

        For i = 1 To F.SelHeight    'ΠΡΟΣΟΧΗ!! Η ιδιότητα SelHeight παίρνει μηδενική τιμή 
                                                  'αν χαθεί η εστίαση της υποφόρμας 
                                                  '(πχ. από κάποιο πάτημα κουμπιού πάνω στην κύρια φόρμα)
            rs.Edit 'Επεξεργασία εγγραφής
            rs![staffname] = Me.staffcbo
            rs.Update 'Αποθήκευση τροποποιημένης εγγραφής
            rs.MoveNext
        Next i

    Else
        MsgBox "Δεν επιλέξατε υπάλληλο.", vbInformation
        Exit Sub
    End If