[ Φόρμες ] Ενεργοποίηση / Απενεργοποίηση καρτελών φόρμας

[jim67]

Γεια σας και πάλι
Έχω μια κεντρική φόρμα "Patients Details" με ένα στοιχείο ελέγχου καρτέλας (tabcontrol) με 16 σελίδες (οι 14 τελευταίες βασίζονται σε υποφόρμες)

Προσπαθώ έτσι ώστε όταν φορτώνεται η κεντρική φόρμα (Patients Details):
- σε περίπτωση που την ανοίγω για επεξεργασία μιας εγγραφής να είναι ενεργοποιημένες όλες οι σελίδες

- σε περίπτωση που την ανοίγω και δεν είναι καταχωρημένη κάποια εγγραφή να είναι απενεργοποιημένες όλες οι σελίδες εκτός από την πρώτη σελίδα (General_Page)

Επίσης στην κεντρική φόρμα:

- σε περίπτωση που επιλέγω νέα εγγραφή (κουμπί με ενσωματωμένη μακροεντολή) να απενεργοποιούνται όλες οι σελίδες εκτός από την πρώτη

- σε περίπτωση που εισάγω οτιδήποτε στο πεδίο "Last Name" (στην πρώτη καρτέλα) να ενεργοποιούνται όλες οι υπόλοιπες σελίδες.

Τα κατάφερα σχετικά με τα εξής:
Στην κεντρική φόρμα:

Private Sub Form_Current()
'ξεκίνημα από την 2η σελίδα
Me.tabContacts.Pages("Medical_and_Social_Info_Page ").Enabled = Not Me.NewRecord
Me.tabContacts.Pages("ICD_10_Diagnosis_Page").Enab led = Not Me.NewRecord
Me.tabContacts.Pages("Procedures_Page").Enabled = Not Me.NewRecord
'......... ακολουθούν οι υπόλοιπες σελίδες
End Sub

Και στην πρώτη αελίδα στο πεδίο Last Name:

Private Sub Last_Name_AfterUpdate()
If Last_Name <> "" Then
'ξεκίνημα από την 2η σελίδα
Medical_and_Social_Info_Page.Enabled = True
ICD_10_Diagnosis_Page.Enabled = True
Procedures_Page.Enabled = True
'......... ακολουθούν οι υπόλοιπες σελίδες
Else
'ξεκίνημα από την 2η σελίδα
Medical_and_Social_Info_Page.Enabled = False
ICD_10_Diagnosis_Page.Enabled = False
Procedures_Page.Enabled = False
'......... ακολουθούν οι υπόλοιπες σελίδες
End If
End Sub

Νομίζω όμως οτι δεν κάτι δεν πάει καλά με την προσέγγιση αυτή διότι σε κάθε ενεργοποίηση ή απενεργοποίηση των σελίδων οι ετικέτες τους αναβοσβήνουν (flickering;) πολλές φορές και αρκετά ενοχλητικά. Υπάρχει λύση;

Ευχαριστώ εκ των προτέρων
Δημήτρης