Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
 otvorený prístup a vytvoriť malú tabuľku e - mailových adries . Použite nasledujúcu tabuľku , ak nemáte existujúcu . Zadajte prvý riadok nasledujúce údaje ako hlavičky jedného stĺpca tabuľky . 
 
 [email protected] @ Hollywood.comHarryBelafonte @ Caribbean.com 
 2 
 Uložte tabuľku Stlačením tlačidla " Control - S , " a zadajte " EmailAddresses " pre meno tabuľky . Uložte databáze samotné stlačením " Alt - F " a potom výberom " Uložiť databázu ako . " Typ " VBAFromAccessQuery " pre názov databázy . 
 3 
 Začnite vytvorením vlastné funkcie pre použitie v dotaze o prvé povolenie makra v databáze . Stlačte tlačidlo " Alt - F " vystaviť " Možnosti " položku, kliknite na tlačidlo túto položku . 
 4 
 Stlačte " Centrum zabezpečenia " položka v dialógovom okne " Možnosti programu Access " , kliknite na tlačidlo " Settings Centrum zabezpečenia " . Stlačením tlačidla " makro " Nastavenie položky v dialógovom okne " Dôvera Center " , kliknite na možnosť , ktorá číta " Povoliť všetky makrá . " ( Uistite sa , že sa vrátite na tomto dialógovom okne makrá zakázať , akonáhle ste dokončili kroky v tomto článku . ) 
 
 Stlačte všetkých otvorených dialógových oknách " OK " sa vrátite do programu Access . 
 5 
 Stlačením tlačidla " Database Tools " položku panela s nástrojmi, kliknite na tlačidlo " , Visual Basic " pre vstup do Visual Basic integrované vývojové prostredie ( IDE ) , čo je miesto , kde môžete vytvoriť vlastné funkcie 
 6 
 Press . " Insert " , nasleduje " modul " na IDE panel nástrojov , vytvoriť nový priestor pre zadanie kódu programu dovnútra vložte nasledujúci kód programu kdekoľvek v tomto novom priestore : 
 
 Public Function GetDomainName ( emailAddress ) Dim mm = Ľan ( emailAddress ) - Instru ( emailAddress , " @ " ) GetDomainName = Right ( emailAddress , m ) End Function 
 7 
 Stlačením tlačidla " Ctrl + S " pre uloženie programu a názov modulu " CustomFunctions " po výzve Access . Vráťte sa do programu Access buď stlačením tlačidla " ALT + F11 " , alebo kliknutím na malú ikonu Access v ľavej časti panela nástrojov IDE . 
 8 
 Vytvoriť nový dotaz pre tabuľku e - mailovú adresu tak , že najprv kliknutím názov tabuľky ( " EmailAddresses " ) , v navigačnom okne na ľavej strane okna hlavné aplikácie Access . Potom stlačte tlačidlo " Vytvoriť " a následne " Query Design " na paneli nástrojov programu Access . Ak používate program Access 2003 , vytvorenie dotazu stlačením tlačidla " objekty " , potom " Query " , potom " Nový . " 
 9 
 Dvakrát kliknite na " EmailAddresses " , položka v " Zobraziť tabuľku " v dialógovom okne pre vytvorenie malé okno zobrazujúce všetky polia z tabuľky e - mailovú adresu . . Stlačte tlačidlo " Close " v dialógovom okne 
 10 
 Pravým tlačidlom myši na riadok s označením " pole " v niektorom zo stĺpcov v mriežke dotazu je . Vyberte položku " Build " sa zobrazí dialógové okno " Tvorca výrazov " , ktorý umožňuje vytvárať dotazy , ktoré používajú vzorce . 
 11 
 Double - kliknite na " Funkcia " položka " výraz Elements " table rozbaľte uzol , a potom kliknúť na názov databázy ( " VBAFromAccessQuery " ) vystaviť funkciu , ktorú ste vytvorili pre túto databázu . 
 12 
 Všimnite si , že " Expression hodnoty " panel zobrazuje " funkciu GetDomainName " ste vložili do jazyka Visual Basic IDE skôr . Dvakrát kliknite na túto položku a zadajte " [ email ] " na mieste " << >> " emailAddress texte v hornom paneli dialógového okna . 
 13 
 Stlačte tlačidlo " OK " zatvorte " Tvorca výrazov , " kliknite pravým tlačidlom myši na kartu dotazu a vyberte možnosť " Zobrazenie dátového listu " pre spustenie dotazu . ( Alebo stlačte " Design " a vyberte " Spustiť " na paneli nástrojov . ) 
 
 Všimnite si , že výsledky dotazu zobrazia len názvy domén , e - mailovej adresy , ktorá je výsledkom vašej úspešné použitie kódu VBA Ak chcete otvoriť v návrhovom zobrazení dotazu.