Forum - Υποφόρμες Επιλογή συγκεκριμένων εγγραφών και ενημέρωση αυτών

Forum (https://www.ms-office.gr/forum/)

- Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)

- - [ Υποφόρμες ] Επιλογή συγκεκριμένων εγγραφών και ενημέρωση αυτών (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/5307-epilogi-sygkekrimenon-eggrafon-kai-enimerosi-ayton.html)

Επιλογή συγκεκριμένων εγγραφών και ενημέρωση αυτών

Καλησπέρα στην κοινότητα! θα ήθελα την πολύτιμη βοήθεία σας. Έχω φτιάξει μια φόρμα η οποία έχει ένα 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

ευχαριστώ!:thanks:

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

Δοκίμασε:

Κώδικας:


 

    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

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