Εμφάνιση ενός μόνο μηνύματος
  #2  
Παλιά 06-09-20, 18:37
Το avatar του χρήστη Tasos
Tasos Ο χρήστης Tasos δεν είναι συνδεδεμένος
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού Office: Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική
 
Εγγραφή: 21-10-2009
Μηνύματα: 2.035
Προεπιλογή

Καλησπέρα!

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

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

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

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

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

Κώδικας:
Private Sub Form_Current()
    On Error Resume Next
    Me.XF = Me.ID
End Sub
Με αυτό τον τρόπο θα χρωματίζεται αυτόματα η επιλεγμένη εγγραφή.

Με εκτίμηση

Τάσος
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών
Απάντηση με παράθεση