Styjun

Do the 26 richest billionaires own as much wealth as the poorest 3.8 billion people?

How does mmorpg store data?

The Football Squad

Alien life interbreeding with Earth life

Is there a legal way for US presidents to extend their terms beyond two terms of four years?

Can a successful book series let the bad guy win?

Why would anyone even use a Portkey?

Why can't you move another user's directory when you can move their file?

Closest Proximity of Oceans to Freshwater Springs

if a USA citizen marries a foreign citizen who has kid from previous marriage

Why was p[:] designed to work differently in these two situations?

If I were to build a J3 cub twice the size of the original using the same CG would it fly?

Does a return economy-class seat between London and San Francisco release 5.28 tonnes of CO2 equivalents?

Could you fall off a planet if it was being accelerated by engines?

How to describe POV characters?

"I am [the / an] owner of a bookstore"?

Have any large aeroplanes been landed — safely and without damage — in locations that they could not be flown away from?

Sharing referee/AE report online to point out a grievous error in refereeing

What do you call a notepad used to keep a record?

Compiling all Exception messages into a string

Is it okay to fade a human face just to create some space to place important content over it?

Simple logic puzzle

What happens if a caster is surprised while casting a spell with a long casting time?

Two palindromes are not enough

VBA to list all open objects in MS Access

Dump MS Access Macro object info from VBA codeMS Access Report With Multiple Records Per PageAccess VBA to Return Total of Column in a Query in a MsgBoxChange a form's recordset when command button clicked Access 2013 vbaSave .xlsx to .csv or .txt from Access VBAConnect to Access Vba object model from ExcelIE object set to active IE windowVBA in Access: Prompt for input to select report to printhow to list down or enumerate all the Query names under a MS Access Macro using VBAclick a button in vba

.everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty margin-bottom:0;

0

I'm wondering if it is possible for Access VBA to give a listing of all the open Document Tabs in the current instance of Access. I have code that can check every Access object and report if it is loaded. It's fast but feels like a backwards approach. It also is unable to list unsaved objects, like a new query. Also, I can't tell which objects are showing a tab. A popup window does not have a tab.

Is there a VBA routine that can list all of the Tabbed Documents?

Public Sub ListAllOpenObjects()
' This will list all open Access objects. It will not list
' objects that are new that have not be saved, like Query1.

 Dim aob As AccessObject

 With CurrentData
 ' "Tables"
 For Each aob In .AllTables
 If aob.IsLoaded Then
 Debug.Print aob.name
 End If
 Next aob

 ' "Queries"
 For Each aob In .AllQueries
 If aob.IsLoaded Then
 Debug.Print aob.name
 End If
 Next aob
 End With

 With CurrentProject
 ' "Forms"
 For Each aob In .AllForms
 If aob.IsLoaded Then
 Debug.Print aob.name
 End If
 Next aob

 ' "Reports"
 For Each aob In .AllReports
 If aob.IsLoaded Then
 Debug.Print aob.name
 End If
 Next aob

 ' "Pages"
 For Each aob In .AllDataAccessPages
 If aob.IsLoaded Then
 Debug.Print aob.name
 End If
 Next aob

 ' "Macros"
 For Each aob In .AllMacros
 If aob.IsLoaded Then
 Debug.Print aob.name
 End If
 Next aob

 ' "Modules"
 For Each aob In .AllModules
 If aob.IsLoaded Then
 Debug.Print aob.name
 End If
 Next aob

 End With

End Sub

vba ms-access

share|improve this question

asked Mar 25 at 14:55

BenBen

16311 silver badge1313 bronze badges

add a comment | 

0

I'm wondering if it is possible for Access VBA to give a listing of all the open Document Tabs in the current instance of Access. I have code that can check every Access object and report if it is loaded. It's fast but feels like a backwards approach. It also is unable to list unsaved objects, like a new query. Also, I can't tell which objects are showing a tab. A popup window does not have a tab.

Is there a VBA routine that can list all of the Tabbed Documents?

Public Sub ListAllOpenObjects()
' This will list all open Access objects. It will not list
' objects that are new that have not be saved, like Query1.

 Dim aob As AccessObject

 With CurrentData
 ' "Tables"
 For Each aob In .AllTables
 If aob.IsLoaded Then
 Debug.Print aob.name
 End If
 Next aob

 ' "Queries"
 For Each aob In .AllQueries
 If aob.IsLoaded Then
 Debug.Print aob.name
 End If
 Next aob
 End With

 With CurrentProject
 ' "Forms"
 For Each aob In .AllForms
 If aob.IsLoaded Then
 Debug.Print aob.name
 End If
 Next aob

 ' "Reports"
 For Each aob In .AllReports
 If aob.IsLoaded Then
 Debug.Print aob.name
 End If
 Next aob

 ' "Pages"
 For Each aob In .AllDataAccessPages
 If aob.IsLoaded Then
 Debug.Print aob.name
 End If
 Next aob

 ' "Macros"
 For Each aob In .AllMacros
 If aob.IsLoaded Then
 Debug.Print aob.name
 End If
 Next aob

 ' "Modules"
 For Each aob In .AllModules
 If aob.IsLoaded Then
 Debug.Print aob.name
 End If
 Next aob

 End With

End Sub

vba ms-access

share|improve this question

asked Mar 25 at 14:55

BenBen

16311 silver badge1313 bronze badges

add a comment | 

I'm wondering if it is possible for Access VBA to give a listing of all the open Document Tabs in the current instance of Access. I have code that can check every Access object and report if it is loaded. It's fast but feels like a backwards approach. It also is unable to list unsaved objects, like a new query. Also, I can't tell which objects are showing a tab. A popup window does not have a tab.

Is there a VBA routine that can list all of the Tabbed Documents?

Public Sub ListAllOpenObjects()
' This will list all open Access objects. It will not list
' objects that are new that have not be saved, like Query1.

 Dim aob As AccessObject

 With CurrentData
 ' "Tables"
 For Each aob In .AllTables
 If aob.IsLoaded Then
 Debug.Print aob.name
 End If
 Next aob

 ' "Queries"
 For Each aob In .AllQueries
 If aob.IsLoaded Then
 Debug.Print aob.name
 End If
 Next aob
 End With

 With CurrentProject
 ' "Forms"
 For Each aob In .AllForms
 If aob.IsLoaded Then
 Debug.Print aob.name
 End If
 Next aob

 ' "Reports"
 For Each aob In .AllReports
 If aob.IsLoaded Then
 Debug.Print aob.name
 End If
 Next aob

 ' "Pages"
 For Each aob In .AllDataAccessPages
 If aob.IsLoaded Then
 Debug.Print aob.name
 End If
 Next aob

 ' "Macros"
 For Each aob In .AllMacros
 If aob.IsLoaded Then
 Debug.Print aob.name
 End If
 Next aob

 ' "Modules"
 For Each aob In .AllModules
 If aob.IsLoaded Then
 Debug.Print aob.name
 End If
 Next aob

 End With

End Sub

vba ms-access

share|improve this question

asked Mar 25 at 14:55

BenBen

16311 silver badge1313 bronze badges

Public Sub ListAllOpenObjects()
' This will list all open Access objects. It will not list
' objects that are new that have not be saved, like Query1.

 Dim aob As AccessObject

 With CurrentData
 ' "Tables"
 For Each aob In .AllTables
 If aob.IsLoaded Then
 Debug.Print aob.name
 End If
 Next aob

 ' "Queries"
 For Each aob In .AllQueries
 If aob.IsLoaded Then
 Debug.Print aob.name
 End If
 Next aob
 End With

 With CurrentProject
 ' "Forms"
 For Each aob In .AllForms
 If aob.IsLoaded Then
 Debug.Print aob.name
 End If
 Next aob

 ' "Reports"
 For Each aob In .AllReports
 If aob.IsLoaded Then
 Debug.Print aob.name
 End If
 Next aob

 ' "Pages"
 For Each aob In .AllDataAccessPages
 If aob.IsLoaded Then
 Debug.Print aob.name
 End If
 Next aob

 ' "Macros"
 For Each aob In .AllMacros
 If aob.IsLoaded Then
 Debug.Print aob.name
 End If
 Next aob

 ' "Modules"
 For Each aob In .AllModules
 If aob.IsLoaded Then
 Debug.Print aob.name
 End If
 Next aob

 End With

End Sub

share|improve this question

asked Mar 25 at 14:55

BenBen

16311 silver badge1313 bronze badges

share|improve this question

asked Mar 25 at 14:55

BenBen

16311 silver badge1313 bronze badges

asked Mar 25 at 14:55

BenBen

16311 silver badge1313 bronze badges

asked Mar 25 at 14:55

BenBen

16311 silver badge1313 bronze badges