23-03-16, 10:55
|
Όνομα: Γιώργος Έκδοση λογισμικού Office: Ms-Office 2007, Ms-Office 2013 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 02-04-2013 Περιοχή: Κύπρος
Μηνύματα: 738
| |
Σε συνέχεια της προσπάθειας μου για την επιλυση του πιο πάνω θέματος, βρήκα τον ακόλουθο κώδικα απο την 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
|