Ako skontrolovať Access 2007 Ak dotaz existuje

Ušetrite čas pomocou jazyka Visual Basic for Applications ( VBA ) , skontrolujte , či existuje dotazu databázy . Dotaz načíta záznamy z jednej alebo viacerých databázových tabuliek . Je to časovo náročné , pozerať sa cez zoznam otázok , keď máte stovky z nich v databáze . VBA je programovací jazyk k dispozícii v aplikácii Microsoft Access automatizovať rutinné úlohy , ako je určenie , či existuje dotazu. Pomocou objektu QueryDef k dispozícii v jazyku VBA pre slučku prostredníctvom databázových objektov , ako sú otázky . Pokyny dovolená 1

Stiahnite databáze Microsoft Northwind 2007 ( pozri zdroje ) . Otvorte databázu , vyberte " Databázové nástroje " a kliknite na " Visual Basic " . Kliknite na menu " Vložiť " a " modul " vložiť nový kód modulu
2

Zadajte nasledujúce vytvoriť postup : .

Public Sub doesQueryExist ( )

Stlačte tlačidlo " ENTER " .
3

Zadajte nasledujúce vnútri procedúry deklarovať svoje premenné :

Dim dbs ako databáza

Dim qryItem As QueryDef

Dim qryFound As Boolean

Dim qryName As String
4

zadajte nasledujúci príkaz definovať názov dotazu , ktorý hľadáte :

qryName = " Zásoby "

Edit " Zásoby " a zadajte názov dotazu
5

Zadajte nasledujúce definovať databázu pre použitie : .

Nastavenie DBS = CurrentDb
6

zadajte nasledujúce prechádzať každý dotaz objekt v databáze , a skontrolujte , či je dotaz hľadáte :

každý qryItem In dbs.QueryDefs

Ak qryItem.Name = qryName Potom

qryFound = TRUE

End If

Ďalšie
7

Zadajte nasledujúci príkaz sa zobrazí okno so správou , ak sa zistilo, že názov dotazu :

Ak qryFound = True Then MsgBox

qryName a " existuje dotazu. "

Else

MsgBox qryName a " dotaz neexistuje . "

End If

Stlačte " F5 " spustiť procedúru .

• Predchádzajúca strana: Ako nájsť počet stĺpcov v GridView riadenia 
• Ďalšia strana: Ako spúšťať BAT VBS Shells