
27-12-20, 09:41
|
| Όνομα: ΣΑΚΗΣ Έκδοση λογισμικού 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
|