Παραμετροποίηση πεδίων

[atlasgr]

Καλησπέρα σας και συγχαρητήρια για το forum

Θα ήθελα αν μπορεί να μου πει κάποιος πως θα φτιάξω μια συνάρτηση η οποία θα διαχειρίζεται διαφορετικά ονόματα πεδίων.
Για να γίνω πιο κατανοητός …
Σε μια φόρμα έχω 48 πεδία και τα οποία όταν αλλάζει κάτι εκτελούν ακριβώς τις ίδιες εντολές .
Χρειάζομαι λοιπόν μια συνάρτηση η οποία θα εκτελεί πάντα τις ίδιες εντολές αλλά κάθε φορά με διαφορετικά πεδία. Και αυτό το θέλω από την μια να μην γεμίζω με κώδικα και από την άλλη σε περίπτωση αλλαγών στις εντολές να γίνετε πιο εύκολα.
Όπως θα δείτε παρακάτω το μόνο που θα αλλάζει θα είναι το Me.A01 με το Me.B01 κλπ

Private Sub A01_LostFocus()
If Me.A01 <> "00000" Then
Me.A01.ForeColor = RGB(0, 0, 0)
Me.A01.BackColor = RGB(255, 255, 255)
Else
Exit Sub
End If
End Sub

Private Sub B01_LostFocus()
If Me.B01 <> "00000" Then
Me.B01.ForeColor = RGB(0, 0, 0)
Me.B01.BackColor = RGB(255, 255, 255)
Else
Exit Sub
End If
End Sub


Ευχαριστώ εκ των προτέρων για την ανταπόκριση σας