[γιώργοςΚ]

Σε συνέχεια της προσπάθειας μου για την επιλυση του πιο πάνω θέματος, βρήκα τον ακόλουθο κώδικα απο την Microsoft και προσπάθησα να τον προσαρμώσω στην φόρμα μου και πιο συγκεκκριμένα στο Check Select All που έχει, αλλά δυστυχώς λαμβάνω το επισυναπτόμενο error απο την Access..

Μπορεί κάποιος να με διαφωτίσει τι κάνω λάθος?

Σας ευχαριστώ εκ προτέρων

Κώδικας απο Microsoft

Private Sub Check81_Click()
Dim rst As Recordset, i As Integer

Set rst = Me.RecordsetClone
i = 0
rst.MoveFirst
Do While Not rst.EOF
i = i + 1
rst.Edit
If rst![Select] Then
rst![Select] = False
Else
rst![Select] = True
End If
rst.Update
rst.MoveNext
Loop
MsgBox i & " Records Marked."

rst.Close
Set rst = Nothing

End Sub