VBA action on page tab click

[libraccess]

I am making up a demo of a database where I want to display a report with Notes/Guide adjacent to my form
Of course I would close the current Page tab Guide and open the new page guide with each tab click
Now although the tab Event procedures are displayed (only 5 events are there but On Click is one of them)
I can get no event to occur. any clues anyone
Thanks

[June7]

See post #4 in https://www.accessforums.net/forms/i...orm-36841.html

What do you mean by 'close the current Page tab Guide and open the new page guide'?

[libraccess]

Sorry the Page Tab guide is the report I would "pop up" for each tab to give the viewer a "guide"
as I say this is a DEMO of an existing database which is to give the viewer an idea of the DB without reading tedious help files
I see in your other post
"The tab page has a Click event but doesn't seem to do anything when I tested code nor does the tab control Click event. Annoying."
yeh i'll say
mmmm still thinking bout this one

[June7]

Consider:

Private Sub TabCtl290_Change()
Select Case Me.TabCtl290.Value
Case 0
'open this popup
Case 1
'open this popup
Case 2
'open this popup
End Select
End Sub

[Missinglinq]

As you've found, the Page OnClick event doesn't fire when you click on the Tab of the Page, you have to click on the Page itself, which makes it pretty much useless. This is why June7 suggested using the OnChange event of the Tabbed Control.

Also note, in June7's example, that the Page Index of a Tabbed Control is zero-based, so

Case 0 refers to the first page, Case 1 refers to the second page, and so forth.

Linq ;0)>

[libraccess]

Sorry for the delay I have only just returned to this project.
Yes that works, only closing each report looks like it could be a bit messy. I cannot see any way to specify close a specific object.
Close of course closes the object that is currently in focus and if a tab has been click the form is in focus.
I could in each Case open each report followed by Close except for the report i want to stay open
Any other suggestions

[ItsMe]

Not sure what the question is... maybe
DoCmd.Close acReport, "ReportName"

or wrtite code to go through and see if a particular report is open?

[June7]

Not sure I understand the issue, however, Close method can specify object.

If CurrentProject.AllReports("reportname").IsLoaded Then DoCmd.Close acReport, "reportname", acSaveNo

[libraccess]

did i write my last post > don't know how you understood > i hardly do

anyway solved thanks all - so i have 4 reports, below code is for report 3, so i close any of the others if they are open and i have the same code in the others (rpt number to suit)

for Report A_guide3


Private Sub Report_Open(Cancel As Integer)


If CurrentProject.AllReports("A_guide1").IsLoaded Then
DoCmd.Close acReport, "A_guide1", acSaveNo
End If
If CurrentProject.AllReports("A_guide2").IsLoaded Then
DoCmd.Close acReport, "A_guide2", acSaveNo
End If


If CurrentProject.AllReports("A_guide4").IsLoaded Then
DoCmd.Close acReport, "A_guide4", acSaveNo
End If
End Sub
Thanks All