[ Συναρτήσεις ] Αντιγραφή επιλεγμένων απο checkbox εγγραφών

[smasak]

Καλημέρα, στο επισυναπτόμενο αρχείο υπάρχει πεδίο txtCOPY στο οποίο θέλω να αντιγράφω όλα τα στοιχεία του πεδίου [Κινητό Κηδεμόνα] που επιλέγουμε από το checkbox (Επιλογή όλων) χωριζόμενα με κόμμα. δλδ 698888888,697777777 κλπ

Στο copybutton ο κωδικας που έχω βάλει τώρα φέρνει μόνο το πρώτο.

[tsgiannis]

Για δες αυτό:

[smasak]

Τέλεια, ευχαριστώ πολύ Γιάννη.

[smasak]

Kαλημέρα, ένα θεματάκι που θα ήταν χρήσιμο. Αν θέλουμε να φέρουμε μόνο τα "τσεκαρισμένα" πεδία και όχι όλα.

[tsgiannis]

Εκεί φιλτράρεις...οπως κάνεις το Iteration ελεγχεις αν είναι τσεκαρισμένο το πεδίο (το Checked)

[smasak]

Συγνώμη Γιάννη αλλά δεν το κατάλαβα. Πως μπορεί να γίνει;
Τσεκάρω πχ τα 2 και όχι όλα και δεν τα αντιγράφει.Μόνο αν κλικάρω στην επιλογή όλων φέρνει όλα τα κινητά.

[smasak]

Καλημέρα, πως μπορούμε στον κώδικα να προσαρμόσουμε κριτήριο επιλογής εγγραφών(κινητό κηδεμόνα)
όταν το checkbox(ΕπιλογήΣ) είναι επιλεγμένο;Δλδ να επιλέγουμε για αντιγραφή στο txtCOPY μόνο τις επιλεγμένες εγγραφές και όχι όλες.
Έχω κάνει κάποιες δοκιμές με την where αλλά δεν κατάφερα κάτι...

Dim rst As Object
Dim strTemp As String
strTemp = vbNullString
If Nz(Form!ÌΜΑΘΗΤΕΣ, False) Then

Set rst = Form_ΜΑΘΗΤΕΣ.RecordsetClone
With rst
While Not .EOF
strTemp = strTemp & .Fields("Κινητό Κηδεμόνα") & ","
.MoveNext
Wend
End With
End If

If Len(strTemp) > 0 Then
Me.txtCOPY = Left(strTemp, Len(strTemp) - 1)
End If
If Not rst Is Nothing Then Set rst = Nothing

[smasak]

Έχω σκεφτεί και μια άλλη προσέγγιση στο ζητούμενο με σύνθετο πλαίσιο σε συνδυασμό με combo box αλλά εδώ έχω ένα άλλο πρόβλημα.
Μου φέρνει τις εγγραφές με ένα κενό και ερωτηματικό αντί κόμμα.

Μήπως κάποιος μπορεί να βοηθήσει σε αυτό;

[tsgiannis]

Το κολπάκι με το Combobox και το Multiselect (δεν νομίζω να το έχω ξαναδει αλλά μια γρήγορη αναζήτηση έδειξε ότι είναι ΜΗ συνιστώμενο) δυστυχώς δεν θα σου δώσει τον έλεγχο που θες καθώς ο τρόπος που γυρνάει τα δεδομένα είναι εξαρτώμενος απο τα Regional settings...εκτός εαν μετά την "αντιγραφή" εφάρμοζες 1 Replace(Str,";",",") και μετά σώζεις την εγγραφή.
Με το παλιό δες πως γίνεται το φιλτράρισμα