Visibility problem (Access03)

Topic

New Reply

I have a form with a tab control which I have used for several years that is now not working correctly. When I click on the Attendence or the Future tab cmdReports and cmdCerts buttons are to be displayed. Now they only display when the Future tab is clicked on. I haven’t added new tabs. I have checked that the tab numbers are correct Attendance is Page Index 5 and Future is Page Index 6. Below is the code. What issues could make the cmd buttons fail to show when the tab is clicked? Thank you. Fay

Private Sub Attendance_Click()
Me.cmdReports.Visible = True
Me.cmdCerts.Visible = True
End Sub

Private Sub Future_Click()
Me.cmdReports.Visible = True
Me.cmdCerts.Visible = True
End Sub

Private Sub Orientation_Click()
Me.cmdDeptCompCklist.Visible = True
Me.cmdCompCheck.Visible = True
End Sub

Private Sub tabPages_Change()
Me.cmdReports.Visible = (Me.tabPages.Value = 5)
Me.cmdCerts.Visible = (Me.tabPages.Value = 5)
Me.cmdReports.Visible = (Me.tabPages.Value = 6)
Me.cmdCerts.Visible = (Me.tabPages.Value = 6)
Me.cmdDeptCompCklist.Visible = (Me.tabPages.Value = 1)
Me.cmdCompCheck.Visible = (Me.tabPages.Value = 1)
End Sub

Private Sub Form_Open(Cancel As Integer)
DoCmd.Maximize
txtRosterStart.Visible = False
txtRosterEnd.Visible = False
lblRosterStart.Caption = “”

Me.cmdReports.Visible = False
Me.cmdCerts.Visible = False
Me.cmdDeptCompCklist.Visible = False
Me.cmdCompCheck.Visible = False
End Sub

Reply | Quote

Replies

Have you taken into account that the first tab page of the tab control has index 0, the second one index 1 etc.?

Also, the On Click event of a tab page doesn’t occur when the user clicks on the tab at the top, but when the user clicks in an empty part of the tab page.

Reply | Quote

Yes, I actually looked at the properties dialog box instead of counting the pages. I just checked the buttons do show when I touch somewhere on the Attendance tab. But why do they show when I click on the tab itself for future? I think I am okay now. Just baffled with the future tab. Thanks Fay

Reply | Quote

In the 4 lines

Me.cmdReports.Visible = (Me.tabPages.Value = 5)
Me.cmdCerts.Visible = (Me.tabPages.Value = 5)
Me.cmdReports.Visible = (Me.tabPages.Value = 6)
Me.cmdCerts.Visible = (Me.tabPages.Value = 6)

the first two (with Value = 5) will always be overruled by the last two (with Value = 6), so the first two lines don’t have any effect.

Reply | Quote