Contar todos los objetos en su base de datos

El otro día nuestra empresa se encargó de convertir una gran cantidad de bases de datos de Access a múltiples backends de SQL Server. Para tener una idea de las tareas involucradas, necesitábamos una forma de contar todas las tablas, consultas, formularios y macros en cada base de datos.

Realicé una rápida búsqueda en Internet, pero no me gustó ninguno de los fragmentos de código, así que creé un pequeño programa que imprimirá las estadísticas inmediatas de Windows.

Public Sub CountObjects()
Dim qdf As DAO.QueryDef
Dim obj As Object
Dim tdf As DAO.TableDef
Dim i As Long
i = 0
Debug.Print CurrentDb.TableDefs.Count
For Each tdf In CurrentDb.TableDefs
If Not Left(tdf.Name, 4) = "MSys" Then
i = i + 1
End If
Next tdf
Debug.Print "Number of tables: " &amp; i
'Determine number of queries
Debug.Print "Number of Queries: " &amp; CurrentDb.QueryDefs.Count
'Determine number of forms
Debug.Print "Number of Forms: " &amp; CurrentProject.AllForms.Count
'Determine number of Macros
Debug.Print "Number of Macros: " &amp; CurrentProject.AllMacros.Count
'Determine number of reports
Debug.Print "Number of Reports: " &amp; CurrentProject.AllReports.Count
End Sub

Public Sub CountObjects()

Dim qdf As DAO.QueryDef

Dim obj As Object

Dim tdf As DAO.TableDef

Dim i As Long

i = 0

Debug.Print CurrentDb.TableDefs.Count

For Each tdf In CurrentDb.TableDefs

If Not Left(tdf.Name, 4) = "MSys" Then

i = i + 1

End If

Next tdf

Debug.Print "Number of tables: " & i

'Determine number of queries

Debug.Print "Number of Queries: " & CurrentDb.QueryDefs.Count

'Determine number of forms

Debug.Print "Number of Forms: " & CurrentProject.AllForms.Count

'Determine number of Macros

Debug.Print "Number of Macros: " & CurrentProject.AllMacros.Count

'Determine number of reports

Debug.Print "Number of Reports: " & CurrentProject.AllReports.Count

End Sub

Un par de observaciones:

Para no contar las tablas del sistema, pase a través de la colección TableDef e ignore cualquier nombre de tabla que comience con MSys
No podrá utilizar la colección de Formulario para contabilizarlos ya que sus miembros constan sólo de formularios abiertos.

¡Disfruta!

Acerca de Juan Soto

Juan Soto es un desarrollador senior de Access en IT Impact Inc. y un MVP de Microsoft Access y se especializa en Access con bases de datos de SQL Server. Su pasión por el acceso lo ha llevado ayudar a una amplia gama de empresas a establecer un entorno seguro, estable y eficiente con SQL Server. Él es un orador frecuente en los grupos de usuarios de Access en todo el país y recientemente habló en el Orange County SQL Saturday # 73. Si desea que Juan hable en su próxima reunión de grupo, puede ponerse en contacto con él aquí.

Contar todos los objetos en su base de datos

Deja una respuesta Cancelar la respuesta