Ako vytvoriť parameter PASS Query Access vo VBA

Vytváranie parametrických dotazov v programe Microsoft Access VBA ( Visual Basic for Applications ) zahŕňa použitie preddefinovaných objektov Access , vrátane QueryDef a databázových objektov . Reťazec dotazu použitý u týchto objektov je ten istý ako pri vytváraní prístupu dotazov bez VBA ( napr. " SELECT * FROM mytable WHERE myfield = [ user_entered_parameter ] " ) . Veci , ktoré budete potrebovať v Microsoft Access
Zobraziť ďalšie inštrukcie Cestuj 1

otvorený prístup a vytvoriť tabuľku ukážkových dát a pomocou nasledujúcich riadkov . Zadajte text prvého riadku ako názvy polí tabuľky .

Kniha , datesold , netsalefurthering slová , 12.1.2009 , $ 5.03furthering slová , 12.3.2009 , $ 4.97der meisterstringer , 12.5.2009, $ 1.97der meisterstringer , 12.6.2009 , 0,97 dolárov
2

Uložte tabuľku ako " knihy " , potom vstupujú do jazyka Visual Basic IDE ( Integrated Development Environment ) , stlačením " Alt - F11 . "
3

Kliknite na " Vložiť " , nasleduje " modul " na paneli nástrojov IDE , potom vložte nasledujúci kód do okna kódu :

Public sub param_q_select ( ) Dim db ako DAO.DatabaseDim qd ako DAO.QueryDefDim sqry ako StringSet db = CurrentDbsqry = " SELECT * FROM knihy WHERE kniha ako [ Enter názov knihy ] " Nastaviť qd = db.CreateQueryDef ( " qpSelect " , sqry ) End Sub
4

Spustiť makro umiestnením kurzora kdekoľvek vo vnútri tohto podprogramu a stlačením klávesu " F5 " .
5

Vráťte sa do programu Access a zatvorte navigáciu okno na doľava , ak je to otvorené . Znovu otvorte okno a všimnite si nové, uloženého dotazu ( " qpSelect " ) . Poklepaním na tento dotaz , aby ho spustiť a zadajte " * kožúšok * " na príkazovom riadku . Všimnite si výsledky dotazu : iba riadky s " podporovanie slová " sú uvedené
6

Späť na IDE stlačením " Alt - F11 , " a spustiť makro pomocou kroku 4 je návod .. Všimnite si chyby , ktoré sa objavia tentokrát ( " objekt " qpSelect ' už existuje " )
7

Revidovať kód , aby sa zabránilo chybu tým , že nahradí ho s týmto kódom : .

Verejné sub param_q_select ( ) Dim db ako DAO.DatabaseDim qd ako DAO.QueryDefDim sqry ako StringSet db = CurrentDbOn Error GoTo skip_deletedb.QueryDefs.Delete " qpSelect " skip_delete : sqry = " SELECT * FROM knihy WHERE kniha ako [ Zadajte názov knihy ] " Nastaviť qd = db.CreateQueryDef ( " qpSelect " , sqry ) End Sub
8

znova spustiť kód pomocou kroku 4 je návod . Všimnite si , že nie je žiadna chyba , tento čas

• Predchádzajúca strana: Ako napísať dávkový súbor skopírovať súbor 
• Ďalšia strana: Ako Skontrolujte , či reťazec obsahuje iba písmená abecedy v jazyku Visual Basic