Εμφάνιση ενός μόνο μηνύματος
  #7  
Παλιά 27-12-20, 09:41
smasak Ο χρήστης smasak δεν είναι συνδεδεμένος
Όνομα: ΣΑΚΗΣ
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 24-02-2013
Μηνύματα: 326
Προεπιλογή

Καλημέρα, πως μπορούμε στον κώδικα να προσαρμόσουμε κριτήριο επιλογής εγγραφών(κινητό κηδεμόνα)
όταν το 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
Απάντηση με παράθεση