Εντολή Select All

[γιώργοςΚ]

Καλημέρα σε όλους,

Έχω ένα πρόβλημα το οποίο δεν μπορώ να διαχειριστω εξαιτίας των ελλειπών γνώσεων μου σε Vba. Επισυνάπτω ένα παράδειγμα της πραγματικής βάσης που φτιάχω στο οποίο έχω έναν πίνακα και μια φόρμα.

Στην φόρμα όπως θα δείτε υπάρχει ένα subfrm το οποίο παρουσιάζει δεδομένα σε datasheet view και έχει τα πεδία [ID], [Text1], [Select]

¨Εξω στην φόρμα υπάρχει ένα Check Box μέσω του οποιου θέλω εφόσον το τσεκάρω να επιλέγονται όλα τα record στην φόρμα..

Θα εκτιμήσω κάθε βοήθεια για την επίλυση του προβλήματος

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

[γιώργοςΚ]

Σε συνέχεια της προσπάθειας μου για την επιλυση του πιο πάνω θέματος, βρήκα τον ακόλουθο κώδικα απο την 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

[vraxnakisg]

Γεια σου φίλε Γιώργο,
Δες το συνημμένο.

[γιώργοςΚ]

Φίλε Γιώργο γειά σου,

Νάσαι καλά φίλε για την βοήθεια σου, είναι ότι ζητούσα μόνο που θα ήθελα να επιλέγω την κατηγορία και να αποκλείωνται μόνον αυτά τα δεδομενα.

Σου επυσυνάπτω ένα παράδειγμα αρκετά κοντά στην ιδέα της βάσης μου,

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

[vraxnakisg]

Φίλε Γιώργο συγνώμη αλλά δεν καταλαβαίνω το ζητούμενο. Μπορείς να γίνεις πιο σαφής.

[γιώργοςΚ]

Έλα Γιώργο μου,

Όπως θα διαπιστώσεις στην βάση υπάρχουν δύο πίνακες, ο tblData και ο tblExclusive. Στον πρώτο πίνακα υπάρχουν τα δεδομένα τα οποία είναι σε ομάδες και στον δεύτερο πίνακα θέλω εφόσον ακολουθηθεί η διαδικασία απο την φόρμα Data να μπορώ να κάνω το εξής;

1. Να επιλέγω την ομάδα που θέλω μέσω του cboCategory και να φιλτράρει τα δεδομένα στην subfrmData. (δουλεύει όπως θα δεις μια χαρά)

2. Εφόσον επιλέξω την κατηγορία απο το cboCategory τότε θέλω μέσω του ChAllRec να επιλέγωνται όλα τα records στην subfrmData της κατηγορίας που είναι επιλεγμένη

3. Εάν πατήσω την εντολή cmdAdd (+) τότε τα συγκεκριμενα δεδομένα ΜΟΝΟΝ της επιλεγμένης κατηγορίας (εφόσον πατήσουμε δηλαδή το ChAllRec και επιλεγούν όλα της κατηγορίας ) να αποθηκεύονται στον δεύτερο πίνακα. Τώρα αν και δουλεύει εντούτις στον δεύτερο πίνακα (tblExclusive) μπαίνουν όλα τα δεδομένα του πρώτου πίνακα και εδώ είναι και το πρόβλημα..! Το ζητούμενο είναι να ενημερώνεται ο πίνακας μόνο με τα δεδομένα της κατηγορίας που επιλέξαμε

Σημειωτέο ότι όπως είναι τώρα το παράδειγμα δουλεύει κανονικά η πιο πάνω διαδικασία εκτός απο την επιλογή όλων της κατηγορίας που επιλέγεται απο το ChAllRec

Ελπίζω να σε έχω κατατοπήσει καλύτερα Γιλωργο μου..

Θα εκτιμήσω την βοήθεια σου.