Slow Refresh of form with Tab Control

kevinrea

New member
Local time
Today, 11:09
Joined
Oct 18, 2003
Messages
6
Hi guys,

I have a form with a large tab control on it.
it has about 60 tabs., well, when I use code to change the number of tabs, it takes about 5 seconds to refresh the screen.

What I use is the following code...
If anyone has a way to cut down on refresh time, I would really appreciate it.
If you could email me at:
krea@dslextreme.com
-----------------------------------
Code:
Private Sub NumberOfBathrooms_AfterUpdate()

    '-------START routine to set how many bathrooms
If Me.NumberOfBathrooms = 6 Then
        Me.Page22.Visible = True
        Me.Page21.Visible = True
        Me.Page20.Visible = True
        Me.Page19.Visible = True
        Me.Page18.Visible = True
        Me.Page17.Visible = True

ElseIf Me.NumberOfBathrooms = 5 Then
        Me.Page22.Visible = False
        Me.Page21.Visible = True
        Me.Page20.Visible = True
        Me.Page19.Visible = True
        Me.Page18.Visible = True
        Me.Page17.Visible = True

ElseIf Me.NumberOfBathrooms = 4 Then
        Me.Page22.Visible = False
        Me.Page21.Visible = False
        Me.Page20.Visible = True
        Me.Page19.Visible = True
        Me.Page18.Visible = True
        Me.Page17.Visible = True
    
ElseIf Me.NumberOfBathrooms = 3 Then
        Me.Page22.Visible = False
        Me.Page21.Visible = False
        Me.Page20.Visible = False
        Me.Page19.Visible = True
        Me.Page18.Visible = True
        Me.Page17.Visible = True
    
ElseIf Me.NumberOfBathrooms = 2 Then
        Me.Page22.Visible = False
        Me.Page21.Visible = False
        Me.Page20.Visible = False
        Me.Page19.Visible = False
        Me.Page18.Visible = True
        Me.Page17.Visible = True
    
ElseIf Me.NumberOfBathrooms = 1 Then
        Me.Page22.Visible = False
        Me.Page21.Visible = False
        Me.Page20.Visible = False
        Me.Page19.Visible = False
        Me.Page18.Visible = False
        Me.Page17.Visible = True
    
ElseIf Me.NumberOfBathrooms = 0 Or Me.NumberOfBathrooms = Null Then
        Me.Page22.Visible = True
        Me.Page21.Visible = True
        Me.Page20.Visible = True
        Me.Page19.Visible = True
        Me.Page18.Visible = True
        Me.Page17.Visible = True
End If
'-------END routine to set how many bathrooms

    
End Sub

Private Sub NumberOfBedrooms_AfterUpdate()
    
'-------START routine to set how many bedrooms
    If Me.NumberOfBedrooms = 10 Then
        Me.Page16.Visible = True
        Me.Page15.Visible = True
        Me.Page14.Visible = True
        Me.Page13.Visible = True
        Me.Page12.Visible = True
        Me.Page11.Visible = True
        Me.Page10.Visible = True
        Me.Page09.Visible = True
        Me.Page08.Visible = True
        Me.Page07.Visible = True

ElseIf Me.NumberOfBedrooms = 9 Then
        Me.Page16.Visible = False
        Me.Page15.Visible = True
        Me.Page14.Visible = True
        Me.Page13.Visible = True
        Me.Page12.Visible = True
        Me.Page11.Visible = True
        Me.Page10.Visible = True
        Me.Page09.Visible = True
        Me.Page08.Visible = True
        Me.Page07.Visible = True

ElseIf Me.NumberOfBedrooms = 8 Then
        Me.Page16.Visible = False
        Me.Page15.Visible = False
        Me.Page14.Visible = True
        Me.Page13.Visible = True
        Me.Page12.Visible = True
        Me.Page11.Visible = True
        Me.Page10.Visible = True
        Me.Page09.Visible = True
        Me.Page08.Visible = True
        Me.Page07.Visible = True

ElseIf Me.NumberOfBedrooms = 7 Then
        Me.Page16.Visible = False
        Me.Page15.Visible = False
        Me.Page14.Visible = False
        Me.Page13.Visible = True
        Me.Page12.Visible = True
        Me.Page11.Visible = True
        Me.Page10.Visible = True
        Me.Page09.Visible = True
        Me.Page08.Visible = True
        Me.Page07.Visible = True

ElseIf Me.NumberOfBedrooms = 6 Then
        Me.Page16.Visible = False
        Me.Page15.Visible = False
        Me.Page14.Visible = False
        Me.Page13.Visible = False
        Me.Page12.Visible = True
        Me.Page11.Visible = True
        Me.Page10.Visible = True
        Me.Page09.Visible = True
        Me.Page08.Visible = True
        Me.Page07.Visible = True

ElseIf Me.NumberOfBedrooms = 5 Then
        Me.Page16.Visible = False
        Me.Page15.Visible = False
        Me.Page14.Visible = False
        Me.Page13.Visible = False
        Me.Page12.Visible = False
        Me.Page11.Visible = True
        Me.Page10.Visible = True
        Me.Page09.Visible = True
        Me.Page08.Visible = True
        Me.Page07.Visible = True

ElseIf Me.NumberOfBedrooms = 4 Then
        Me.Page16.Visible = False
        Me.Page15.Visible = False
        Me.Page14.Visible = False
        Me.Page13.Visible = False
        Me.Page12.Visible = False
        Me.Page11.Visible = False
        Me.Page10.Visible = True
        Me.Page09.Visible = True
        Me.Page08.Visible = True
        Me.Page07.Visible = True
    
ElseIf Me.NumberOfBedrooms = 3 Then
        Me.Page16.Visible = False
        Me.Page15.Visible = False
        Me.Page14.Visible = False
        Me.Page13.Visible = False
        Me.Page12.Visible = False
        Me.Page11.Visible = False
        Me.Page10.Visible = False
        Me.Page09.Visible = True
        Me.Page08.Visible = True
        Me.Page07.Visible = True
    
ElseIf Me.NumberOfBedrooms = 2 Then
        Me.Page16.Visible = False
        Me.Page15.Visible = False
        Me.Page14.Visible = False
        Me.Page13.Visible = False
        Me.Page12.Visible = False
        Me.Page11.Visible = False
        Me.Page10.Visible = False
        Me.Page09.Visible = False
        Me.Page08.Visible = True
        Me.Page07.Visible = True
    
ElseIf Me.NumberOfBedrooms = 1 Then
        Me.Page16.Visible = False
        Me.Page15.Visible = False
        Me.Page14.Visible = False
        Me.Page13.Visible = False
        Me.Page12.Visible = False
        Me.Page11.Visible = False
        Me.Page10.Visible = False
        Me.Page09.Visible = False
        Me.Page08.Visible = False
        Me.Page07.Visible = True
    
ElseIf Me.NumberOfBedrooms = 0 Or Me.NumberOfBedrooms = Null Then
        Me.Page16.Visible = True
        Me.Page15.Visible = True
        Me.Page14.Visible = True
        Me.Page13.Visible = True
        Me.Page12.Visible = True
        Me.Page11.Visible = True
        Me.Page10.Visible = True
        Me.Page09.Visible = True
        Me.Page08.Visible = True
        Me.Page07.Visible = True
End If
'-------END routine to set how many bedrooms

End Sub
 
Last edited:

Users who are viewing this thread

Back
Top Bottom