Forum - Φόρμες αλλαγη χρώματος επιλεγμένου record

Forum (https://www.ms-office.gr/forum/)

- Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)

- - [ Φόρμες ] αλλαγη χρώματος επιλεγμένου record (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/5635-allagi-xromatos-epilegmenoy-record.html)

αλλαγη χρώματος επιλεγμένου record

γεια σας και πάλι
έχω κολλήσει σε κάτι και θα ήθελα τη βοήθεια σας
σε μια subform χρησιμοποιώ ενα combobox ώστε να επιλέγω εγγραφές βάση της τιμής του με τον παρακάτω κώδικα
DoCmd.SearchForRecord acForm, "main_job", acFirst, "[ÏÍÏÌÁ ÐËÏÉÏÕ] = " & "'" & Screen.ActiveControl & "'"
θα ήθελα η επιλεγμένη εγγραφή να αλλάζει χρώμα αντί να αναβοσβήνει ο κέρσορας όπως γίνεται τώρα.
σας ευχαριστώ εκ των προτέρων.

Καλησπέρα!

Έχαρχε, έστω ότι το αναγνωριστικό πεδίο του πίνακα/ερωτήματος στην προέλευση εγγραφών της φόρμας έχει το όνομα "ID"

Φρόντισε να προσθέσεις το πεδίο "ID" στην φόρμα αν δεν υπάρχει.
κατόπιν πρόσθεσε ένα πεδίο κειμένου που θα παραμείνει αδέσμευτο και δώσε του το όνομα [XF] (παραδειγματικό όνομα).

Επίλεξε όλα τα πεδία της εγγραφής που επιτρέπουν μορφοποίηση υπό όρους και πάτησε την εντολή Μορφοποίηση υπό όρους,
δημιούργησε έναν νέο κανόνα και στο πεδίο της παράστασης πέρασε: [ID]=[XF] (βλ. εικόνα), επίλεξε μορφοποίηση και κλείσε τα παράθυρα με ΟΚ.

Συνημμένο Αρχείο 11164

Κατόπιν, στο συμβάν της φόρμας "Με το τρέχον" ("Current" στον VBE) πέρασε τον παρακάτω κώδικα:

Κώδικας:

Private Sub Form_Current()

    On Error Resume Next

    Me.XF = Me.ID

End Sub

Με αυτό τον τρόπο θα χρωματίζεται αυτόματα η επιλεγμένη εγγραφή.

Με εκτίμηση

Τάσος

Τάσο σ'ευχαριστώ πάρα πολύ.
με εκτίμηση
Έξαρχος