Forum - Φόρμες Αλλαγή χρώματος φόντου σε εγγραφή

Απόστολε καλησπέρα

Για να γίνει αυτό που ζητάς χρειαζόμαστε την "Μορφοποίηση υπό όρους'' & λίγο VBA

Λοιπόν στην φόρμα σου βάζεις ένα πεδίο που το ονομάζεις ''xf'' και στην ιδιότητα ''Ορατό'' βαζεις ''Όχι'', κατόπιν επιλέγεις όλα τα πεδία της φόρμας σου και πατάς το κουμπί μορφοποίηση υπό όρους και βάζεις την συνθήκη πχ ([xf]=[CustomerID], και εφαρμόζεις τι χρώμα θα έχουν τα πεδία, κατόπιν πατάς ALT+F11 και στον VBE γράφεις το παρακάτω

Κώδικας:

Private Sub Form_Current()

Me.xf = Me.CustomerID

End Sub

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

Κώδικας:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

    On Error Resume Next

    Select Case KeyCode

    Case vbKeyDown

        KeyCode = 0

        DoCmd.GoToRecord , , acNext

    Case vbKeyUp

        KeyCode = 0

        DoCmd.GoToRecord , , acPrevious

    End Select

End Sub

επίσης στην ιδιότητα ''Προεπισκόπηση πλήκτρων'' στην καρτέλα ''Συμβάν'' αλλάζουμε από το ''Όχι'' σε ''Ναι'' για να μπορεί να παρακολουθεί τα πλήκτρα με τα βελάκια πάνω-κάτω.

Δες και το συνημμένο