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
-----------------------------------
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: