[Chris]

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

Για να γίνει αυτό που ζητάς χρειαζόμαστε την "Μορφοποίηση υπό όρους'' & λίγο 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

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

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