Ανανέωση ιστοσελίδας

[Dimitriss]

Καλησπέρα στην κοινότητα! θα ήθελα την πολύτιμη βοήθεία σας. Έχω φτιάξει μια φόρμα η οποία έχει ένα combobox , μια υποφόρμα και ένα κουμπί. Η υποφόρμα φέρνει εγγραφές από στοιχειά προϊοντων τα οποία τα χρεώνω σε υπαλλήλους.
Το combobox φέρνει τα στοιχεία των υπαλληλων. Θα ήθελα όταν επιλέγω πχ πέντε έγγραφες από την υποφόρμα και βάζω στο combobox βάζω έναν υπάλληλο πατώντας το κουμπί να ενημερώνονται οι επιλεγμένες εγγραφές της υποφόρμας.
Ο κώδικας που προσπάθησα να χρησιμοποιήσω είναι αυτός παρακάτω αλλά δεν δουλεύει. Πώς μπορώ να πάρω με κώδικα τις επιλεγμένες εγγραφές της υποφόρμας;

If Not IsNull(Me.staffcbo) Then
     Set F = Forms!Me![mysubfrom]
     Set rs = F.RecordsetClone
     rs.MoveFirst
     rs.Move F.SelTop - 1
     For i = 1 To F.SelHeight
       rs![staffname] = Me.staffcbo
       rs.MoveNext
     Next i

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

ευχαριστώ!

[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

[Dimitriss]

Τάσο σε ευχαριστώ πολύ για τις πολύτιμες παρατηρήσεις σου!!!