Καλησπέρα!
Έχαρχε, έστω ότι το αναγνωριστικό πεδίο του πίνακα/ερωτήματος στην προέλευση εγγραφών της φόρμας έχει το όνομα
"ID"
Φρόντισε να προσθέσεις το πεδίο
"ID" στην φόρμα αν δεν υπάρχει.
κατόπιν πρόσθεσε ένα πεδίο κειμένου που θα παραμείνει αδέσμευτο και δώσε του το όνομα [XF] (παραδειγματικό όνομα).
Επίλεξε όλα τα πεδία της εγγραφής που επιτρέπουν μορφοποίηση υπό όρους και πάτησε την εντολή
Μορφοποίηση υπό όρους,
δημιούργησε έναν νέο κανόνα και στο πεδίο της παράστασης πέρασε:
[ID]=[XF] (βλ. εικόνα), επίλεξε μορφοποίηση και κλείσε τα παράθυρα με ΟΚ.
Κατόπιν, στο συμβάν της φόρμας "Με το τρέχον" ("Current" στον
VBE) πέρασε τον παρακάτω κώδικα:
Κώδικας:
Private Sub Form_Current()
On Error Resume Next
Me.XF = Me.ID
End Sub
Με αυτό τον τρόπο θα χρωματίζεται αυτόματα η επιλεγμένη εγγραφή.
Με εκτίμηση
Τάσος