Poupe tempo usando o Visual Basic for Applications (VBA) para verificar se uma consulta de banco de dados existe . A consulta recupera registros de uma ou várias tabelas de banco de dados . É olhando através de uma lista de consultas quando você tem centenas deles em um banco de dados demorada. VBA é uma linguagem de programação de computador disponível no Microsoft Access para automatizar tarefas de rotina, como determinar se uma consulta existe. Use o objeto QueryDef disponíveis no VBA para percorrer os objetos de banco de dados , tais como consultas . Instruções
1

Baixar banco de dados da Microsoft Northwind 2007 ( consulte Recursos). Abra o banco de dados , selecione "Ferramentas de banco de dados " e clique em "Visual Basic". Clique no menu "Inserir" e "Módulo " para inserir um novo módulo de código
2

Digite o seguinte para criar um procedimento : .

Public Sub doesQueryExist ()

Pressione " Enter".
3

Digite o seguinte dentro do procedimento para declarar as variáveis ​​:

Dim dbs as Database

Dim qryItem Como QueryDef

Dim qryFound as Boolean Dim

qryName as String
4

Digite o seguinte para definir o nome da consulta que você está procurando :

qryName = "Inventário "

Editar " Inventário" e digite o nome da sua consulta
5

digite o seguinte para definir o banco de dados para usar: .

Set dbs = CurrentDb
6

Digite o seguinte para fazer um loop através de cada objeto de consulta no banco de dados e verificar se é a consulta que você está procurando :

Para Cada qryItem em dbs.QueryDefs

Se qryItem.Name = qryName Então

qryFound = True End If

Próxima
7

digite a seguinte instrução para exibir uma caixa de mensagem , se o nome da consulta foi encontrado:

Se qryFound = True Then MsgBox

qryName & " consulta existe . "

Else < br >

MsgBox qryName & " consulta não existe. "

End If

Pressione " F5" para executar o procedimento .