Cómo comprobar Access 2007 Si existe Query

Ahorre tiempo utilizando Visual Basic para Aplicaciones ( VBA) para comprobar si existe una consulta de base de datos. Una consulta recupera los registros de una o varias tablas de bases de datos . Es mucho tiempo mirando a través de una lista de consultas cuando se tienen cientos de ellos en una base de datos . VBA es un lenguaje de programación disponible en Microsoft Access para automatizar tareas rutinarias , tales como la determinación de si existe una consulta. Utilice el objeto QueryDef disponible en VBA para recorrer los objetos de base de datos como consultas . Instrucciones
1

Descargue la base de datos Northwind de Microsoft 2007 ( ver Recursos) . Abra la base de datos , seleccione "Herramientas de base de datos" y haga clic en "Visual Basic ". Haga clic en el menú " Insertar" y "módulo " para insertar un nuevo módulo de código
2

Escriba lo siguiente para crear un procedimiento : .

Public Sub doesQueryExist ()
< p> Presione " Enter".
3

Escriba lo siguiente en el procedimiento para declarar las variables :

Dim dbs como base de datos

qryItem As QueryDef

qryFound Dim As Boolean

qryName dévil como secuencia
4

Escriba lo siguiente para definir el nombre de la consulta que buscaba :

qryName = "Inventario "

Editar "Inventario " y escriba el nombre de la consulta
5

Escriba lo siguiente para definir la base de datos a usar: .
< p> Set dbs = CurrentDb
6

Escriba lo siguiente para recorrer cada objeto de consulta en la base de datos y comprobar si es la consulta que está buscando:

For Each qryItem en dbs.QueryDefs

Si qryItem.Name = qryName Entonces

qryFound = True End If

Siguiente
7

escriba la siguiente instrucción para mostrar un cuadro de mensaje si se encontró el nombre de la consulta :

Si qryFound = True Luego

MsgBox qryName y " existe la consulta. "

demás

MsgBox qryName y " consulta no existe ".

End If

Press "F5 " para ejecutar el procedimiento.